QUOTE: <% '/////////////////////////// '// 防御CC刷新的asp头 // '///////////////////////////
Dim s '提示用的Html Dim t '需要的延时,以秒为单位 t=5 s="<html><head><title>_Here's_Your_Title_</title><meta http-equiv=""refresh"" c"+CStr(t)+"""></head><body><br><br><br><br><br><center>载入中,请稍候……</center></body></html>" if session("refresh")="" then response.write s session("refresh")=timer response.end else if timer-session("refresh")<t then response.write s session("refresh")=timer response.end else session("refresh")=timer end if end if %> <% dim server_v1,server_v2 server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) if mid(server_v1,8,len(server_v2))<>server_v2 then response.write"<script>alert('请不要使用代理访问!');history.go(-1);</script>" response.end end if %>
新建个ASP,在力行调用
|