强制刷新和判断文件地址

时间:2021-05-18

复制代码 代码如下:
强制刷新网页
<%
 '强制性刷新随机验证码
 '让随机验证码每次按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>")
 OnErrorResumeNext
 Dimthisurl,thistext
 thisurl=Request("thisurl")'定义文件地址(非Html格式文档)!
 ifthisurl=""then
  Response.Write("<span>请先输入文件地址!</span>")
  Response.End
 Endif
 Functionobjxmlhttp(xmlurl)
  OnErrorResumeNext
  Setobjxml=CreateObject("Microsoft.XMLHTTP")
  objxml.Open"get",xmlurl,false
  objxml.setrequestheader"content-type","application/x-www-form-urlencoded"
  objxml.send
  objxmlhttp=objxml.responsebody
  ifErrthen
   Err.Clear
   Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"!
</span>")
   Response.End
  Endif
 EndFunction

 Functionbytes2BSTR(vIn)
  strReturn=""
  Fori=1ToLenB(vIn)
   ThisCharCode=AscB(MidB(vIn,i,1))
   IfThisCharCode<&H80Then
    strReturn=strReturn&Chr(ThisCharCode)
   Else
    NextCharCode=AscB(MidB(vIn,i+1,1))
    strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
    i=i+1
   EndIf
  Next
  bytes2BSTR=strReturn
 EndFunction

 thisurl2=Split(thisurl,",")
 ForEachiiInthisurl2
  thistext=bytes2BSTR(objxmlhttp(ii))
  ifInStr(thistext,"<html>")<>0then
   Response.Write("<span>"&ii&"<b>×</b></span><br>")
  Else
   Response.Write("<span>"&ii&"<b>√</b></span><br>")
  Endif
 Next

 ifErrthen
  Err.Clear
  Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"!</span>")
  Response.End
 Endif
%>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章