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

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

nbsp;

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

End If

nbsp;

Function NoCacheURL()

On Error Resume Next

Randomize

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

nbsp;

End Function

（编辑：我爱制作网_池州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!