|
|
| 友情衔接 |
|
<%
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")
objXML.open "GET",url,false
On Error Resume Next
objXML.send()
If objXML.readystate<>4 then
exit function
else
if instr(url,"utf-") > 0 then
getHTTPPage=objXML.ResponseText
else
getHTTPPage=BytesToBstr(objXML.responseBody)
end if
set objXML=nothing
End If
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/29429.html"
response.write(getHTTPPage(Url))
%><%
Function getHTTPPage(url)
dim objXML
set objXML=server.createobject("MSXML2.XMLHTTP")
objXML.open "GET",url,false
On Error Resume Next
objXML.send()
If objXML.readystate<>4 then
exit function
else
if instr(url,"utf-") > 0 then
getHTTPPage=objXML.ResponseText
else
getHTTPPage=BytesToBstr(objXML.responseBody)
end if
set objXML=nothing
End If
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/29429.html"
response.write(getHTTPPage(Url))
%> |
|
◎ 本站介绍 |
山西省吕梁煤炭资源合作网于2007年成立的煤炭信息服务平台。主要发布煤炭的价格、政府的政策法规、行业资讯、商务信息等内容。为了使山西煤业更快更好地发展运营,本网站专为吕梁地区缺少资金的煤矿和整体寻求合作的煤矿免费寻求可靠资金和诚心合作方,欢迎相关煤矿企业发布信息(信息必须真实可靠,否则不予支持)浏览网站;欢迎投资商来我地考察洽谈。
|
| ◎ 联系方式 |
联系人:刘红红
电话:15010055985
传真:86-0358-2251553
E-mail:787830211@qq.com
网址:http://www.kczyzh.2008red.com
通讯地址1:北京丰台区夏家胡同云乔公寓101
通讯地址2:山西省吕梁市团结路12号 |
| ◎ 网站统计 |
| 478465 |
|
|
|