IT码农库

您当前所在位置:首页 > 网络编程 > 编程10000问

编程10000问

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

互联网 2006-11-16编程10000问10048
如何终止浏览器的Cahce页面? Function Redirect( NewURL ) If Not IsEmpty( NewURL & "" ) ThenDim QuestionMark QuestionMark = Instr( NewURL, "?" )If QuestionMark = 0 ThenResponse.Redirect NewURL & "?" & NoCacheURL()Response.End ElseRespo...

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

大图广告(830*140)