站长资源网络编程
如何终止浏览器的Cahce页面?
简介如何终止浏览器的Cahce页面? Function Redirect( NewURL ) If Not IsEmpty( NewURL & "" ) ThenDim QuestionMark QuestionMark = Instr( NewURL, "?" )If QuestionMark = 0
如何终止浏览器的Cahce页面?
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
Function NoCacheURL()
On Error Resume Next
Randomize
NoCacheURL = "NoCache=" & Server.URLEncode(rnd)
End Function
上一篇:如何做一个检索结果带链接的检索?
下一篇:如何实现非大小写的替换?