如何终止浏览器的Cahce页面？

网络编程 2024/11/1 佚名

3 2 1

Function Redirect( NewURL )

If Not IsEmpty( NewURL & "" ) Then

Dim QuestionMark

QuestionMark = Instr( NewURL, "?" )

If QuestionMark = 0 Then

Response.Redirect NewURL & "?" & NoCacheURL()

Response.End

Else

Response.Redirect NEWURL & "&" & NoCacheURL()

Response.End

End If

Function NoCacheURL()

On Error Resume Next

Randomize

NoCacheURL = "NoCache=" & Server.URLEncode(rnd)

End Function

标签：

免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com