Function GetBody(weburl)  

    '創建對象 
    Dim ObjXMLHTTP 
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 
    '請求文件,以異步形式 
    ObjXMLHTTP.Open "GET",weburl,False 
    ObjXMLHTTP.send 
    While ObjXMLHTTP.readyState <> 4 
        ObjXMLHTTP.waitForResponse 1000 
    Wend 
    '得到結果 
     GetBody=ObjXMLHTTP.responseBody 
    '釋放對象 
     Set ObjXMLHTTP=Nothing 
End Function