<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("http://))
    function getHTTPPage(url)
        dim http
        set http=createobject("MSXML2.XMLHTTP")
        Http.open "GET",url,false
        Http.send()
        if Http.readystate<>4 then
            exit function
        end if
        getHTTPPage=bytes2BSTR(Http.responseBody)
        set http=nothing
        if err.number<>0 then err.Clear
    end function
   
   
    Function bytes2BSTR(vIn)
        dim strReturn
        dim i,ThisCharCode,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
            bytes2BSTR = strReturn
    End Function
%>

据我个人的了解，这段代码的意思为：使用xmlhttp对象访问远程http服务器上某个网站下的某个页面，然后获取被访问页面返回的内容，对这段内容重新编码。我现在想问的是http://这个url根本无法正常访问，也就是说该xmlhttp对象的responsebody的内容应该为空吧，然后去执行编码的时候，因为编码函数传进来的参数就是该被访问页面的返回值，是否会报类似NullPointerException（即空指针异常），因为内容为空？而加上Server.ScriptTimeOut=9999999
这句代表一直要执行这么长时间，所以导致页面假死的状态？

Server.ScriptTimeOut=9999999 '脚本超时时间

if Http.readystate<>4 then
            exit function
        end if
已经跳出

想问一下，Http.readystate什么时候等于4，也就是一次回发已结束
假如该xmlhttp对象打开的url根本无法访问，那该http.readystate返回的值还会是4吗？

其实应该再做个检查服务器返回的状态