强制刷新和判断文件地址

时间：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邮箱联系删除。

相关文章