Home>Network programming tutorial>ASP tutorial

ASP forced refresh of web pages and judge file address instance code

Author：Eve Cole Update Time：2025-02-27 14:48:02

This article mainly introduces ASP forced refresh of web pages and judging file address instance code. Friends who need it can refer to it

Force refresh of the web page

  1. ＜%
  2. 'Mandatory refresh of random verification code
  3. 'Let the random verification code be automatically refreshed every time the back button of IE is pressed,
  4. Response.expires=-1
  5. Response.AddHeaderpragma,no-cache
  6. Response.AddHeadercache-control,no-store
  7. %＞

Determine whether the file address is valid

  1. ＜%
  2. Response.Write()
  3. OnErrorResumeNext
  4. Dimthisurl, thistext
  5. thisurl=Request(thisurl)' defines the file address (non-Html format document)!
  6. ifthisurl=then
  7. Response.Write (Please enter the file address first!)
  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 (Failed to establish the connection, the file does not exist or there is a network problem!; Error reason: &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 (I encountered an accident!;Error reason:&Err.Description&!)
  51. Response.End
  52. Endif
  53. %＞

The above is the code for forced refreshing of web pages and judging file address. I hope it will be helpful to everyone's learning.

Related Articles