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,在力行调用
|
