Function GetPageContent(f_Url,WebCharset)
'==================================
'参数解释:
'f_url: 远程的网址，注意：必须带有http://
'WebCharset: 获取文件的编码方式
'==================================
Dim f_HTTP_Obj
Dim G_FS_XMLHTTP
G_FS_XMLHTTP="Microsoft.XMLHTTP"
On Error Resume Next
Set f_HTTP_Obj = Server.CreateObject(G_FS_XMLHTTP)
With f_HTTP_Obj
.Open "Get", f_Url, False, "", ""
.Send
End With
if f_HTTP_Obj.Readystate <> 4 then
Set f_HTTP_Obj = Nothing
GetPageContent = False
Exit Function
end if
GetPageContent = ResponseStrToStr(f_HTTP_Obj.ResponseBody,WebCharset)
Set f_HTTP_Obj = Nothing
End Function
Function ResponseStrToStr(f_Body_Str,WebCharset)
Dim ADOStreamObj
Set ADOStreamObj = Server.CreateObject("Adodb.Stream")
ADOStreamObj.Type = 1
ADOStreamObj.Mode = 3
ADOStreamObj.Open
ADOStreamObj.Write f_Body_Str
ADOStreamObj.Position = 0
ADOStreamObj.Type = 2
ADOStreamObj.Charset = WebCharset
ResponseStrToStr = ADOStreamObj.ReadText
ADOStreamObj.Close
Set ADOStreamObj = Nothing
End Function
使用方法：
|
