★30天轻松撑握★gre词汇,你的随身gre红宝书,英语单词全能记忆王
<%
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/35220.html"
response.write(getHTTPPage(Url))
%>
33344网站目录 0460网站之家 猎取网上精华 怎样写好作文 鸡眼怎么治疗 艾倪营销师 gre词汇 gre红宝书 grecihuicom 友情链接交换中心 OK自助链百度优化 2012风云榜 灯塔导航 免费友情链接网 ☆中国图片链 