黄色av大片,99亚洲精品视频,日韩福利

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

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

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

以下是引用片段：
<%
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，在要顯示電話號碼的位置插入<img src="img.asp?tel=010-0000000">即可。

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

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

相關(guān)閱讀: ASP漢字轉(zhuǎn)拼音，支持自定義特殊詞語; 靜態(tài)生成; 微信小程序打開客服提示：該小程序提供的服務(wù)出現(xiàn)故障，請稍后重試; 旅行社網(wǎng)站模板12; 內(nèi)蒙古香格里拉旅行社有限公司; 一個(gè)可以說是超級變態(tài),超級強(qiáng)的DIV+CSS應(yīng)用; asp讀取QQ的rss之xml數(shù)據(jù); 網(wǎng)頁制作,改變你的思維方

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

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

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

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

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

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

更多信息>>欄目類別選擇: 百度小程序開發(fā); 微信小程序開發(fā); 微信公眾號開發(fā); uni-app; asp函數(shù)庫; 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)化測試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車帝小程序; javascript獲取瀏覽器指紋可以用來做投票; 火狐Mozilla Firefox出現(xiàn)：無法載入您的Firefox配置文件它可能已經(jīng)丟失或是無法訪問問題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過代碼修改pip下載源讓下載庫飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: 網(wǎng)頁添加WhatsApp跳轉(zhuǎn)鏈接教程; 昌平歡樂之旅旅行社; 微信公眾號回復(fù)文本消息或用客服接口推送文本消息; 網(wǎng)站建設(shè)：ASP網(wǎng)站防范黑客技巧; CSS代碼格式化和壓縮化; 吉林省文化國際旅行社

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

位置選擇符 SEO 底部幻燈想 pt dw 訪問量滑動(dòng) 留言次數(shù) windows 選擇框 open 網(wǎng)站地圖 font-size 建立日期過期案例 dl ewebeditor 加減圖層郵箱 border 憂化小偷絕對定位保留時(shí)間固定留言板表達(dá)式圖片載入快捷頂部縮略圖 FTP css 透明頁面系統(tǒng) ie5.5 height 許愿墻添加訪問量廣告選項(xiàng) 關(guān)于我們 DIV CSS做的透明菜單兼容IE、FF等

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

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