沒有系統對日期補0,只有手動補0
'針對leadbbs資料庫的,**board_popfun.asp 作用:日期處理
'例子:gettimevalue(now())
'結果:20041008095752
function gettimevalue(datestring)
dim temp,tempstr
if isnull(datestring) or istruedate(datestring) = 0 then exit function
temp = cstr(year(datestring))
if len(temp)<3 then
temp = left(year(date),2) & temp
end if
tempstr = temp
temp = cstr(month(datestring))
if len(temp)<2 then temp = "0" & temp
tempstr = tempstr & temp
temp = cstr(day(datestring))
if len(temp)<2 then temp = "0" & temp
tempstr = tempstr & temp
temp = cstr(hour(datestring))
if len(temp)<2 then temp = "0" & temp
tempstr = tempstr & temp
temp = cstr(minute(datestring))
if len(temp)<2 then temp = "0" & temp
tempstr = tempstr & temp
temp = cstr(second(datestring))
if len(temp)<2 then temp = "0" & temp
tempstr = tempstr & temp
gettimevalue = ccur(tempstr)
end function
rem 為vbscript的isdate缺陷而編寫的函式,用on error resume next也攔不住
function istruedate(tstr)
dim t
t = tstr
t = replace(replace(replace(replace(replace(replace(replace(t,"年","-"),"月","-"),"日"," "),"上午"," "),"下午"," ")," "," ")," "," ")
dim n1,n2
n1 = instr(t,"-")
if n1>0 then n2 = instrrev(t,"-")
if n1 = n2 and n1 >0 then
istruedate = 0
exit function
end if
n1 = instr(t,":")
if n1>0 then n2 = instrrev(t,"-")
if n1 = n2 and n1 >0 then
istruedate = 0
exit function
end if
if isdate(tstr) then
istruedate = 1
else
istruedate = 0
end if
end function
我的工作日誌1
來這家公司三週了 工作基本進入正軌 也已經熟悉了周圍的生活。工作有條不紊的進行中，大面上完成的還可以吧，但具體細節方面，依然很亂，例如控制元件大小，驗證，什麼情況下可用，什麼情況下不可用，這些都要慢慢完善，等待開會統一中，呵呵。因為很多地方需求並不完善，boss 們還在討論中，我們只是在開發需求相對...
我的工作日誌1
來這家公司三週了 工作基本進入正軌 也已經熟悉了周圍的生活。工作有條不紊的進行中，大面上完成的還可以吧，但具體細節方面，依然很亂，例如控制元件大小，驗證，什麼情況下可用，什麼情況下不可用，這些都要慢慢完善，等待開會統一中，呵呵。因為很多地方需求並不完善，boss 們還在討論中，我們只是在開發需求相對...
我的工作日誌4
從6號到 17號,又將近兩週過去了啊.用近一週的時間去把系統物料部分的前期開發搞定。資料訪問層和實體層直接用 生成，然後經過簡單修改移植到系統中，然後繪製介面，作簡單的新增查詢，因為牽扯到層層提交稽核，還要畫狀態圖，理清狀態關係。然後便是具體的業務實現。其中牽扯到的難點先掛起來，爭取先把整套審批流程...
工作日誌 2009 08 28
今天特別的憂愁。唉.努力啊！開始整理今天的東西 我做的模組是一個二手房產的，可能我寫的東西對有些人來說很搞笑，但這是寫給我自己的。model.settime function.getdetaildate 這個方法 這個方法是專案經理已經寫好的，直接呼叫就ok了 2.關於jsp頁面驗證的 就是驗證後，...
工作日誌 2009 09 05
今天早上到公司，請了四天的假。好幾天沒寫日誌了。今天上午來給剛買的本收拾了一下 換系統，裝ide，移植專案 下午繼續努力啊。呵呵 下午js驗證，參考了許多 的註冊頁面，基本上全是彈出一個提示框 如果必須輸入的資訊沒有輸入的話 csdn也是，讓我挺感到意外的。可能這種方式比較好吧，但不是我想要的那種，...