在线国产伦理一区,午夜一区不卡,欧美日韩精品免费观看

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

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

作用：用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">即可。

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

后一頁:asp與數據庫sql的種種操作

相關閱讀: 兼容ie和火狐ff的透明度設置; uni-app開發的微信小程序在線支付; CSS分頁符代碼01; 長城國際集團有限公司; 網站內容中某個關鍵字相關右鍵菜單; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; 純div+css制作的彈出菜單-05; 用CSS層疊樣式表實現文字變圖象特效

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

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

返回頂部發表評論

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

網友評論聲明,請自覺遵守互聯網相關政策法規。

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

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

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

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

更多>>隨機抽取信息: css改變頁面中的文字顏色與字體粗體; ASP中SQL和Access數據庫中時間/日期字段內容查詢的方法說明; 中國簽證行業領導者--億誠出國簽證網; 網上頁面java圖片循環滾動特效; 19寸寬屏旅行社網站默認模板; asp利用fso中的二進制數據流方式讀取任意文件，并且在網頁上下載保存文件

更多標簽熱門標簽

格式化提交留言鼠標 126 許愿墻限制天氣預報 input 旅行社 div 列展開 sql access 文件類型 asp button 文本框 shift 表達式 cookies 幻燈方法多選框列表尺寸風格增大樣式黑白時鐘加長 IP checkbox 展示表格 class onblur 深山旅游網站管理系統V1.0 行號 sel 框 PSD 分頁 dd 選擇符滾動調用自適應高度名稱

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

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