這篇文章主要介紹了ASP強制刷新網頁和判斷文件地址實例代碼，需要的朋友可以參考下

強制刷新網頁

1. ＜% 
2. 　'強制性刷新隨機驗證碼 
3. 　'讓隨機驗證碼每次按IE的后退按鈕時，返回登錄頁面的隨即碼都自動刷新， 
4. 　Response.expires=-1 
5. 　Response.AddHeader"pragma","no-cache" 
6. 　Response.AddHeader"cache-control","no-store" 
7. %＞ 

判斷文件地址是否有效

1. ＜% 
2. 　Response.Write("") 
3. 　On Error Resume Next 
4. 　Dim thisurl,thistext 
5. 　thisurl=Request("thisurl") '定義文件地址(非Html格式文檔)! 
6. 　if thisurl="" then 
7. 　　Response.Write("請先輸入文件地址!") 
8. 　　Response.End 
9. 　End if 
10. 　Function objxmlhttp(xmlurl) 
11. 　　On Error Resume Next 
12. 　　Set objxml = CreateObject("Microsoft.XMLHTTP") 
13. 　　objxml.Open "get",xmlurl,false 
14. 　　objxml.setrequestheader "content-type","application/x-www-form-urlencoded" 
15. 　　objxml.send 
16. 　　objxmlhttp = objxml.responsebody 
17. 　　if Err then 
18. 　　　Err.Clear 
19. 　　　Response.Write("建立連接失敗,文件不存在或網絡有問題!;錯誤原因:"&Err.Description&"！") 
20. 　　　Response.End 
21. 　　End if 
22. 　End Function 
23. 　Function bytes2BSTR(vIn) 
24. 　　strReturn = "" 
25. 　　For i = 1 To LenB(vIn) 
26. 　　　ThisCharCode = AscB(MidB(vIn,i,1)) 
27. 　　　If ThisCharCode < &H80 Then 
28. 　　　　strReturn = strReturn & Chr(ThisCharCode) 
29. 　　　Else 
30. 　　　　NextCharCode = AscB(MidB(vIn,i+1,1)) 
31. 　　　　strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
32. 　　　　i = i + 1 
33. 　　　End If 
34. 　　Next 
35. 　　bytes2BSTR = strReturn 
36. 　End Function 
37. 　thisurl2=Split(thisurl,",") 
38. 　For Each ii In thisurl2 
39. 　　thistext=bytes2BSTR(objxmlhttp(ii)) 
40. 　　if InStr(thistext,"")<>0 then 
41. 　　　Response.Write(""& ii &" × 
42. ") 
43. 　　Else 
44. 　　　Response.Write(""& ii &" √ 
45. ") 
46. 　　End if 
47. 　Next 
48. 　if Err then 
49. 　　Err.Clear 
50. 　　Response.Write("碰到意外!;錯誤原因:"&Err.Description&"！") 
51. 　　Response.End 
52. 　End if 
53. %＞ 

以上就是ASP強制刷新網頁和判斷文件地址實例代碼，希望對大家的學習有所幫助。