国产午夜精品一区二区三区不-国产午夜精品一区二区三区不卡-国产午夜精品一区二区三区极品-国产午夜精品一区二区三区老-国产午夜精品一区二区三区漫-国产午夜精品一区二区三区嫩草

聊城網站制作公司,聊城網站建設,聊城網站優化,聊城網絡公司,聊城網站推廣,聊城網站運營,聊城網絡運營,聊城搜索引擎優化,聊城網頁設計,聊城網站制作
 
 
公司擁有五年的網站建設經驗,專業網站制作,推廣及網站優化,有大量優秀客戶案例
網站建設 | 設為首頁 | 加入收藏 | 聯系我們  
公告:熱烈慶祝聊城精英網絡2010版官方網站改版成功!
當前位置 :首頁 > 網頁知識  

asp頁面 加法驗證碼(ASPJpeg版)

http://m.zjgjyh.cn   2011-11-25 16:38:08 來源:精英網絡   人氣:

很多站長都為網站里太多的垃圾廣告抓狂,本程序就是為了對付網站垃圾廣告群發器的。

將驗證碼改為加法運算,比如驗證碼顯示“25+64等于?”,那么輸入“89”就能通過驗證。

來看看效果圖對比:字符驗證碼: → 加法驗證碼:

優點:

①與純字符驗證碼相比,本程序效防止了絕大部分(99%以上)廣告機的自動識別。即使是中文驗證碼,也能被市面上的部分廣告機識別。

②與中文驗證碼相比,避免了用戶輸入用戶名密碼驗證碼的時候需要切換輸入法的麻煩。

有興趣的朋友,還可以擴展為其他的運算,比如乘法,減法,乘方等。

使用方法:將以下代碼保存為Dv_GetCode.asp文件,替換動網網站的該文件。背景色、字體顏色可在代碼中修改。

說明:該程序需要網站空間支持ASPJpeg組件、楷體_GB2312字體。

后續我會發布一個不需要組件及字體支持的版本,有興趣者請關注我的博客。

<%
'=============================================================================
'動網網站加法驗證碼(ASPJpeg版)
'作者:cuixiping
'博客(CSDN):http://blog.csdn.net/cuixiping/
'博客(博客園):http://www.cnblogs.com/cuixiping/
'日期:2008年11月
'生成100x20的jpeg圖片驗證碼,內容類似“25+64等于?”
'需要網站空間支持ASPJpeg組件(Persits.Jpeg)。
'如果服務器沒有“楷體_GB2312”字體,請修改為其他字體并調整字符位置。
'使用方法:將該代碼替換動網網站的Dv_GetCode.asp文件中的內容,文件首尾不要留空行。
'=============================================================================

Const FontColor = &H000000 ' 字體顏色
Const BgColor = &HFFCCFF ' 背景顏色

Call CreatValidCode("GetCode")

Sub CreatValidCode(pSN)
    Dim x, Jpeg
    Randomize
    x = Array(1+Int(Rnd()*9), Int(Rnd()*10), 1+Int(Rnd()*9), Int(Rnd()*10), 0, 0, "+")
    x(4) = x(0)*10 + x(1)
    x(5) = x(2)*10 + x(3)
    'Session(pSN) = CStr(Eval(x(4) & x(6) & x(5)))
    Session(pSN) = CStr(x(4) + x(5))

    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.New 100,20,BgColor
    Jpeg.Quality=100
    With Jpeg.Canvas
        .Font.Bold = True
        .Font.Size = 16
        .Font.Rotation = 0
        .Font.Family = "楷體_GB2312"
        .Font.Color = FontColor
        .PrintText 4, 3, CStr(x(0))
        .PrintText 14, 3, CStr(x(1))
        .PrintText 26, 3, x(6)
        .PrintText 38, 3, CStr(x(2))
        .PrintText 48, 3, CStr(x(3))
        .Font.Rotation = 15
        .PrintText 55, 3, "等"
        .PrintText 70, 3, "于"
        .PrintText 85, 3, "?"
    End With
    '禁止緩存
    Response.ContentType = "image/jpeg"
    Response.Expires = -9999
    Response.AddHeader "pragma", "no-cache"
    Response.AddHeader "cache-ctrol", "no-cache"
    Response.AddHeader "Content-Disposition","inline; filename=vcode.jpg"
    Jpeg.SendBinary
    Jpeg.Close
    Set Jpeg = Nothing
End Sub
%>
專業設計團隊
滿足您的各種設計要求
實力程序開發團隊
為您定制各種程序模塊
后臺管理高效安全
方便更新上傳網站資料
全球高速訪問
無盲區、定制異地備份
專業客服團隊
解決一切使用難題
贈送大容量空間郵箱
免費優化推廣
   
關于我們 | 工作機會 | 付款方式 | 網站制作 | 網頁制作 | 網頁設計 | 網絡公司 | 聯系我們 | 網站地圖
版權所有:聊城精英網絡科技有限公司 © 2005-2010 All Rights Reserved.
咨詢專線:0635-6950368 技術專線:15192175820 在線QQ:312817927 1485871644
地址:聊城市閘口科技市場 郵編:252000 蘇ICP備10112026號
主站蜘蛛池模板: 欧美日韩国产精品视频 | 亚洲综合色无码一区二区三区 | 国产成版人视频网站免费下 | 亚洲精品国产一区二区三 | 成人WWW色情在线观看 | 免费看日韩A片无码视频软件 | 精品久久国产字幕高潮 | 一级特黄大片69 | 99精品成人无码A片观看 | 国产精品v片在线观看不卡 国产精品v片在线观看 | 国产无码精品一区二区三区 | 无码欧美熟妇人妻蜜 | 亚洲av无码国产丝袜在线观看 | 亚洲国产成人精品久久久 | 亚洲日韩精品一区二区三区 | 国产鲁鲁视频在线观看免费 | 成人国产在线观看 | 无码精品人妻一区二区三区老牛 | 国产又粗又长又大A片激情 国产又粗又长又大精品A片 | caotube超碰| 四虎影视永久地址www成人污 | 亚洲东京热国产精品无码视频 | 久久亚洲国产成人精品无码一区 | 男男震蛋电动PLAY道具 | 亚洲精品自产拍在线观看app | 成人片黄网站色大片免费观看app | 亚洲午夜精品国产电 | 亚洲日本一区二区一本一道 | 日本一本有码无码综合视频 | 深夜a级毛片催情精视频免费 | 麻豆亚洲福利电影欧美在线 | 精品国产品欧美日产在线 | 亚洲自偷精品视频自拍 | 自慰无码一区二区三区 | 无码专区在线观看不卡 | 国产91精品一区二区免费在线播放 | 国产亚洲精品久久精品6 | 国产精品自在自线国产 | 亚洲国产成人丁香五月激情 | 久久天天婷婷五月俺也去 | 亚洲人妻无码中文 |