|
|
|
<%
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号
|