查看完整版本: 把网页中的电话号码生成图片的ASP程序

把网页中的电话号码生成图片的ASP程序

作用：用ASP程序将页面中的电话号码生成图片格式。[code]<% F A.Zy!yo:o/GS
Call Com_CreatValidCode(Request.QueryString("tel"))  
/WPy5BNn!Y!S Public Sub Com_CreatValidCode(pTel)  
*ct*{t.xn+|;j      '----------禁止缓存  
#lY!TYT&D5NW      Response.Expires = 0
2M0|@ ~;u W? oX$},s      Response.AddHeader "Pragma","no-cache"  
"s sy#[ ZNmv      Response.AddHeader "cache-ctrol","no-cache"  
1y@^O~      Response.ContentType = "Image/BMP"  

vYrC$D8N}      Randomize  :Ax v\9SQ^S\
     Dim i, ii, iii ,rndColor,strLen,sql,rs ;M,x$N(C:{ \
     Const cOdds = 5 '------------杂点出现的机率
#H$B_3e,?'K2Hu6E'~      Const str="0123456789-"  
:Po.@Cf"R"__      strLen = len(pTel)
Yd!k
`Fv"S      rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
6U\om
\]      '-----------颜色的数据(字符，背景)  (J7x}8aRRK {.OT
     Dim vColorData(1)  #]hg kh/]}i
     'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '----蓝0，绿0，红0（黑色）  
9cQ*a1FRF6H(r      'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----蓝250，绿236，红211（浅蓝色）  3SnBc:tjG
     'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49)     '---- 蓝0，绿0，红0（黑色）  
(^ E \4Y%D1P      'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----蓝250，绿236，红211（浅蓝色）  
IOu3Xy&|#^xl      vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '---------蓝0，绿0，红0（黑色）  
5NoS,xv,^      vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------蓝250，绿236，红211（浅蓝色）  
d_x*W8f i.g5H8Qx(Y Q
     '--------------------随机产生字符   B/`1u8^uY:o~+?^
     Randomize .O,n{Z)[.rlx$^1?_/N
     Dim vCode() .x~o%Bb~ ]
     redim vCode(strLen-1)
Y.Uiu_      For i = 0 To strLen-1
+U,sCV3T*x          vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1 7v9^/Zy@N@W8a
     Next  %a*Kc*F'_7r
];?$LwV
     '-----------字符的数据  O{;q/H+Nz-WBc
     Dim vNumberData(11)  
9\if[LD      'Verdana Font
*|&Jy ^)T A9~/v)Mp      vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"  s&p{S9X
     vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111"  
F"y0~/D0r      vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111"  *p.sW/H%T7c.c
     vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111"   d,]xU:nlGUS6\
     vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111"  
_qjU9sdp6Rh      vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111"  
)L-xE;j ~6pM$\      vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111"  
q
?ZxihP      vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111"  
\"aBL0AK      vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"  ?-K.t?L
     vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"  Hh
@2\8h ?
     vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111"  
qT*ZF:F~Z5zTd      vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111"  +@ O+?"^J[
     '-----------------输出图像文件头

So
}#m k;q?
FaW#eOfFx/{i0a&s
     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) &_  
%X-X(S6G&y(N:V(Y      ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_  W UKA1W
     ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_  
AK*G9A)yp      ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)  
5? }[a \ ?RI      '------------------输出图像信息头  
Q FcY9l      Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
.L:_%cc f      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)&_  ;Tt0Vv|w
     ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_   r$F*DAb{1y+u
      ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)   {C;ST+A/Q@ Q|
     For i = 9 To 0 Step -1     '----------历经所有行  L/gqP,E,Py.W P
         For ii = 0 To strLen-1     '-------历经所有字  
;b i:V(e E1`
~"\              For iii = 1 To 8 '--------历经所有像素  
)MV!Xc$FI                 '---------逐行、逐字、逐像素地输出图像数据  &_4m,~9Xm*FV
                If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点  
I^8a$A o7b]7O                      Response.BinaryWrite rndColor
:DPy9GG,q#a                 Else  
j4@0R&pR4M&pj                      Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))  
l1K:j WXv+nE1f                 End If  
m8E*k8st|x"h-K S              Next  lAF`g.kb
         Next  
/C^u_]n      Next  
/e,uYxoSlG End Sub
%t
Ymb`^ %>[/code]将以上代码保存为img.asp，在要显示电话号码的位置插入<img src="img.asp?tel=010-0000000">即可。