Microsoft VBScript runtime (0x800A01A8)

  Microsoft VBScript runtime (0x800A01A8)Object required: 'Session'") else 'Response。Write("strTemp : [" & strOrig & "]") strTemp = Server。
  HTMLEncode(strOrig) strTemp = Replace(strTemp,chr(10),"") strTemp = Replace(strTemp," "," ") strTemp = Replace(strTemp,chr(9),"    ") 'strTemp = Replace(strTemp,",","，") 'strTemp = Replace(strTemp,"'","’") 'strTemp = Replace(strTemp,""e","”") 'strTemp = Replace(strTemp,"。
  ","。") end if safeConvert = strTempend functionfunction convertBack(strOrig) dim strTemp strTemp = strOrig if not isnull(strOrig) then 'strTemp = Replace(strTemp,"。
  ","。") strTemp = Replace(strTemp,"　"," ") 'strTemp = Replace(strTemp,"，",",") strTemp = Replace(strTemp,"",chr(10)) strTemp = Replace(strTemp,"<","") strTemp = Replace(strTemp,""",chr(34)) strTemp = Replace(strTemp," "," ") end if convertBack = strTempend functionfunction r2v(str) dim tmp tmp=Replace(str,rP,vP,1,-1,1) r2v=Replace(tmp,"\","/") 'Response。
  Write r2v & "" & rP & "" & vPend functionfunction GetWLen(str) dim i,l l = len(str) for i=1 to l if asc(mid(str,i,1)) ＞ 255 then l = l + 1 end if next GetWLen = lend functionfunction SubWStr(str,start,leng) dim i,realLen realLen = 0 for i=1 to Len(str) if realLen 255 then realLen = realLen + 2 else realLen = realLen + 1 end if else Exit For end if next SubWStr = mid(str,start,i)end functionfunction CutString(str,l) dim strR strR = CStr(str) if GetWLen(strR) ＞ l + 3 then strR = SubWStr(strR,1,l) & "。
  。。
  " end if CutString = strRend functionfunction CutDate(sDate) dim arr,dateR dateR = Cstr(sDate) arr = split(dateR," ") CutDate = arr(0)end functionFunction Byte2STR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode ＜ &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2STR = strReturn End Function Function STR2Byte(vIn) dim strReturn,ThisCharCode,NextCharCode strReturn = "" For i = 1 To Len(vIn) ThisCharCode = hex(AscW(Mid(vIn,i,1。