强制刷新和判断文件地址

代码如下: 强制刷新网页 %  ''强制性刷新随机验证码  ''让随机验证码每次按IE的后退按钮时,返回登录页面的随即码都自动刷新,  Response.expires=-1  Response.AddHeader'pragma','no-cache'  Response.AddHeader'cache-control','no-store' %   判断文件地址是否有效 代码如下: %  ''原创作者:小艺QQ:52093时间:2005.6.30  Response.Write('headst

作者: 来源: 时间: 17-11-23 15:12:20

代码如下:
强制刷新网页
<% 
  ''强制性刷新随机验证码
  ''让随机验证码每次按IE的后退按钮时,返回登录页面的随即码都自动刷新,
  Response.expires=-1 
  Response.AddHeader"pragma","no-cache" 
  Response.AddHeader"cache-control","no-store" 
%>
  判断文件地址是否有效
代码如下:
<%
  ''原创作者:小艺 QQ:52093 时间:2005.6.30 
  Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")
  On Error Resume Next
  Dim thisurl,thistext
  thisurl=Request("thisurl") ''定义文件地址(非Html格式文档)!
  if thisurl="" then
   Response.Write("<span>请先输入文件地址!</span>")
   Response.End
  End if 
  Function objxmlhttp(xmlurl)
   On Error Resume Next
   Set objxml = CreateObject("Microsoft.XMLHTTP")
   objxml.Open "get",xmlurl,false
   objxml.setrequestheader "content-type","application/x-www-form-urlencoded"
   objxml.send
   objxmlhttp = objxml.responsebody
   if Err then
    Err.Clear
    Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"!
</span>")
    Response.End
   End if
  End Function

  Function bytes2BSTR(vIn)
   strReturn = ""
   For i = 1 To LenB(vIn)
    ThisCharCode = AscB(MidB(vIn,i,1))
    If ThisCharCode < &H80 Then
     strReturn = strReturn & Chr(ThisCharCode)
    Else
     NextCharCode = AscB(MidB(vIn,i+1,1))
     strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
     i = i + 1
    End If
   Next
   bytes2BSTR = strReturn
  End Function

  thisurl2=Split(thisurl,",")
  For Each ii In thisurl2
   thistext=bytes2BSTR(objxmlhttp(ii))
   if InStr(thistext,"<html>")<>0 then
    Response.Write("<span>"& ii &" <b>×</b></span><br>")
   Else
    Response.Write("<span>"& ii &" <b>√</b></span><br>")
   End if
  Next

  if Err then
   Err.Clear
   Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"!</span>")
   Response.End
  End if
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们