网站首页 手机版
 注册 登录
您现在的位置: 畅无忧设计 >> 网络编程 >> ASP教程 >> 正文
最新文章
· FSO 组件asp生成html静态页面碰到缓存
· asp实现长文章自动分页插件
· 在ASP中访问和更新Cookies集合
· ASP错误提示大全
· 学习ASP的几个观点
· ASP用两级联动下拉列表来显示大类和小
· ASP取当前页面地址和参数
· ASP删除记录的同时删除相关图片
· asp将查询结果导出到excel
· ASP批量导入Excel到Access或者Sql Se
热门文章
 化境ASP无组件上传类 - upload_5xs
 一个获取ACCESS数据库表名以及表名
 asp将查询结果导出到excel
 艾恩ASP无组件上传修改版
 ASP批量导入Excel到Access或者Sql 
 ASP读取数据库的Flash+JS图片切换特
 ASP用两级联动下拉列表来显示大类和
 ASP+JS实现网页歌曲连播、点播功能
 使用ASP重启服务器
 asp批量替换access数据库中指定字段
相关文章
没有相关文章
ASP无组件汉字验证码
来源:中国asp之家 更新时间:2009/5/14 17:24:17 阅读次数:
字体:[ ] 我要投稿

内置300余汉字点阵.纯ASP实现汉字验证码.不读数据库.多种属性自由调节,其中包括:生成的图片长和宽,字符数,背景显示效果(渐变,杂色,固定色),字符显示效果(固定或随机颜色,向8个方向的风化效果)等.同时支持字母和数字验证码.

  mPixelX = 140       '图片显示宽度
  mPixelY = 32       '图片显示高度
  mCharCount = 4       '显示多少个字符
  mFontMinSpacing  = Int(mPixelX/100)+1 '字符间最少单隔多少个像素
  mFontMaxSize = 30      '字符长或宽最大多少个像素
  mPrintedCount = 0      '已经打印了多少个字符
  mPrintedPixelX = mFontMinSpacing  '已经用去多少宽度
  mBgType = 2        '1-渐变 2-杂色 3-固定色
  mBgRndRate = 90       '背景杂色随机率 %
  mBgColorR = -1       '背景R色 -1-渐变 取值0-255
  mBgColorG = 100       '背景G色 -1-渐变 取值0-255
  mBgColorB = -1       '背景B色 -1-渐变 取值0-255
  mBgColor = RGB(255,255,255)    '背景颜色 只有在颜色固定时才起作用
  mBgBegin = 1       '渐变开始值
  mBgEnd = 220       '渐变结束值
  mBgStep = 4        '渐变步增值
  mFontColorType = 1      '字符颜色类型 1-固定 2-随机
  mFontCurrentColor = RGB(255,255,255) '字符颜色 只有在颜色固定时,这里才起作用
  mStyleWindLeftToRightRate = 50   '字体向右风吹效果 %
  mStyleWindRightToLeftRate = 0   '字体向左风吹效果 %
  mStyleWindUpToDownRate = 2    '字体向下风吹效果 %
  mStyleWindDownToUpRate = 0    '字体向上风吹效果 %
  mStyleWindLeftAndUpRate = 0    '字体向左上风吹效果 %
  mStyleWindUpAndRightRate = 10   '字体向上右风吹效果 %
  mStyleWindRightAndDownRate = 0   '字体向右下风吹效果 %
  mStyleWindDownAndLeftRate = 0   '字体向下左风吹效果 %
其中一种效果:

 

验证码源代码下载地址:ASP无组件汉字验证码

例子:

'自定义字库
'---------添加字库的格式---------------
'下面一行是实际汉字或字符。
'f(u,0)="啊"
'下面一行是字符点阵,可以用附带的工具制作。
'f(u,1)="000111011110111101000010101101000010101110111010101101101010101101101010111101111010000111000010000100000010000100000010000100001110000000000000"
'f(u,2)=12 '点阵水平点数
'f(u,3)=12 '点阵竖直点数
'下面一行按格式复制。
'u=u+1  即:
f(u,0)="阿":f(u,1)="111101111110100100000100101000000100110001110100101001010100100101010100100101110100111100000100100000000100100000000100100000011100000000000000":f(u,2)=12:f(u,3)=12:u=u+1

  • 上一篇文章:
  • 下一篇文章:
  • 关于我们 - 联系我们 - 广告服务 - 在线投稿 - 友情链接 - 网站地图 - 版权声明
    CopyRight 2008-2010, CWYDESIGN.COM - 畅无忧设计, Inc. All Rights Reserved
    滇ICP备09005765号