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

     '------------------输出图像信息头
     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) &_
      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     '-------历经所有字
             For iii = 1 To 8 '--------历经所有像素
                '---------逐行、逐字、逐像素地输出图像数据
                If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点
                     Response.BinaryWrite rndColor
                Else
                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))

上一页 [1] [2] [3] [4] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:以这种方式做网站肯定会失败

下一篇:ASP和服务器测试相关的一些代码