lt for num=1 to 500 if lennumlt4 then num=rightquot000quot num，3responsewrite num responsewrite quotquotnext。

lt #39自定義函數(shù) Function GMTtimea，bDim xx2wVar， xx2wToMonth xx2wVar = a quotquot b quotquot c If Not IsDate xx2wVar Then xx2wVar = Now Else xx2wVar = CDate xx2wVar End If xx2。

Dim strDim strSplitDim strRetstr=requestquerystringquotquotstrSplit = quotquotFor i = 1 To LenstrstrRet = strRet Midstr， i， 1 strSplit NextstrRet = LeftstrRet， LenstrRet 1strs=st。