精品久久一区二区三区,美女视频网站久久,久久国产一区二区

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

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

作用：用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ù)據(jù)(字符，背景)
     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ù)據(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     '----------歷經所有行
         For ii = 0 To strLen-1     '-------歷經所有字
             For iii = 1 To 8 '--------歷經所有像素
                '---------逐行、逐字、逐像素地輸出圖像數(shù)據(jù)
                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ù)據(jù)庫sql的種種操作

相關閱讀: asp數(shù)組隨機排序; ASP把數(shù)字用逗號每3位隔開顯示代碼; asp利用XMLHTTP加載動態(tài)頁面并且生成靜態(tài)頁面; 倒計時廣告/始終保持在網頁中部; 河南省中國青年旅行社文化路營業(yè)部; asp計算頁面執(zhí)行時間顯示到毫秒; 收集各種游覽器禁止javascript的方法; 石家莊燕趙旅行社有限公司

共有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還有其它的嗎

更多>>隨機抽取信息: 深山行者asp購物網終于上線了; js中innerHTML，innerText，outerHTML的用法與區(qū)別; 旅行社網站模板11; 02. 解決只能運行asp頁面不能運行數(shù)據(jù)庫錯誤; asp iis 開啟本地FSO權限; UL與LI 標簽詳解

更多標簽熱門標簽

個性論壇自適應處理驗證 div 右擊失效超出留言 alert 文字垂直居中不對齊提示 flush 選項卡 div的高度 absolute 營銷上下左右滑過縮放數(shù)據(jù) VBScript outerHTML 廣告滾動網站變色虛擬寬時間遍歷鎯名稱 2.0 垂直 imprt DIV+CSS做的透明菜單兼容IE、FF等變大 FireFox maryabbsby shift 手學習文字框架我想你改變 txt 游戲

99亚洲_成人性视频免费网站_av在线播放网址_免费成人在线网站_亚洲综合婷婷_亚洲一区二区国产

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