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

強(qiáng)制刷新網(wǎng)頁

1. ＜% 
2. 　'強(qiáng)制性刷新隨機(jī)驗(yàn)證碼 
3. 　'讓隨機(jī)驗(yàn)證碼每次按IE的后退按鈕時(shí)，返回登錄頁面的隨即碼都自動(dòng)刷新， 
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("請(qǐng)先輸入文件地址!") 
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("建立連接失敗,文件不存在或網(wǎng)絡(luò)有問題!;錯(cuò)誤原因:"&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("碰到意外!;錯(cuò)誤原因:"&Err.Description&"！") 
51. 　　Response.End 
52. 　End if 
53. %＞ 

以上就是ASP強(qiáng)制刷新網(wǎng)頁和判斷文件地址實(shí)例代碼，希望對(duì)大家的學(xué)習(xí)有所幫助。