ASP强制刷新网页和判断文件地址实例代码

2024-03-27 10:08:03 362

＜% '强制性刷新随机验证码 '让随机验证码每次按IE的后退按钮时，返回登录页面的随即码都自动刷新， Response.expires=-1 Response.AddHeader"pragma","no-cache" Response.AddHeader"cache-control","no-store" %＞

＜% Response.Write("") OnErrorResumeNext Dimthisurl,thistext thisurl=Request("thisurl")'定义文件地址(非Html格式文档)! ifthisurl=""then Response.Write("请先输入文件地址!") 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("建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！") 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,"")<>0then Response.Write(""&ii&"× ") Else Response.Write(""&ii&"√ ") Endif Next ifErrthen Err.Clear Response.Write("碰到意外!;错误原因:"&Err.Description&"！") Response.End Endif %＞

ASP强制刷新网页和判断文件地址实例代码

热门推荐

随机推荐