如何將網(wǎng)頁(yè)中的數(shù)字生成圖片的ASP程序_ASP教程
教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!
推薦:如何防止非法盜鏈本站圖片目前非法 盜鏈別站網(wǎng)頁(yè)圖片、文件的現(xiàn)象非常多,下面方法是用asp代碼實(shí)現(xiàn)的防止盜鏈方法。 主要思路是用Request.ServerVariables收集得到HTTP_REFERRER,然后根據(jù)這個(gè)變量的值判斷鏈接是否來(lái)自外部,阻止非法鏈接。 首先,我們需要對(duì)圖片做如下引用: imgsrc=
將下面代碼保存為myimg.asp,在要顯示數(shù)字(比如QQ號(hào)等)的位置插入<img src="myimg.asp?tel=010-0000000">即可。<% 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 %> |
分享:通用獲取文章上下各三篇文章的代碼通用的 獲取文章上下各 三 篇文章的代碼,示例用的是asp教程,主要是了解SQL語(yǔ)句,其中id指當(dāng)前文章的. 上 三 篇 Sql=Selecttop3*From contentWhereidid 下 三 篇 Sql=Selecttop3*FromcontentWhereididorderbyiddesc
相關(guān)ASP教程:
- asp FSO 讀寫文件本文件實(shí)現(xiàn)代碼
- asp中isNull、isEmpty和空字符串的區(qū)別
- asp獲取用戶真實(shí)IP地址的方法
- asp連接sqlserver數(shù)據(jù)庫(kù)實(shí)現(xiàn)代碼
- asp中正則表達(dá)式過(guò)濾html代碼函數(shù)
- asp中g(shù)et post提交表單區(qū)別
- 網(wǎng)頁(yè)模板:ASP內(nèi)建對(duì)象Request
- xmlhttp的open方法使用詳解
- ASP的常用的自定義函數(shù)大全
- asp中用for循環(huán)的一個(gè)小技巧
- eWebEditor v3.8 列目錄
- ASP無(wú)組件分頁(yè)實(shí)現(xiàn)思路及代碼
ASP教程Rss訂閱編程教程搜索
ASP教程推薦
- 如何將網(wǎng)頁(yè)中的數(shù)字生成圖片的ASP程序
- ASP標(biāo)記的字符串指定變色不區(qū)分大小寫
- asp防止網(wǎng)頁(yè)刷新代碼
- 如何使ASP跳出本次進(jìn)入下一次循環(huán)
- ASP實(shí)例講解:用分頁(yè)符實(shí)現(xiàn)長(zhǎng)文章分頁(yè)顯示
- 運(yùn)用ASP調(diào)用數(shù)據(jù)庫(kù)中視圖及存儲(chǔ)過(guò)程
- jscript錯(cuò)誤代碼及相應(yīng)解釋大全
- 網(wǎng)站制作ASP語(yǔ)言的特點(diǎn)與功能
- 淺析js返回字符串中某個(gè)字符的出現(xiàn)次數(shù)
- asp中cint與clng的區(qū)別分析
- 相關(guān)鏈接:
- 教程說(shuō)明:
ASP教程-如何將網(wǎng)頁(yè)中的數(shù)字生成圖片的ASP程序。