<%
dim tmpLastUpdate
tmpLastUpdate = ConvertDateTime(tmpLastUpdate,1)
response.write tmpLastUpdate
'补足一定长度的0
Function FillZero(str,sLen)
dim tStr,lStr,i,zNum
lStr = len(str)
if lStr<sLen then
for i = 0 to sLen - lStr -1
tStr = tStr & "0"
next
end if
tStr= tStr & str
FillZero=tStr
end function
'配合上面的 FillZero 来做时间格式转换
Function ConvertDateTime(tDateTime,tType)
dim tTime
tTime=tDateTime
if isdate(tDateTime) then
Select Case tType
Case 1 '格式:20080526090800
tTime=year(tDateTime) & FillZero(month(tDateTime),2) & FillZero(day(tDateTime),2) & FillZero(cstr(hour(tDateTime)),2) & FillZero(cstr(minute(tDateTime)),2) & FillZero(cstr(second(tDateTime)),2)
Case 2 '格式:20080526
tTime=year(tDateTime) & FillZero(month(tDateTime),2) & FillZero(day(tDateTime),2)
End Select
end if
ConvertDateTime=tTime
end function
%>