test.vbs文件代码如下图：
1 ScriptTimeout = 120 2 function getHTTPPage(url) 3 on error resume next 4 dim http 5 set http=CreateObject("Microsoft.XMLHTTP") 6 Http.open "GET",url,false 7 Http.send() 8 if Http.readystate<>4 then 9 exit function 10 end if 11 getHTTPPage=bytes2BSTR(Http.responseBody) 12 set http=nothing 13 if err.number<>0 then err.Clear 14 end function 15 16 Function bytes2BSTR(vIn) 17 dim strReturn 18 dim i1,ThisCharCode,NextCharCode 19 strReturn = "" 20 For i1 = 1 To LenB(vIn) 21 ThisCharCode = AscB(MidB(vIn,i1,1)) 22 If ThisCharCode < &H80 Then 23 strReturn = strReturn & Chr(ThisCharCode) 24 Else 25 NextCharCode = AscB(MidB(vIn,i1+1,1)) 26 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 27 i1 = i1 + 1 28 End If 29 Next 30 bytes2BSTR = strReturn 31 End Function 32 33 Function GetMid(txt,StrOne,StrTwo) 34 NumOne = Instr(txt,StrOne) 35 NumTwo = Instr(txt,StrTwo) 36 if NumOne=0 or NumTwo=0 Then GetMid="":Exit Function 37 GetMid = Mid(txt,NumOne+Len(StrOne),NumTwo-NumOne-Len(StrOne)) 38 End Function 39 40 Dim htmSource 41 htmSource=getHTTPPage("http://localhost/test/absa.asp")
