#112005/3/14 11:52:31
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>利用XMLHTTP获取远程数据</TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 4.0">
<style type="text/css">
<!--
td,body,div,p,.input,.select,.button,textarea{
font-family: "Verdana";
color: #666666;
font-size:11px;
}
.input,select,textarea {
background-color: #f3f3f3;
border: 1px inset #FFFFFF;
}
.button {
width: 72px;
height: 22px;
background-repeat: no-repeat;
background-image: url(button.gif);
border: none;
word-spacing: 2px;
}
-->
</style>
<%
Function bytes2BSTR(vIn)
strReturn = ""
For b = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,b,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,b+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
b = b + 1
End If
Next
bytes2BSTR = strReturn
End Function
function getPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.setrequestHeader "Accept-Language","zh-cn"
Http.send()
if Http.readystate<>4 then
exit function
end if
getPage=Bytes2bStr(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
if Request.QueryString("url")<>"" then
Html=getPage(Request.QueryString("url"))
end if
%>
</HEAD>
<BODY>
<form name="form1" method="get" action="">
<table width="500" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#f3f3f3">
<td height="25" bgcolor="#EEEEEE"><strong>利用XMLHTTP获取远程文件源代码</strong></td>
</tr>
<tr bgcolor="#f3f3f3">
<td height="25" align="center" bgcolor="#f3f3f3"> <input name="url" type="text" class="input" id="url" value="http://www.baidu.com" size="40">
<input name="Submit" type="submit" class="button" value="获取">
</td>
</tr>
</table>
</form>
<p align="center">
<textarea name="code" cols="100" rows="20" wrap="VIRTUAL" id="code"><%= Html %></textarea>
</p>
<%
Html=Replace(Html,"http://www.baidu.com/img/slogo.gif width=174 height=64","http://www.5d.cn/bbs/images/logo.gif")
%>
<hr color="#000000" size="1" width="500">
<div align="center"><strong>假冒百度</strong> </div>
<hr color="#000000" size="1" width="500">
<div align="center" style="border:1px solid #000000;padding:5px;"><%= Html %></div>
</BODY>
</HTML>