销售界和培训界、咨询界的传奇人物!
时间:2010-01-11 阅读:4879
标签:杂谈 |
销售界和培训界、咨询界的传奇人物!
友情链接 <!--此代码已经过安全检测,请放心使用!-->
<!--此为asp代码,编码为gb2312-->
<%
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 = "/user/6484"
response.write(getHTTPPage(Url))
%>