下沙论坛

 找回密码
 注册论坛(EC通行证)

用新浪微博连接

一步搞定

QQ登录

QQ登录

下沙大学生网QQ群8(千人群)
群号:6490324 ,验证:下沙大学生网。
用手机发布本地信息严禁群发,各种宣传贴请发表在下沙信息版块有问必答,欢迎提问 提升会员等级,助你宣传
新会员必读 大学生的论坛下沙新生必读下沙币获得方法及使用
查看: 2757|回复: 1
打印 上一主题 下一主题

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

[复制链接]
  • TA的每日心情
    开心
    2014-7-28 21:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    跳转到指定楼层
    1
    发表于 2009-4-16 08:44:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    作用:用ASP程序将页面中的电话号码生成图片格式。 以下是引用片段:
    ' B: \8 ^+ B  l<% : g2 {9 A5 M7 ?& N/ C
    Call Com_CreatValidCode(Request.QueryString("tel"))  
    1 Y8 g: A; L7 v5 i! P; XPublic Sub Com_CreatValidCode(pTel)  / t2 A8 B# a. @- i4 Q7 A. W$ T
         '----------禁止缓存  
    6 u. A! s2 P+ E' c* e     Response.Expires = 0
    ! ?- t  y2 e' b$ L3 z  @2 V! ]     Response.AddHeader "Pragma","no-cache"  ' O( O8 g* R) m4 t* m
         Response.AddHeader "cache-ctrol","no-cache"  6 G8 c" m( _7 ?7 }& S$ o) E" J# g
         Response.C  
    , M1 I  s8 i/ T. D4 X& Z0 O, r     Randomize  
    1 y* o/ K% K, c8 Z- {0 w     Dim i, ii, iii ,rndColor,strLen,sql,rs ' _$ [: `) h- N& n0 J; B
         Const cOdds = 5 '------------杂点出现的机率
    9 j; _' a0 b' C5 E/ R     Const str="0123456789-"  
    . ~0 C$ x- l; S3 {6 g# R% R: v! K     strLen = len(pTel) * i" L0 D6 x- t' r( J' m
         rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) 0 r; I6 \& }% y- r) c& f/ Z3 p
         '-----------颜色的数据(字符,背景)  
    * d- }2 y, s: \5 b" @; h# r. b     Dim vColorData(1)  
    - Q; {  _6 Z% H     'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '----蓝0,绿0,红0(黑色)  
    5 w) \& ]% g) S# Y, j' [5 O     'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----蓝250,绿236,红211(浅蓝色)  * z+ u$ D3 g6 a- j6 }
         'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49)     '---- 蓝0,绿0,红0(黑色)  
    / E7 d) l* E  F4 a5 A! N6 w) b/ i5 U     'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----蓝250,绿236,红211(浅蓝色)  
    ' d/ i% x( t- P' L     vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '---------蓝0,绿0,红0(黑色)  
    % w5 W$ |. r# n# d     vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------蓝250,绿236,红211(浅蓝色)  6 R3 ^/ D1 ]* O! J* K* z. \; E
         '--------------------随机产生字符  
    : ~" E) m6 T- @+ \4 h     Randomize ' u1 I# s, S0 I4 b3 b1 Q
         Dim vCode() 6 y) J: _! U8 `
         redim vCode(strLen-1) - \: o# B- |+ P" X8 F5 M
         For i = 0 To strLen-1 ' n) m- i% i# ?7 F$ w8 f+ u
             vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
    ( d& |) @! ?( \$ |# Z. O     Next  
    3 ^) H4 I; ?% W  m5 w  x1 a     '-----------字符的数据  
    & e! i8 D( N7 y% h! O  S6 c4 ]; Q     Dim vNumberData(11)  
    : s( B% n. W4 ~5 ^3 L  S     'Verdana Font
    % h6 p1 {' j  `1 S1 i     vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"  
    ' _# }) r$ A; K  A     vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111"  
    & B+ ]' ]8 g+ k" K+ U; x     vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111"  
    $ E* A' l3 g( L. Z     vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111"  
    5 d# V( W# U/ ~8 Y3 h     vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111"  + g2 P% V" ]# d3 h0 ~7 K
         vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111"  
    4 N) t, H5 E2 k; T8 u: E& Z     vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111"  
    1 W  K) }9 A  \# u+ |( e1 s, z     vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111"  4 Y8 V0 m: o1 p, Y
         vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"  
    3 e% R& {) j3 J) l3 m     vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"  
    7 z7 W* F1 A9 k8 \2 p     vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111"  / z# X" a. L0 ^9 e. |+ ?/ @2 f
         vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111"  
    1 R: ~5 }! \. V, o! L( j" }     '-----------------输出图像文件头 <br>
    . f* {$ v) k" b! X4 _, I     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) &_  
    ; `- n( \# a  |0 h7 N3 f# d     ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_  
    , q+ B6 e# u8 G5 s  B     ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_  + E7 [/ z1 }6 I9 V- F
         ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)  / x- h8 ]8 \6 \: p! F* r5 \0 W5 x0 b* F
         '------------------输出图像信息头  
    * F, X+ u5 f& f: I0 t( j& C6 C     Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_ 9 b& J- P5 q: {1 [
         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)&_  # L  W% A- B! q) e2 o. Y
         ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_  $ P, H) i1 |9 e
          ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)  
    . V) Z+ M: B4 h5 o/ A; C     For i = 9 To 0 Step -1     '----------历经所有行  
    + g% J) O1 H% u( f$ y6 M1 m         For ii = 0 To strLen-1     '-------历经所有字  
    ' Y. o+ d+ [* ^* \6 S             For iii = 1 To 8 '--------历经所有像素  
    5 E# Y+ L7 X( G# m3 Y' u3 v                '---------逐行、逐字、逐像素地输出图像数据  9 _1 o# V& |# x4 [% Z) B. B2 a2 k
                    If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点  
    6 a& \6 g4 a4 K; D  U4 J$ D+ ^                     Response.BinaryWrite rndColor 5 o' V! s6 T; ?. J" y( O
                    Else  
    1 v! L  f) ]( D                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))  
    8 v/ w( l) M1 i  J% F                End If  
    & W4 G8 P- U; [: e             Next  4 n! Y( |+ Y* |9 `, T: V8 Q9 H
             Next  1 j" X3 B4 r5 a! V/ Z7 R7 r5 }, Q
         Next  # ]1 H+ q1 K6 y, F$ Q; a
    End Sub 9 Z$ Z. U( b# }8 b0 O9 t
    %> 6 A* Q% k" o9 @9 `: w) B

    & _5 N# U) I) c- y: V      将以上代码保存为img.asp,在要显示电话号码的位置插入<img src="img.asp?tel=010-0000000">即可。
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏 分享分享 顶 踩 转发到微博
  • TA的每日心情
    开心
    2014-7-28 21:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    2
     楼主| 发表于 2009-4-16 09:17:59 | 只看该作者
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    下沙大学生网推荐上一条 /1 下一条

    快速回复 返回顶部 返回列表