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

作用：将页面中的电话号码生成图片格式。


代码如下:

<%
Call Com_CreatValidCode(Request.QueryString("tel"))

Public Sub Com_CreatValidCode(pTel)

'----------禁止缓存 
     Response.Expires = 0
     Response.AddHeader "Pragma","no-cache" 
     Response.AddHeader "cache-ctrol","no-cache" 
     Response.ContentType = "Image/BMP"

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))

'-----------颜色的数据(字符，背景) 
     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（浅蓝色）

vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '---------蓝0，绿0，红0（黑色） 
     vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------蓝250，绿236，红211（浅蓝色）

'--------------------随机产生字符 
     Randomize

Dim vCode()
     redim vCode(strLen-1)
     For i = 0 To strLen-1
         vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
     Next

'-----------字符的数据 
     Dim vNumberData(11)

'Verdana Font
     vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111" 
     vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111" 
     vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111" 
     vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111" 
     vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111" 
     vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111" 
     vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111" 
     vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111" 
     vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111" 
     vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111" 
     vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111" 
     vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111"

'-----------------输出图像文件头 <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) &_ 
     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)

'------------------输出图像信息头 
     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)) 
                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">

赞 (0)

相关推荐

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

    作用:将页面中的电话号码生成图片格式. 复制代码 代码如下: <% Call Com_CreatValidCode(Request.QueryString("tel")) Public Sub Com_CreatValidCode(pTel) '----------禁止缓存       Response.Expires = 0      Response.AddHeader "Pragma","no-cache"       Respons

  • 利用asp.net实现生成不重复订单号

    复制代码 代码如下: #region 生成单据号 /// <summary> /// 生成单据号 /// </summary> /// <param name="pFromType"></param> /// <returns></returns> public static string GetFormCode(FormType pFromType) { string formcode = ""

  • jQuery实现的指纹扫描效果实例(附演示与demo源码下载)

    jQuery实现的指纹扫描效果实例(附演示与demo源码下载)

    本文实例讲述了jQuery实现的指纹扫描效果.分享给大家供大家参考,具体如下: 运行效果截图如下: 点击此处查看在线演示效果. 具体代码如下: <!DOCTYPE html> <html> <head> <meta charset="UTF-8" /> <title>demo</title> <style type="text/css"> body { background:blac

  • 利用ASP.NET技术动态生成HTML页面

    思路 1. 利用如Dw-Mx这样的工具生成html格式的模板,在需要添加格式的地方加入特殊标记(如$htmlformat$),动态生成文件时利用代码读取此模板,然后获得前台输入的内容,添加到此模板的标记位置中,生成新文件名后写入磁盘,写入后再向数据库中写入相关数据. 2. 使用后台代码硬编码Html文件,可以使用HtmlTextWriter类来写html文件. 优点 1. 可以建立非常复杂的页面,利用包含js文件的方法,在js文件内加入document.write()方法可以在所有页面内加入如页

  • asp.net利用后台实现直接生成html分页的方法

    asp.net利用后台实现直接生成html分页的方法

    本文实例讲述了asp.net利用后台实现直接生成html分页的方法,是一个比较实用的功能.分享给大家供大家参考之用.具体方法如下: 1.建立存储过程: ALTER procedure [dbo].[p_news_query] @Page int as begin select top 5 new_id,new_title,new_url,new_content_text,create_time,user_name from (select *,ROW_NUMBER() over(order by

  • jsp实现生成中国国旗图片效果代码

    jsp实现生成中国国旗图片效果代码

    本文实例讲述了jsp实现生成中国国旗图片效果代码.分享给大家供大家参考,具体如下: 图片截图如下: 具体代码如下: <%@ page language="java" import="java.util.*" pageEncoding="UTF-8"%> <%@ page contentType="image/jpeg" import="java.awt.*, java.awt.image.*,jav

  • 利用JS实现简单的瀑布流加载图片效果

    利用JS实现简单的瀑布流加载图片效果

    今天学习了一个瀑布流加载效果,很多网站都有瀑布流效果,瀑布流就是很多产品显示在网页上,宽相同,高度不同,表现为多栏布局,随着页面滚动条向下滚动,这种布局还会不断加载数据块并附加至当前尾部. 原理是: 1.设定一行中的列数: 2.取第一行中每一个div的高度并把每一个高度放进一个数组中: 3.算出数组中最小高度的index值: 4.把第二行的第一个div放到最小高度的div的下方并把重新算出的高度值放进数组中,重新计算最小高度的index值: 5.以此类推实现多栏布局的瀑布流效果: 6.如果最后一

  • 利用Python实现朋友圈中的九宫格图片效果

    前言 大家应该经常在朋友圈看到有人发九宫格图片,其实质就是将一张图片切成九份,然后在微信中一起发这九张图即可. 说到切图,Python 就可以实现,主要用到的 Python 库为 Pillow,安装使用 pip install pillow 即可,切图的主要步骤如下: 打开要处理的图片 判断打开的图片是否为正方形 如果是正方形,就进行九等分,如果不是正方形,先用白色填充为正方形,再进行九等分 保存处理完的图片 主要实现代码如下: # 填充新的 image def fill_image(image

  • python利用faker库批量生成测试数据

    安装 pip install faker 使用 简单使用 本库可生成姓名.地址.电话.邮箱.公司等等一系列数据.首先导入库,实例化: from faker import Faker fake = Faker() 先看看正面生成一个人的姓名地址吧: for _ in range(10): print(fake.name()) rs. Elizabeth Carter MD Mark Obrien Madeline Oliver Ruth Newman Lori Bennett Victor Nol

  • 利用ASP.NET MVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug(四)

    利用ASP.NET MVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug(四)

    我的个人博客站在使用百度富文本编辑器UEditor修改文章时,遇到了一些问题,(不知是bug,还是我没有配置好).但总算找到了解决方法,在此记录下来. 小站首页文章列表显示为(显示去除HTML标签后的前600个字符): 具体在www.zynblog.com 遇到的问题: 正常来讲,进入文章修改页,只需将UEditor对应的textarea的value设置为文章Content就行了: $('#editor').val('@Html.Raw(this.Model.Contents)'); 最开始我就

随机推荐