判断网页里面是否存在【Referer判断跳转】代码,Asp.NET代码库,德仔网

代码语言
代码分类
【Asp.NET】判断网页里面是否存在【Referer判断跳转】
作者:依依 / 发布于2016/8/26/ 495
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<%Session.CodePage=65001%>   
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
<html xmlns="http://www.w3.org/1999/xhtml">  
<head>  
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />   
<title>模拟百度跳转页面</title>  
<style type="text/css">  
<!--  
body {  
    margin-left: 0px;  
    margin-top: 0px;  
    margin-right: 0px;  
    margin-bottom: 0px;  
    overflow:hidden;  
}  
.STYLE3 {font-size: 12px; color: #adc9d9; }  
-->  
</style></head>  
  
<body>  
<table width="100%"  height="100%" border="0" cellspacing="0" cellpadding="0"  onsubmit="return checkinput();">  
  <tr>  
    <td bgcolor="#1075b1" align="center">  
    <form id="addfrm" name="addfrm" action="" method="post">  
          <input type="text" name="txtUrl" id="txtUrl" style="width:300px; height:25px; background-color:#87adbf; border:solid 1px #153966; font-size:16px; color:#283439; " value="http://www123.wangzhuanb.top/">  
          <input type="hidden" name="subflag" value="1">  
          <input type="submit" value="模拟">  
    </form>  
    </td>  
  </tr>  
  <tr>  
  <td>  
  <div style="overflow-y:scroll;height:600px;">  
  
  <%   
  Function SaveTOFile(ByVal FileName,ByRef Content,ByVal Chrset)  
    On Error Resume Next  
    dim stm:set stm=Server.CreateObject("ADODB.Stream")  
    stm.Type=1  
    stm.Mode=3  
    stm.CharSet=Chrset  
    stm.Open  
    stm.Write content  
    stm.SaveToFile Server.MapPath(FileName),2   
    stm.Flush  
    stm.Close  
    Set stm=Nothing  
   If Err Then  
     WriteTOFile = False  
   Else  
     WriteTOFile = True  
   End If  
End Function  
Dim SubFlag  
SubFlag = Request.form("subflag")  
If Not IsNull(SubFlag) and Trim(SubFlag)<>"" Then  
    Dim WinHttp   
    Set WinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")   
    '设置参数   
    WinHttp.SetTimeouts 60000, 60000, 60000, 3000 '设置操作超时时间   
    'WinHttp.SetTimeouts resolveTimeout, connectTimeout, sendTimeout, receiveTimeout   
    'resolveTimeout = 10000 '解析 DNS 名字的超时时间，10000 毫秒。   
    'connectTimeout = 10000 '建立 Winsock 连接的超时时间，10000 毫秒。   
    'sendTimeout = 120000 '发送数据的超时时间，120000 毫秒。   
    'receiveTimeout = 60000 '接收 response 的超时时间，60000 毫秒。   
    WinHttp.Option(4) = 13056 '忽略错误标志   
    WinHttp.Option(6) = 0  '为 True 时，当请求页面重定向跳转时自动跳转，False 不自动跳转，截取服务端返回的302状态。   
    WinHttp.Open "GET", Trim(Request.form("txtUrl")), True 'GET 或 POST, Url, False 同步方式；True 异步方式 http://www123.wangzhuanb.top/  
    '组成 HTTP 头信息   
    WinHttp.SetRequestHeader "Accept", "*/*" '接受数据类型   
    WinHttp.SetRequestHeader "Accept-Language", "zh-cn,zh" '用户系统语言   
    WinHttp.SetRequestHeader "User-Agent", "Mozilla/6.0" '用户浏览器信息   
    WinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" '编码方式   
    WinHttp.SetRequestHeader "Referer", "http://www.baidu.com/" '来路   
    WinHttp.SetRequestHeader "Connection", "Close" 'Close = 不保持连接，Keep-Alive = 保持连接(持久连接)   
    'WinHttp.SetRequestHeader "Accept-Encoding", "gzip, deflate" '如果发送，会返回 gzip, deflate 压缩过的编码   
    'WinHttp.SetRequestHeader "Content-Length", Len(Str) '内容长度，Post 方式用的。   
    WinHttp.SetRequestHeader "Cookie", "test cookie!" '设置 Cookie   
    '发送数据   
    WinHttp.Send 'Post 方式：WinHttp.Send (参数)   
    WinHttp.WaitForResponse '等待返回请求，XMLHTTP中也可以使用   
    '输出结果   
    Response.Write WinHttp.Status '当前 HTTP 状态   
    'Response.Write WinHttp.ResponseText '文本数据   
    'Response.BinaryWrite WinHttp.ResponseBody '二进制数据流数据   
    SaveTOFile "1.html",WinHttp.ResponseBody,"utf-8"  
%>  
 <iframe src="1.html" marginheight="0" marginwidth="0" frameborder="0" scrolling="no" width=100% height=100% id="iframepage" name="iframepage"></iframe>  
<%  
Else  
%>  
  
<%  
End If  
%>  
</div>   
</td>  
  </tr>  
  <tr>  
    <td bgcolor="#152753"> </td>  
  </tr>  
</table>  
</body>  
<SCRIPT LANGUAGE="JavaScript">  
    function checkinput()  
    {  
        if (document.forms["addfrm"]["txtUrl"].value==""){  
        alert("提示：路径名称不能为空！");  
        return false;  
        }  
        return true;  
    }  
  
    </SCRIPT>  
</html>
评论列表
本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
　Referer　
同语言下
可能有用的
依依贡献的其它代码(32)