如何终止浏览器的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
