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

聊城網站制作公司,聊城網站建設,聊城網站優化,聊城網絡公司,聊城網站推廣,聊城網站運營,聊城網絡運營,聊城搜索引擎優化,聊城網頁設計,聊城網站制作
 
 
公司擁有五年的網站建設經驗,專業網站制作,推廣及網站優化,有大量優秀客戶案例
網站建設 | 設為首頁 | 加入收藏 | 聯系我們  
公告:熱烈慶祝聊城精英網絡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號
主站蜘蛛池模板: 亚洲中文字幕无线无码毛片^午夜亚洲国产理论秋霞^精品国产 | 国产av无码专区亚洲av男同 | 中文字幕av人妻一本二本 | 中文日本永久精品国视频 | 日韩精品一区二区在线观看 | 亚洲A片无码成人精品区 | 精品少妇一区 | 亚洲欧美日韩精品香蕉 | 无码中文大片av | 在秘无码一区二区在线 | 国产成人8x视频在线播放 | 日韩亚洲制服欧美综合 | 国产全部视频在线免费观看 | 精品久久AV无码不卡一区二区 | 无码av毛片色欲欧洲美洲 | 丰满人妻妇伦又伦精品国产 | 自拍偷在线精品自拍偷免费 | 国产午夜亚洲精品国产 | 国产精品亚洲一区二区三区 | 射精情感曰妓女色视频 | 亚洲蜜桃精久久久久久久久久久久 | 免费A片国产毛A片无码久久 | 日本熟妇无码波多野1223 | 精品欧美一区手机在线观看 | 欧美日韩精品成人网站二区 | www爽爽爽视频 | 国产精品国产三级国产AV麻豆 | 国产精品欧美一区二区 | 国产一级做a爰片久久毛片男 | 日韩欧美第一二三区 | 亚洲国产精品毛片 | 中文字幕精品无码一区二区 | 欧美极品少妇无套实战 | 92午夜少妇极品福利无码电影 | 日韩欧美九九精品 | 亚洲国产aⅴ精品一区二区综合 | 国语高清精品一区二区三区 | 精品卡一卡二卡三免费 | 日韩欧美人妻区一区二区 | 综合激情五月丁香久久 | 人妻精品欧美久久丝袜人妻无码中文字幕综合网 |