怎样在asp中输出有数字的图片？

 1   
 2Private Function EncryptString(strString)   
 3  
 4Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet   
 5Randomize Timer   
 6  
 7intKey = Round((RND * 1000000) + 1000000) '##### Key Bitsize   
 8intOffSet = Round((RND * 1000000) + 1000000) '##### KeyOffSet Bitsize   
 9  
10If IsNull(strString) = False Then   
11strRAW = strString   
12intStringLen = Len(strRAW)   
13  
14For i = 0 to intStringLen - 1   
15strTemp = Left(strRAW, 1)   
16strRAW = Right(strRAW, Len(strRAW) - 1)   
17CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey)   
18Next   
19  
20EncryptString = CharHexSet & " ¦" & Hex(intOffSet + intKey) & " ¦" & Hex(intOffSet)   
21Else   
22EncryptString = ""   
23End If   
24End Function   
25  
26  
27Private Function DeCryptString(strCryptString)   
28  
29Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData   
30  
31strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, " ¦"))   
32intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey," ¦"))   
33intKey = HexConv(Left(strRawKey, InStr(strRawKey, " ¦") - 1)) - HexConv(intOffSet)   
34strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1))   
35  
36  
37arHexCharSet = Split(strHexCrypData, Hex(intKey))   
38  
39For i=0 to UBound(arHexCharSet)   
40strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey)   
41Next   
42  
43DeCryptString = strRAW   
44End Function   
45  
46  
47  
48Private Function HexConv(hexVar)   
49Dim hxx, hxx_var, multiply   
50IF hexVar <> "" THEN   
51hexVar = UCASE(hexVar)   
52hexVar = StrReverse(hexVar)   
53DIM hx()   
54REDIM hx(LEN(hexVar))   
55hxx = 0   
56hxx_var = 0   
57FOR hxx = 1 TO LEN(hexVar)   
58IF multiply = "" THEN multiply = 1   
59hx(hxx) = mid(hexVar,hxx,1)   
60hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var   
61multiply = (multiply * 16)   
62NEXT   
63hexVar = hxx_var   
64HexConv = hexVar   
65END IF   
66End Function   
67  
68Private Function get_hxno(ghx)   
69If ghx = "A" Then   
70ghx = 10   
71ElseIf ghx = "B" Then   
72ghx = 11   
73ElseIf ghx = "C" Then   
74ghx = 12   
75ElseIf ghx = "D" Then   
76ghx = 13   
77ElseIf ghx = "E" Then   
78ghx = 14   
79ElseIf ghx = "F" Then   
80ghx = 15   
81End If   
82get_hxno = ghx   
83End Function