利用ASP实现在线生成电话图片效果脚本附演示

     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)) 
                End If 
             Next 
         Next 
     Next 
End Sub
%>

演示
http://tools.jb51.net/telimg/index.asp
index.asp内容为

<img src="http://tools.jb51.net/telimg/telimg.asp?tel=0516-82767226">