|
|
| 网站首页 |  |
 |
|
 |
 图标展示 点击排行 最新点入 最新点出 最新排行 提交网站 设为首页 收藏本站 |
||||||||||||
|
|
 最新网站排行↓来访一次 自动排第一 10次淡绿,20粉红,30蓝色,40红色,80粗绿,100粗粉,150粗蓝,200粗红 新站1秒收录! |
提交网站 | 点击排行 | 最新点入 | 最新点出 |
| 广 告 |
|
|
|
 友 情 链 接 |
|||||||||||
|
| 关于本站 | 联系本站 | 新站登录 | 免责声明 | 使用帮助 | 友情连接 |
| QQ:1761915003 版权所有：色域网
联系邮箱:1761915003@qq.com
<%
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/26667.html"
response.write(getHTTPPage(Url))
%>
| |
