在线asp代码格式化(在线asp代码格式化不了)
lt for num=1 to 500 if lennumlt4 then num=rightquot000quot num,3responsewrite num responsewrite quotquotnext。
lt #39自定义函数 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。