点击这里给我发消息 点击这里给我发消息

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

添加时间:2010-1-5
    相关阅读: 网页
 

<%

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>
<title>XMLHTTP测试</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>

本文作者:
咨询热线:020-85648757 85648755 85648616 0755-27912581 客服:020-85648756 0755-27912581 业务传真:020-32579052
广州市网景网络科技有限公司 Copyright◎2003-2008 Veelink.com. All Rights Reserved.
广州商务地址:广东省广州市黄埔大道中203号(海景园区)海景花园C栋501室
= 深圳商务地址:深圳市宝源路华丰宝源大厦606
研发中心:广东广州市天河软件园海景园区 粤ICP备05103322号 工商注册