• λ我爱Aspx >> C#.Net >> XMLHTTP获取web访问头信息和网页代码_ASP技巧

    • XMLHTTP获取web访问头信息和网页代码_ASP技巧

  • :aspxer  Դ:internet  :2007-4-28 23:47:06  ؼ:web,asp,xml

  • <%

    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>

    Ҷƪл˵?
  • һƪXMLHTTP对象应用开发初体验_ASP技巧
    һƪ用正则解析图片地址,并利用XMLHTTP组件将其保存_ASP技巧