如何終止瀏覽器的Cahce頁(yè)面?
如何終止瀏覽器的Cahce頁(yè)面?
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
相關(guān)文章
如何實(shí)現(xiàn)電子郵件的自動(dòng)發(fā)送?
如何實(shí)現(xiàn)電子郵件的自動(dòng)發(fā)送?...2006-11-11如何檢測(cè)用戶第一次訪問(wèn)我的網(wǎng)站并顯示友好信息?
如何檢測(cè)用戶第一次訪問(wèn)我的網(wǎng)站并顯示友好信息?...2006-11-11