台灣最大程式設計社群網站
線上人數
873
 
會員總數:245973
討論主題:189551
歡迎您免費加入會員
討論區列表 >> VB.NET >> [XML]請教有關XMLHTTP 物件...
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[XML]請教有關XMLHTTP 物件...
價值 : 0 QP  點閱數:2534 回應數:0
樓主

diabo
初學者
760 12
133 274
發送站內信

請幫忙看看哪裡有問題....

xml01.htm--->ok
<SCRIPT LANGUAGE="VBScript">
<!--
   Function getHTTPPage(url)
        on error resume next
        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 
        
//-->
</SCRIPT>
<SCRIPT Language="JavaScript">
document.write(getHTTPPage("http://tw.yahoo.com"))
</SCRIPT>




xml02.asp->發生錯誤
<%
   Function getHTTPPage(url)
        'on error resume next
        dim http
        set http=Server.CreateObject("MSXML2.XMLHTTP")
        Http.open "GET",url,false
        Http.send()   <---此行Error
        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
Response.Write(getHTTPPage("http://tw.yahoo.com"))
%>


本篇文章發表於2003-01-15 11:57
目前尚無任何回覆
   

回覆
如要回應,請先登入.