|
|
|
<%
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")
objXML.open "GET",url,false
objXML.send()
If objXML.readystate<>4 then
exit function
End If
getHTTPPage=BytesToBstr(objXML.responseBody)
set objXML=nothing
if err.number<>0 then err.Clear
End Function
Function BytesToBstr(body)
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 = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Dim Url,Html
Url = "http://www.100lian.net/user/2538.html"
response.write(getHTTPPage(Url))
%>
|
版权所有：沧州全一电子设备有限公司
地址：河北省青县青崇路城南工业区 手机：13731721688（杨经理）
电话：0317-4317806 传真：0317-4317809 邮编：062650 冀ICP备10022465号
|
加入收藏
