asp的@language与doctype html,如何给ASP网站加入校验码完全点的

最新推荐文章于 2022-10-15 11:09:50 发布
最新推荐文章于 2022-10-15 11:09:50 发布
阅读量91 收藏
点赞数
文章标签： asp的@language与doctype html

1、index.asp

%@LANGUAGE=VBSCRIPT CODEPAGE=936%

!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd

html xmlns=http://www.w3.org/1999/xhtml

head

meta http-equiv=Content-Type content=text/html; charset=gb2312 /

title无标题文档/title

/head

body

form action=submit.asp method=post name=form1

请输入验证码input type=text value= name=yanzheng /

img src=yanzhengma.asp

input type=submit /

/form

/body

/html

2、yanzhengma.asp

%

Call Com_CreatValidCode(ValidCode)

Sub Com_CreatValidCode(pSN)

Response.Expires = -9999

Response.AddHeader Pragma,no-cache

Response.AddHeader cache-ctrol,no-cache

Response.ContentType = Image/BMP

Randomize

Dim i, ii, iii

Const cOdds = 8 '杂点出现的机率

Const cAmount = 10 '文字数量

Const cCode = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ

'颜色的数据(字符，背景)

Dim vColorData(1)

vColorData(0) = ChrB(0) & ChrB(0) & ChrB(255) '蓝0，绿0，红0(黑色)

vColorData(1) = ChrB(235) & ChrB(235) & ChrB(235) '蓝250，绿236，红211(浅蓝色)

'随机产生字符

Dim vCode(4), vCodes

For i = 0 To 3

vCode(i) = Int(Rnd * cAmount)

vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)

Next

session(ddyanzheng)=vCodes '记录入Session

'字符的数据

Dim vNumberData(35)

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

vNumberData(10) = 1111011111111101111111101011111110101111111010111111101011111100000111110111011111011101111000100011

vNumberData(11) = 1000000111110111101111011110111101110111110000111111011101111101111011110111101111011110111000000111

vNumberData(12) = 1110000011110111101110111110111011111111101111111110111111111011111111101111101111011101111110001111

vNumberData(13) = 1000001111110111011111011110111101111011110111101111011110111101111011110111101111011101111000001111

vNumberData(14) = 1000000111110111101111011011111101101111110000111111011011111101101111110111111111011110111000000111

vNumberData(15) = 1000000111110111101111011011111101101111110000111111011011111101101111110111111111011111111000111111

vNumberData(16) = 1110000111110111011110111101111011111111101111111110111111111011100011101111011111011101111110001111

vNumberData(17) = 1000100011110111011111011101111101110111110000011111011101111101110111110111011111011101111000100011

vNumberData(18) = 1100000111111101111111110111111111011111111101111111110111111111011111111101111111110111111100000111

vNumberData(19) = 1110000011111110111111111011111111101111111110111111111011111111101111111110111110111011111000011111

vNumberData(20) = 1000100011110111011111011011111101011111110001111111010111111101101111110110111111011101111000100011

vNumberData(21) = 1000111111110111111111011111111101111111110111111111011111111101111111110111111111011110111000000011

vNumberData(22) = 1000100011110010011111001001111100100111110101011111010101111101010111110101011111010101111001010011

vNumberData(23) = 1000100011110011011111001101111101010111110101011111010101111101100111110110011111011001111000110111

vNumberData(24) = 1110001111110111011110111110111011111011101111101110111110111011111011101111101111011101111110001111

vNumberData(25) = 1000000111110111101111011110111101111011110000011111011111111101111111110111111111011111111000111111

vNumberData(26) = 1110001111110111011110111110111011111011101111101110111110111011111011101001101111011001111110001011

vNumberData(27) = 1000001111110111011111011101111101110111110000111111010111111101101111110110111111011101111000110011

vNumberData(28) = 1110000011110111101111011110111101111111111001111111111001111111111011110111101111011110111100000111

vNumberData(29) = 1000000011101101101111110111111111011111111101111111110111111111011111111101111111110111111110001111

vNumberData(30) = 1000100011110111011111011101111101110111110111011111011101111101110111110111011111011101111110001111

vNumberData(31) = 1000100011110111011111011101111101110111111010111111101011111110101111111010111111110111111111011111

vNumberData(32) = 1001010011110101011111010101111101010111110101011111001001111110101111111010111111101011111110101111

vNumberData(33) = 1000100011110111011111101011111110101111111101111111110111111110101111111010111111011101111000100011

vNumberData(34) = 1000100011110111011111011101111110101111111010111111110111111111011111111101111111110111111110001111

vNumberData(35) = 1100000011110111011111111101111111101111111110111111110111111111011111111011111111101110111100000011

'输出图像文件头

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 '历经所有行

For ii = 0 To 3 '历经所有字

For iii = 1 To 10 '历经所有像素

'逐行、逐字、逐像素地输出图像数据

If Rnd * 99 + 1 cOdds Then '随机生成杂点

Response.BinaryWrite vColorData(0)

Else Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))

End If

Next

Next

Next

End Sub%

3、在submit.asp验证验证码输入的是否正确

%if trim(server.HTMLEncode(Request.Form(yanzheng))) session(ddyanzheng) then

response.Write(验证码不正确)

'response.Redirect(index.asp)

else

response.Write(ok)

end if

%

取消

评论

嘟嘟杜杜嘟
关注
<!DOCTYPE>
我多么希望明天有太阳，来灼烧我腐烂的梦想
01-19 493
http://www.w3school.com.cn/html/html_doctype.asp 声明 Web 世界中存在许多不同的文档。只有了解文档的类型，浏览器才能正确地显示文档。 HTML 也有多个不同的版本，只有完全明白页面中使用的确切 HTML 版本，浏览器才能完全正确地显示出 HTML 页面。这就是 的用处。 不是 HTML 标签。
ASP.NET登录时验证码的制作与验证
将暮未暮缓缓归的博客
03-27 5050
ASP.NET 验证码的制作与校验（使用 cookie 传值） （1）验证码应该是图片格式，不能是文字格式，即无法用鼠标选中。 （2）验证码上应该有噪点和干扰线条。 （3）验证码应该回避相似字符，如“0”和“o”“I”和“1”等。 （4）验证码至少是数字和字母（含大小写）的组合，不应该是单纯的数字或字母，可以出现汉字。应该实现输入验证码字母字母“不区分大小写”。验证码中的内容，应该是随机生成。 （5）验证码，可以通过点击图片或旁边文字实现“看不清，换一张”的功能
ASP.net 简单注册界面
m0_56227168的博客
02-10 6884
一.说明 此文是小白在学习张晨光老师的视频教学<<Asp.Net WEB服务器编程技术>>中做的学习笔记,一些知识点也是跟着教程走的,大家也可以去老师的主页去学习,谢谢大家. 这一篇要练习的是,如下课程的代码: 先新建img文件夹,用来存储图片: 图片大家可以在网上随便找一些壁纸来替代,练习所用,不必太过讲究 再新建js文件夹,用来存放js文件: 从 jquery.com 下载 jQuery 库 二.注册界面(RegUser.aspx) 前端代码: <%@ Page La
asp.net 真正实现完全跨域单点登录
cuoban的学习空间
05-04 3459
asp.net 跨域单点登录     关键字：单点登录   跨域    跨域单点登录 源代码下载：http://download.csdn.net/source/1571879  单点登录（Single Sign On），简称为 SSO，是目前比较流行的企业业务整合的解决方案之一。SSO的定义是在多个应用系统中，用户只需要登录一次就可以访问所有相互信任的应用系统。 asp.n
ASP.NET验证控件学习总结与正则表达式学习入门
阳光岛主
12-08 1万+
【ASP.NET】基础补习之验证控件 在做Web应用程序的时候，因为用户有可能输入各式各样的信息，经常需要大量的数据验证，如果交给服务器去验证的话，无疑会增加服务器的压力，而且也容易造成程序的异常。甚至导致网站出现一些安全问题。因此我们在将这些信息保存到网站的数据库之前,要对这些用户所输入的信息进行数据的合法性校验,以便后面的程序可以安全顺利的执行。ASP.NET提供了六种验证控件，可
基于ASP.NET的企业进销存管理系统的设计和实现（APP+网页）
毕业作品网站
10-15 703
产品价表是本系统的重点，管理员可针对不同渠道不同区域的不同产品差异化定价，尽可能符合当前区域的经济需求。业务代表在本系统中扮演了重要角色，承担了企业与客户沟通的桥梁，在线下跑订单，下预售订单等都由业务代表完成。司机负责货运，业务代表负责在手机APP为客户下订单，可下订单包括销售单，预售单，退货单，在手机端业务代表可任意组合自己的付款方式，灵活完成客户订单需求。为了使用户能够更加直观地了解整个系统的业务关系、工作顺序以及相应的管理信息的流向，在此给出了本系统的业务流程图，如图3-1所示。
ASP.Net之使用Cookie和Session实现自动登录
松一160
06-30 5258
一、UserLogin.aspx代码 window.onload = function () { var validateCode = document.getElementById("validateCode"); validateCode.onclick = function () {
ASP.NET 系列_05_编程指南(一)
pre_eminent的JAVA学习园地
08-05 821
  关于 ASP.NET 编程指南 ASP.NET 编程指南 注意:  编程指南4篇文章, 全部是使用ASP.NET Web Forms模板创建项目(即: 带CodeBehind的Web窗体模板) (注意: 不是MVC模板!)   github地址:  https://github.com/ixixii/ASP.NET_02_WebForms   ASP.NET 是一个由 M...
解读ASP.NET密码强度验证代码实例分享
01-02
@ Page Language=”C#” AutoEventWireup=”true” CodeFile=”Default.aspx.cs” Inherits=”_Default” %> <!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” ...
asp.net获取session进行简单的用户登录验证。
热门推荐
hoho_12
03-31 2万+
.net 获取session 用于简单的用户登录验证。
.NET ASP.NET支付宝支付接口调用实现
qq_43434300的博客
11-06 1179
此接口APP_Code下一共五个类介绍注释详细，代码如下，连个web窗体分别为同步异步，和点击去支付的点击事件，log文件夹，本人个人自己新添加的注释都有提出标注，接口压缩包地址也会留在下方。 AlipayConfig.cs代码如下，需要传入的参数有以2088开头合作身份者ID签约账号、MD5格式的密钥、同步路径、异步路径。 using System.Web; using System.Tex...
asp.net2.0密码强度验证
jayhuu的专栏
02-23 578
辽宁对外经贸学院在湖南2021-2024各专业最低录取分数及位次表.pdf
09-23
全国各大学在湖南2021-2024年各专业最低录取分数及录取位次数据，高考志愿必备参考数据
【SCI2区】基于matlab VMD-灰狼算法GWO-LSTM光伏预测【含Matlab源码 7666期】.zip
最新发布
09-23
CSDN海神之光上传的全部代码均可运行，亲测可用，直接替换数据即可，适合小白； 1、代码压缩包内容 主函数：Main.m； 调用函数：其他m文件；无需运行 运行结果效果图； 2、代码运行版本 Matlab 2023b；若运行有误，根据提示修改；若不会，可私信博主； 3、运行操作步骤 步骤一：将所有文件放到Matlab的当前文件夹中； 步骤二：双击打开除Main.m的其他m文件； 步骤三：点击运行，等程序运行完得到结果； 4、仿真咨询 如需其他服务，可私信博主或扫描博主博客文章底部QQ名片； 4.1 CSDN博客或资源的完整代码提供 4.2 期刊或参考文献复现 4.3 Matlab程序定制 4.4 科研合作 VMD-智能优化算法优化LSTM回归预测系列程序定制或科研合作方向： 4.4.1 VMD-遗传算法GA/蚁群算法ACO优化LSTM回归预测 4.4.2 VMD-粒子群算法PSO/蛙跳算法SFLA优化LSTM回归预测 4.4.3 灰狼算法GWO/狼群算法WPA优化LSTM回归预测 4.4.4 VMD-鲸鱼算法WOA/麻雀算法SSA优化LSTM回归预测 4.4.5 VMD-萤火虫算法FA/差分算法DE优化LSTM回归预测 4.4.6 VMD-其他优化算法优化LSTM回归预测
解读X-RFID芯片中的XLPM一次性编程存储特性
09-23
内容概要：本文解析了XLPM存储器的一次编程特性，并讨论了其基于比特级别单向不可逆变化的工作方式以及RFID设备中具体的写操作机制。此外，还探讨了协议规定对写操作时间和写失败情况的相关规定。 适用人群：硬件工程师和技术支持团队。 使用场景及目标：用于深入理解XLPM OTP存储技术并在X-RFID应用场景下进行可靠的程序烧录。 其他说明：对于理解OTP存储解决方案在无线射频标识（RFID）系统应用中的局限性和优化提供了帮助。
基于C语言的Horizon操作系统半成品设计源码
09-23
该项目是基于C语言的Horizon操作系统半成品设计源码，包含157个文件，其中包括62个头文件（.h），52个C源文件（.c），8个Makefile文件（.mk），6个JSON配置文件，4个汇编语言文件（.asm），2个链接脚本文件（.lds），1个Clang格式配置文件（.clang-format），1个YAML配置文件（.yml），1个Git忽略文件（.gitignore）和1个许可证文件（LICENSE）。这个系统是一个独立制作的半成品操作系统。
ASP入门教程：HTML+VBScript+JavaScript基础与实践
2. VBScript与JavaScript：VBScript是ASP默认的脚本语言，示例中的`<script language="vbscript">`块展示了如何在页面中执行VBScript代码。JavaScript则是一种广泛使用的客户端脚本语言，用于增强用户交互。两者都...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值