电话号码生成图片的ASP程序

秋风舞落叶

作用：用ASP程序将页面中的电话号码生成图片格式。 以下是引用片段：
<%
Call Com_CreatValidCode(Request.QueryString("tel"))  
Public Sub Com_CreatValidCode(pTel)  
+ k' I: E4 n5 J+ z6 T' b- \4 l     '----------禁止缓存  
     Response.Expires = 0
/ O% C- V1 C8 A* Z6 H! T( ^. v     Response.AddHeader "Pragma","no-cache"  
+ Q( s. j( W: J- ?0 J$ X5 y4 f' I     Response.AddHeader "cache-ctrol","no-cache"  
9 y/ n! U7 I0 \- C8 f' E2 Z9 F  r     Response.C  
# ~4 j/ W. H1 o; X$ {" \6 U     Randomize  
     Dim i, ii, iii ,rndColor,strLen,sql,rs
     Const cOdds = 5 '------------杂点出现的机率
     Const str="0123456789-"  
     strLen = len(pTel)
     rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
( v$ `* _# A1 z& n: V6 d% K     '-----------颜色的数据(字符，背景)  
     Dim vColorData(1)  
     'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '----蓝0，绿0，红0（黑色）  
     'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----蓝250，绿236，红211（浅蓝色）  
     'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49)     '---- 蓝0，绿0，红0（黑色）  
     'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----蓝250，绿236，红211（浅蓝色）  
- }9 ?1 Z1 a3 R* A" s+ F. U     vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '---------蓝0，绿0，红0（黑色）  
     vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------蓝250，绿236，红211（浅蓝色）  
     '--------------------随机产生字符  
     Randomize
% d: e) s2 c* z. t8 n2 }     Dim vCode()
     redim vCode(strLen-1)
8 _- ~6 Q7 T1 V; H1 l     For i = 0 To strLen-1
         vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
' f% t# j) Y9 Q( F" n" \     Next  
) B3 l# M4 ^6 C     '-----------字符的数据  
# ?) X4 w6 v: P5 j2 s. `6 a( E. g% c0 g     Dim vNumberData(11)  
     'Verdana Font
5 \3 _5 G: c- q; G     vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"  
4 v) {6 e# O) h0 `$ R! [; w     vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111"  
     vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111"  
     vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111"  
     vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111"  
, Y2 I6 s, g% I6 l2 j& |0 m     vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111"  
$ u3 l7 [, D7 h7 p8 L* G: E     vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111"  
& L$ K" h: m  u$ @     vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111"  
     vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"  
. q/ M' F  f! x- g" X% h     vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"  
6 q; x3 y! s1 D3 }/ g     vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111"  
0 s# J8 D+ }' S3 ?6 Y     vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111"  
) Q4 g9 e- k) |) |( ~     '-----------------输出图像文件头 <br>
     Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54)\ 256)mod 256) & ChrB((((strLen*8*10*3+54)\ 256)\256)mod 256) & ChrB(((((strLen*8*10*3+54)\ 256)\256)\256)mod 256) & ChrB(0) & ChrB(0) &_  
$ U3 G) Y( H# O" k* m     ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_  
     ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_  
     ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)  
4 ]3 f9 @: k: [. f9 {, E     '------------------输出图像信息头  
4 a" m; W9 F8 z# v3 G     Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
     ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)\256)mod 256)&ChrB((((strLen*8*10*3)\256)\256)mod 256)&ChrB(((((strLen*8*10*3)\256)\256)\256)mod 256)&_  
     ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_  
4 D. k, \2 N8 f6 G* w      ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)  
     For i = 9 To 0 Step -1     '----------历经所有行  
         For ii = 0 To strLen-1     '-------历经所有字  
: E- `3 l: |% l# J             For iii = 1 To 8 '--------历经所有像素  
0 j" {8 N  j3 w                '---------逐行、逐字、逐像素地输出图像数据  
                If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点  
% |% {1 f5 _2 j1 q                     Response.BinaryWrite rndColor
) d$ ^$ E/ j: b5 a% u7 a0 T0 j                Else  
+ u& L9 i" q% @, O4 M) R                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))  
7 h# @, f) l5 d5 o' q2 O' _7 V                End If  
             Next  
" |/ w1 Q5 q/ f/ w         Next  
8 f+ x- W6 B) g; I     Next  
End Sub
* R: D, Q5 B" }4 ?! O0 S$ n; f/ g%>
$ U" @+ V1 U2 \- ~. k
+ i) A. R! H7 ?5 ~6 t8 q0 D      将以上代码保存为img.asp，在要显示电话号码的位置插入<img src="img.asp?tel=010-0000000">即可。

秋风舞落叶