登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

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

2008-03-19 15:53:40|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 

<%

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>

  评论这张
 
阅读(538)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018