asp 读取 web 文件

<%
Function GetURL(URL)
Set http=Server.CreateObject("Microsoft.XMLHTTP")
     On Error Resume Next
     http.Open "GET",URL,False
     http.send()
     if Err then
     Err.Clear
     Response.Write("没有找到网页!")
     Response.End()
     End if
     getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
GetURL=getHTTPPage
End Function
'转换编码
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'调用方法
Content=GetURL("http://218.87.20.102/kb/lyxj_num.php")
Response.Write(Content)

%>