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

　　强制刷新网页

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

　　判断文件地址是否有效

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

　　以上就是ASP强制刷新网页和判断文件地址实例代码，希望对大家的学习有所帮助。