国产一区二区三区在线观看视频,国产精品久久久久久av,亚洲网在线观看

簡單Asp圖片驗(yàn)證碼,收集大概35種各種各樣圖片樣式驗(yàn)證碼，還有語音驗(yàn)證碼

2009/1/23 10:59:49 深山行者字體:大中小瀏覽 7999

大概收集了30種以上的圖片驗(yàn)證碼效果，還有語音驗(yàn)證碼樣式在里面。
下載地址：鏈接: https://pan.baidu.com/s/1rHP4PV6XULNMMHH4cTZSVg 提取碼: kvxw

保存下面代碼到code.asp,在需要顯示驗(yàn)證碼的地方使用
<img src="code.asp" alt="驗(yàn)證碼" />來顯示,使用session("qwbm")
來提取驗(yàn)證碼

相應(yīng)的生成效果圖

以下為詳細(xì)代碼

<%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("qwbm")
Sub Com_CreatValidCode(pSN)
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/bmp"
Randomize
Dim i, ii, iii
Const cOdds = 6 ' 雜點(diǎn)出現(xiàn)的機(jī)率
Const cAmount = 10 ' 文字?jǐn)?shù)量
Const cCode = "0123456789abcd"
' 顏色的數(shù)據(jù)(字符，背景)
Dim vColorData(1)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(255) ' 藍(lán)0，綠0，紅0（黑色）
vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) ' 藍(lán)250，綠236，紅211（淺藍(lán)色）
' 隨機(jī)產(chǎn)生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next
Session(pSN) = vCodes '記錄入Session
' 字符的數(shù)據(jù)
Dim vNumberData(9)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
' 輸出圖像文件頭
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & 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(40) & 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(176) & ChrB(4) &_
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
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 3 ' 歷經(jīng)所有字
For iii = 1 To 10 ' 歷經(jīng)所有像素
' 逐行、逐字、逐像素地輸出圖像數(shù)據(jù)
If Rnd * 99 + 1 < cOdds Then ' 隨機(jī)生成雜點(diǎn)
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
%>

前一頁:漢字轉(zhuǎn)聲母

后一頁:asp版圖形驗(yàn)證碼，可自定義點(diǎn)陣信息，支持字符扭曲、傾斜、傾斜

相關(guān)閱讀: ASP.Net 2.0中的5個數(shù)據(jù)控件; 推薦:ASP初學(xué)者常用源代碼總結(jié)篇; 24款實(shí)用的翻頁頁碼css代碼; 耒陽華天國際旅行社; 當(dāng)鼠標(biāo)經(jīng)過表單,表單承現(xiàn)選擇狀效果; 會員系統(tǒng); radio組選擇詳細(xì); Vista中使用IIS 7.0三個常見問題

共有0條關(guān)于《簡單Asp圖片驗(yàn)證碼,收集大概35種各種各樣圖片樣式驗(yàn)證碼，還有語音驗(yàn)證碼》的評論: 發(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ā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權(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移動端自動化測試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車帝小程序; javascript獲取瀏覽器指紋可以用來做投票; 火狐Mozilla Firefox出現(xiàn)：無法載入您的Firefox配置文件它可能已經(jīng)丟失或是無法訪問問題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過代碼修改pip下載源讓下載庫飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: 專業(yè)地接服務(wù)的旅行社建站解決方案; IE 7.0 BETA3 瀏覽器綠色免安裝版下載; asp利用fso中的二進(jìn)制數(shù)據(jù)流方式讀取任意文件，并且在網(wǎng)頁上下載保存文件; asp獲得當(dāng)前文件的虛擬物理路徑; 代碼絕對精簡的仿lightbox效果彈出層; 七種網(wǎng)站添加鏈接的簡單方法

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

asp.net 經(jīng)典的操作數(shù)字數(shù)據(jù)庫拖動路徑等高緩存青春 IP 下拉框表單 max optgroup RegExp 翻轉(zhuǎn) 深山工具繁體列 relative Application 格式化下載 position ResponseXML 原則展開彈窗夢幻跳轉(zhuǎn) 彩色服務(wù)器變化 margin 字母綠色 SEO 字體日期 ewebeditor 計(jì)算工作 important 創(chuàng)建 iis 安裝許愿墻 innerText 評論

国产免费av片在线观看-国产免费av观看-国产免费av电影-国产免费a-四虎网站在线观看-四虎网站在线

簡單Asp圖片驗(yàn)證碼,收集大概35種各種各樣圖片樣式驗(yàn)證碼，還有語音驗(yàn)證碼