亚洲国产精品一区,国产激情一区二区三区在线观看,日韩一本精品

把網(wǎng)頁中的電話號(hào)碼生成圖片的ASP程序

深山行者個(gè)人網(wǎng)站 2007/11/23 21:13:02 深山行者字體:大中小瀏覽 6585

作用：用ASP程序?qū)㈨撁嬷械碾娫捥?hào)碼生成圖片格式。

以下是引用片段：
<%
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 '------------雜點(diǎn)出現(xiàn)的機(jī)率
     Const str="0123456789-"
     strLen = len(pTel)
     rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
     '-----------顏色的數(shù)據(jù)(字符，背景)
     Dim vColorData(1)
     'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '----藍(lán)0，綠0，紅0（黑色）
     'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----藍(lán)250，綠236，紅211（淺藍(lán)色）
     'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49)     '---- 藍(lán)0，綠0，紅0（黑色）
     'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----藍(lán)250，綠236，紅211（淺藍(lán)色）
     vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '---------藍(lán)0，綠0，紅0（黑色）
     vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------藍(lán)250，綠236，紅211（淺藍(lán)色）

     '--------------------隨機(jī)產(chǎn)生字符
     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

     '-----------字符的數(shù)據(jù)
     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     '----------歷經(jīng)所有行
         For ii = 0 To strLen-1     '-------歷經(jīng)所有字
             For iii = 1 To 8 '--------歷經(jīng)所有像素
                '---------逐行、逐字、逐像素地輸出圖像數(shù)據(jù)
                If Rnd * 99 + 1 < cOdds Then '---------隨機(jī)生成雜點(diǎn)
                     Response.BinaryWrite rndColor
                Else
                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
                End If
             Next
         Next
     Next
End Sub
%>

將以上代碼保存為img.asp，在要顯示電話號(hào)碼的位置插入<img src="img.asp?tel=010-0000000">即可。

前一頁:巧用ASP技術(shù)保護(hù)DHTML源代碼

后一頁:asp與數(shù)據(jù)庫(kù)sql的種種操作

相關(guān)閱讀: CSS設(shè)計(jì)符合Web標(biāo)準(zhǔn)的網(wǎng)頁表單的幾個(gè)技巧; PS常用密技; 中國(guó)簽證行業(yè)領(lǐng)導(dǎo)者--91出國(guó)簽證網(wǎng); 模仿as效果的跳動(dòng)導(dǎo)航菜單; 非常酷的時(shí)鐘，圖片制作精美,還有日期顯示; 連云港電子雜志網(wǎng)站; 廣西亞太國(guó)際旅行社有限公司; canvas繪制的文字如何換行

共有0條關(guān)于《把網(wǎng)頁中的電話號(hào)碼生成圖片的ASP程序》的評(píng)論: 發(fā)表評(píng)論

正在加載評(píng)論......

返回頂部發(fā)表評(píng)論

呢稱:
表情:
內(nèi) 容:	評(píng)論內(nèi)容:不能超過 1000 字,需審核,請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼:

網(wǎng)友評(píng)論聲明,請(qǐng)自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國(guó)家安全、泄露國(guó)家秘密,不得侵犯國(guó)家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國(guó)家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類別選擇: 百度小程序開發(fā); 微信小程序開發(fā); 微信公眾號(hào)開發(fā); uni-app; asp函數(shù)庫(kù); ASP; DIV+CSS; HTML; python

更多>>同類信息: ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問題的解決方法頁面編碼聲明; asp顯示隨機(jī)密碼; 通過阿里云服務(wù)接口獲得ip地址詳細(xì)信息; iis點(diǎn)開后任務(wù)欄上有顯示，但是窗口看不到的解決辦法; RSA加密解密插件; 微軟Encoder加密解密函數(shù)

更多>>最新添加文章: dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT; Android移動(dòng)端自動(dòng)化測(cè)試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車帝小程序; javascript獲取瀏覽器指紋可以用來做投票; 火狐Mozilla Firefox出現(xiàn)：無法載入您的Firefox配置文件它可能已經(jīng)丟失或是無法訪問問題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過代碼修改pip下載源讓下載庫(kù)飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: 中國(guó)簽證行業(yè)領(lǐng)導(dǎo)者--91出國(guó)簽證網(wǎng); ASP.NET 2和IIS 7.0發(fā)生不兼容變化; asp遠(yuǎn)程調(diào)用XML; 一個(gè)利用純java做的非常漂亮的頁面背景花瓣效果; 正則替換回車換行符和把br替換成回車換行符; asp簡(jiǎn)易論壇制作教程(三)——數(shù)據(jù)庫(kù)的設(shè)置

更多標(biāo)簽熱門標(biāo)簽

游戲 expression 設(shè)置 2003 左右調(diào)用深山旅游網(wǎng)站管理系統(tǒng)V1.0 DW 旅游過濾文件調(diào)色 getElementById text 居中自適應(yīng) 二級(jí) DIV CSS做的透明菜單兼容IE、FF等系統(tǒng) windows 打字驗(yàn)證貨幣結(jié)果 font-size 控制文本框計(jì)劃首字母 rss 網(wǎng)頁調(diào)色器顏色自適應(yīng)高度 Margin加倍文字垂直居中圖片靜態(tài) 復(fù)制光標(biāo) 鏈接工作關(guān)鍵詞進(jìn)度 max 電影獲取文本 class strong

99热热热_国产成人自拍一区_欧美一级网站_99热在线播放_国产精品乱码一区二区三区_久久精品国产一区二区三区

把網(wǎng)頁中的電話號(hào)碼生成圖片的ASP程序