伊人久久国产,欧美精品日韩,久久成人免费视频

把網頁中的電話號碼生成圖片的ASP程序

深山行者個人網站 2007/11/23 21:13:02 深山行者字體:大中小瀏覽 6435

作用：用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 '------------雜點出現(xiàn)的機率
     Const str="0123456789-"
     strLen = len(pTel)
     rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
     '-----------顏色的數(shù)據(字符，背景)
     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

     '-----------字符的數(shù)據
     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 '--------歷經所有像素
                '---------逐行、逐字、逐像素地輸出圖像數(shù)據
                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">即可。

前一頁:巧用ASP技術保護DHTML源代碼

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

相關閱讀: 利用javascript讓PNG透明圖片支持支持(IE6、IE7、firefox下測試通過); 長城國際集團有限公司; httpd.ini中的RewriteRule、RewriteCond規(guī)則了解以有二級域名解析實例; QQ郵箱文件中轉站點擊下載效果; 陽光麗江客棧; 在圖片未知尺寸情況下，利用CSS把圖片垂直居中于div中心; 四川省旅者旅行社有限公司總部; 利用ASP正則查找文章里面的圖片，然后在新窗口打開

共有0條關于《把網頁中的電話號碼生成圖片的ASP程序》的評論: 發(fā)表評論

正在加載評論......

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

呢稱:
表情:
內容:	評論內容:不能超過 1000 字,需審核,請自覺遵守互聯(lián)網相關政策法規(guī)。
驗證碼:

網友評論聲明,請自覺遵守互聯(lián)網相關政策法規(guī)。

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

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

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

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

更多>>隨機抽取信息: 另外一種符合web2.0的鏈接打開方式--利用base打開鏈接; 深山旅行社管理系統(tǒng)免費版 V2.3; 常用CSS縮寫語法總結; [轉載]中國行政區(qū)劃數(shù)據（省市區(qū)街道）; 仙美境; 超過服務期限如何辦？

更多標簽熱門標簽

市垂直 mssql box 珍惜簡易 option 黑白復選框 skype 小旋風記錄 Application list letter-spacing 適應萬年歷插件透明密碼 ie 行號 FlashFxp Java Request 生成深山行者V1.2旅行社網站管理系統(tǒng) csss 絕對管用的iis安裝包下載框架布局素材展開九宮格 2.0 排版深山行者 max 拼音分開 jpg 在線左右百度留言次數(shù) 經典的評論 slectindext 數(shù)據省市

天天射射天天_久久com_99这里只有精品视频_爱色av_国产在线a_99日韩

把網頁中的電話號碼生成圖片的ASP程序