XMLHTTP获取web访问头信息和网页代码

【 tulaoshi.com - Web开发 】

　　%

　　Function BytesToBstr(body,Cset)
　　    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 = Cset
　　    BytesToBstr = objstream.ReadText
　　    objstream.Close
　　    set objstream = nothing
　　End Function

　　url=request.form("url")
　　if trim(url)"" then
　　    set xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")
　　    xml.open "GET",url, False
　　    xml.send
　　    bo = BytesToBstr(xml.ResponseBody,"UTF-8")
　　    header = xml.GetAllResponseHeaders
　　    set xml = nothing
　　end if

　　%
　　html

　　head
　　titleXMLHTTP测试/title
　　meta http-equiv="Content-Type" content="text/html;charset=gb2312"
　　/head

　　body bgcolor="#D4D0C8" topmargin="20" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0"

　　div align="center"
　　    table border="1" width="770px" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356"
　　        tr
　　            form method="post"
　　                td align="center" height="50"
　　                input type="text" name="url" style="width:700;height:20" value="%=url%"
　　                input type="submit" value="查看" /td
　　            /form
　　        /tr
　　        tr
　　            td align="center" height="124"
　　            textarea id="Textarea2" name="Textarea2" rows="7" cols="105"%=header%/textarea/td
　　        /tr
　　        tr
　　            td height="230" align="center"
　　            textarea id="Textarea1" name="Textarea1" rows="14" cols="105"%=bo%/textarea/td
　　        /tr
　　    /table
　　/div

　　/body

　　/html