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

聊城網站制作公司,聊城網站建設,聊城網站優化,聊城網絡公司,聊城網站推廣,聊城網站運營,聊城網絡運營,聊城搜索引擎優化,聊城網頁設計,聊城網站制作
 
 
公司擁有五年的網站建設經驗,專業網站制作,推廣及網站優化,有大量優秀客戶案例
網站建設 | 設為首頁 | 加入收藏 | 聯系我們  
公告:熱烈慶祝聊城精英網絡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號
主站蜘蛛池模板: 人妻少妇不满足中文字幕 | 无码在线观看高清自拍 | 日韩人妻无码一区二区三区久久99 | 免费无码黄网站在 | AV在线播| 久久亚洲av无码精品色午夜麻豆 | 亚洲成a人v欧美 | 亚洲另类自拍丝袜第1页 | 久久久91精品国产一区二区 | 国产精品久久久久久亚洲av | 亚洲福利色视频在线看 | 91日韩在线 | 无码电影免费在线播放 | 人妻少妇精品中文字幕av蜜桃 | 中国一级毛片视频 | 无码国产偷倩在线播放 | 亚洲精品中文字幕乱码三区 | 成人理论电影在线观看韩国 | 五月婷婷天天干天天日 | 久久一日本道色综合久久 | 三级精品视频在线播放 | 69久久无码一区人妻A片 | 综合久久免费精品无码视频 | 国产成人精品亚洲精品日日 | 国产成人无套精品在线观看 | 欧美日韩亚洲国产精品一区二区 | 国产日韩欧美在线播放视频 | 国产人与嘼在线系列免费观看乱码三级观看av天堂 | 国产日韩欧美一区二区三区综合 | 禁app下载站长统计网址进入 | 亚洲无码久久精品视频 | 成人品视频观看在线 | 国产激情无码一区二区三区 | 国产尤物精品福利视频 | 少妇又紧又色又爽又刺激视频 | 一级国产性做毛片 | 日日操夜夜狠 | 国产成人午夜精品一区二区 | 亚洲精品无码mⅴ在线观看网站 | AV国産精品毛片一区二区三区 | 亚洲无码制服丝袜自拍 |