<% on error resume nextserver.scripttimeout = 9999999function gethttppage (path) T = getBody (Path) Gethttppage = BYTESTOBSTR (T, "GB2312") End FunctionFunction BSTR (VIN)
Dim strReturn, i, ThisCharCode, innerCode, Hight8, Low8, NextCharCode 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 bstr = strReturn End Function