把网页中的(电话，qq等数字)生成图片的ASP程序

作用：用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
%>

将以上代码保存为img.asp，在要显示电话号码的位置插入<img src="img.asp?tel=010-0000000">即可。

赞 (0)

相关推荐

  • C# WinForm捕获未处理的异常实例解析

    本文以一个完整的实例形式讲述了C# WinForm捕获未处理的异常的方法.分享给大家供大家参考之用.具体代码如下: using System; using System.Collections.Generic; using System.Windows.Forms; using System.IO; namespace GobalException { static class Program { /// <summary> /// 应用程序的主入口点. /// </summary>

  • C#实现将网页保存成图片的网页拍照功能

    本文实例主要实现了网页照相机程序的功能.C#实现将网页保存成图片格式,简单实现网页拍照,主要是基于ActiveX 组件的网页快照类,AcitveX 必须实现 IViewObject 接口.因此读者完全可扩展此类将其用于你的C#软件项目中.在此特别感谢作者:随飞提供的代码. 主要功能代码如下: using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices

  • WinForm特效之桌面上的遮罩层实现方法

    本文实例讲述了WinForm特效之桌面上的遮罩层实现方法,分享给大家供大家参考之用.具体如下: 这个一个窗体特效,可以帮你了解几个windows api函数. 效果:windows桌面上增加一个简单的遮罩层,其中WS_EX_TRANSPARENT 比较重要,它实现了鼠标穿透的功能. 主要功能代码如下: using System; using System.Drawing; using System.Windows.Forms; using System.Runtime.InteropServic

  • Winform实现抓取web页面内容的方法

    本文以一个非常简单的实例讲述了Winform实现抓取web页面内容的方法,代码简洁易懂,非常实用!分享给大家供大家参考. 具体实现代码如下: WebRequest request = WebRequest.Create("http://1.bjapp.sinaapp.com/play.php?a=" + PageUrl); WebResponse response = request.GetResponse(); Stream resStream = response.GetRespo

  • 使用C# Winform应用程序获取网页源文件的解决方法

    在C# Winform 应用程序中,获取某网页的源文件,可以用以下方法: 首先引入名称空间 using System.IO; using System.Net; WebClient MyWebClient = new WebClient(); MyWebClient.Credentials = CredentialCache.DefaultCredentials;//获取或设置用于向Internet资源的请求进行身份验证的网络凭据 Byte[] pageData = MyWebClient.Do

  • c#根据网址抓取网页截屏生成图片的示例

    复制代码 代码如下: using System.Drawing;using System.Drawing.Imaging;using System.IO;using System.Threading;using System.Windows.Forms; public class WebsiteToImage{private Bitmap m_Bitmap;private string m_Url;private string m_FileName = string.Empty; public

  • Winform实现将网页生成图片的方法

    Winform实现将网页生成图片的方法

    通常浏览器都有将网页生成图片的功能,本文实例讲述了Winform实现将网页生成图片的方法.分享给大家供大家参考.具体方法如下: 工具截图如下: 生成后的图片如下: 手动填写网站地址,可选择图片类型和保持图片地址,来生成页面的图片,当图片路径未选择时则保存桌面: 具体代码如下: 将html生成图片的类 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usi

  • winform异型不规则界面设计的实现方法

    本文实例讲述了winform异型不规则界面设计的实现方法,用于界面设计时有不错的用户体验,非常实用.分享给大家供大家参考之用.具体方法如下: 一.不规则WINFORM窗体 Author:unknown From:Internet 在以前版本的Visual Basic或Visual C++中,创建不规则窗体和控件是一件很复杂的事,不仅需要调用大量API函数而且工作量也不小.不过,现在在Visual C#下,情况就完全不同了.运用Windows Forms你就可以很轻易地创建出一个不规则的窗体以及窗

  • WinForm的延时加载控件概述

    本文主要针对WinForm的延迟加载在常用控件的实现做简单的描述.在进行C#项目开发的时候具有一定的实用性.具体如下: 一.在界面第一次显示时加载.最简单的延迟加载可以通过控件第一次显示时加载数据,例如你有很多的页签,只有用户切换到这个页签时,才会加载数据. 在.NET的Control中提供SetVisibleCore虚方法,当检测value是true且第一次调用此方法时,调用延迟加载.但是并不推荐这个方法,因为你有更好的地方. ①.如果你的控件继承自Form或者UserControl,建议重载

  • 把网页中的(电话，qq等数字)生成图片的ASP程序

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

  • Python使用正则表达式获取网页中所需要的信息

    使用正则表达式的几个步骤: 1.用import re 导入正则表达式模块: 2.用re.compile()函数创建一个Regex对象: 3.用Regex对象的search()或findall()方法,传入想要查找的字符串,返回一个Match对象: 4.调用Match对象的group()方法,返回匹配到的字符串. 在交互式环境中简单尝试一下,查询字符串中的固话: import re text = '小明家的固话是0755-123456,而小丽家的固话时0789-654321,小王家的电话是1234

  • python抓取网页中图片并保存到本地

    在上篇文章给大家分享PHP源码批量抓取远程网页图片并保存到本地的实现方法,感兴趣的朋友可以点击了解详情. #-*-coding:utf-8-*- import os import uuid import urllib2 import cookielib '''获取文件后缀名''' def get_file_extension(file): return os.path.splitext(file)[1] '''創建文件目录,并返回该目录''' def mkdir(path): # 去除左右两边的

  • phpexcel导出excel的颜色和网页中的颜色显示不一致

    关于phpexcel导出颜色的一些问题,用phpexcel做导出的excel的颜色怎么和网页中的颜色显示不一致呢?想要知道到底是怎么回事?应该如何来解决呢?PHP代码细节如下: PHP code: 复制代码 代码如下: <?php require_once './PHPExcel.php'; require_once './Excel5.php'; require_once './get_excel_row.php'; require "../include/base.php";

  • 网页中Flash播放器常用参数设置

    我们现在大部分人做网页,都是直接用DW插入flash,而且DW也是所见即所得,直接生成了相应的flash显示代码.可是我们又有多少人了解这些直接由DW生成的代码呢?其实我接触flash player标签,是在刚学习html的时候,那时书中插入flash只有最简单的<embed src="" width="" height=""></embed>一句,而且在很长一段时间里,只要网页中插入flash我也都是这样写的,当时认为,

  • 使用jquery获取网页中图片高度的两种方法

    使用jquery获取网页中图片的高度其实很简单,有两种常用的方法都可以打到我们的目的 复制代码 代码如下: $("img").whith();(返回纯数字) $("img").css("width");(返回字符串:数字+"px") 但是有时候会遇到返回0的情况,上面方法返回值竟然是0或者0px,很让人诧异 方法一 在很早之前,我使用的解决方法,这也是我的师傅告诉我的解决方法:在你需要获取到的图片的<img>标签上

  • js实现浮动在网页右侧的简洁QQ在线客服代码

    js实现浮动在网页右侧的简洁QQ在线客服代码

    本文实例讲述了js实现浮动在网页右侧的简洁QQ在线客服代码.分享给大家供大家参考.具体如下: 这是一个简洁版的QQ在线客服,其实重要的是这个JS函数,只要有了这个JS函数,实际上你完全可以写一个这样的在线客服,它是用JS+CSS去控制层的隐藏与展开.注意代码中的QQ号记着要改一下哦. 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js/2015/js-float-qq-onlinefk-style-codes/ 具体代码如下: <!DOCTYPE html P

  • javascript在网页中实现读取剪贴板粘贴截图功能

    见某网站的输入框支持截屏粘贴的功能,觉得有点意思,于是将代码扒出来分享下. 可惜,目前仅有高版本的 Chrome 浏览器支持这样直接粘贴,其他浏览器目前为止还无法粘贴( IE11没测试过 ),当然这种增强型的用户体验功能有总比没有好. 输入框的结构代码: 复制代码 代码如下: <input type="text" id="testInput" /> 为输入框绑定粘贴事件: 复制代码 代码如下: var input = document.getElemen

  • Nodejs进阶：如何将图片转成datauri嵌入到网页中去实例

    问题:将图片转成datauri 今天,在QQ群有个群友问了个问题:"nodejs读取图片,转成base64,怎么读取呢?" 想了一下,他想问的应该是 怎么样把图片嵌入到网页中去,即如何把图片转成对应的 datauri. 是个不错的问题,而且也是个很常用的功能.快速实现了个简单的demo,这里顺便记录一下. 实现思路 思路很直观:1.读取图片二进制数据 -> 2.转成base64字符串 -> 3.转成datauri. 关于base64的介绍,可以参考阮一峰老师的文章.而 da

  • 网上比较常用的嵌入网页中的播放器代码收藏

    例如:网络上最流行的windows media流(asf,wma,wmv格式...),Real流(rm,rmvb...),还有MPEG系列编码格式(MP4/MP3格式...) Windows Media Video 是微软推出的一种流媒体格式,它是在"同门"的ASF(Advanced Stream Format)格式升级延伸来得.在同等视频质量下,WMV格式的体积非常小,因此很适合在网上播放和传输.Windows Media Player9兼容所有格式的WMV,官方编码器是Window

随机推荐