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强制刷新网页和判断文件地址实例代码，希望对大家的学习有所帮助。