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

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