当前位置：IDC资讯中心 > 网络编程 > ASP教程 > 正文

xmlhttp获取web访问头信息和网页代码_asp技巧

2007-08-24 分类：ASP教程阅读(781) 评论(0)

建站超值云服务器，限时71元/月

<%

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>

赞(0)

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » xmlhttp获取web访问头信息和网页代码_asp技巧

相关推荐