ASP強制刷新網頁和判斷文件地址實例代碼

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

強制刷新網頁

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

判斷文件地址是否有效

1. ＜%
2. Response.Write()
3. OnErrorResumeNext
4. Dimthisurl,thistext
5. thisurl=Request(thisurl)'定義文件地址(非Html格式文檔)!
6. ifthisurl=then
7. Response.Write(請先輸入文件地址!)
8. Response.End
9. Endif
10. Functionobjxmlhttp(xmlurl)
11. OnErrorResumeNext
12. Setobjxml=CreateObject(Microsoft.XMLHTTP)
13. objxml.Openget,xmlurl,false
14. objxml.setrequestheadercontent-type,application/x-www-form-urlencoded
15. objxml.send
16. objxmlhttp=objxml.responsebody
17. ifErrthen
18. Err.Clear
19. Response.Write(建立連接失敗,文件不存在或網絡有問題!;錯誤原因:&Err.Description&！)
20. Response.End
21. Endif
22. EndFunction
23. Functionbytes2BSTR(vIn)
24. strReturn=
25. Fori=1ToLenB(vIn)
26. ThisCharCode=AscB(MidB(vIn,i,1))
27. IfThisCharCode<&H80Then
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. EndIf
34. Next
35. bytes2BSTR=strReturn
36. EndFunction
37. thisurl2=Split(thisurl,,)
38. ForEachiiInthisurl2
39. thistext=bytes2BSTR(objxmlhttp(ii))
40. ifInStr(thistext,)<>0then
41. Response.Write(&ii&×
42. )
43. Else
44. Response.Write(&ii&√
45. )
46. Endif
47. Next
48. ifErrthen
49. Err.Clear
50. Response.Write(碰到意外!;錯誤原因:&Err.Description&！)
51. Response.End
52. Endif
53. %＞

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