怎样生成带有随机杂点的ASP数字以及字母验证码

zhima365 zhima365 博客等级 墨衍会员 · AI 创作全网分发 墨衍智能分发 本文由作者通过墨衍一键同步至各平台 1分发平台 600+累计阅读 623平均单平台 已同步平台 CSDN 微信公众号 微博 知乎 掘金 百家号 博客园 抖音 小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网 我也要 码龄14年
关注
原创 最新推荐文章于 2025-09-10 15:34:06 发布 623 阅读 AI 写同款· GEO 优化 ›
windows2003安装iis问题 <br />在添加删除windows组件中找不到IIS。<br />用配置您的服务器向导 中会提示无法安装，但是也没提示错误。<br />日志中也只是说这个：<br />应用程序服务器的配置<br />IIS 不能安装到此服务器上。<br />要安装 IIS，请尝试再次运行“配置您的服务器向导”，或使用“添加或删除程序”。<br />安装UDDI则报了组策略中禁止安装IIS。<br /><br />运行“ 运行gpedit.msc”->计算机配置->管理模版 ->Windows组件->Internet信息服 阅读详情

  一般来说生成验证码方式比较多，一般有数字字母形式、纯数字形式、纯字母形式等等，之前有朋友咨询过关于如何生产带有随机杂点的验证码？

  今天知码网就为大家分享一下，如何使用ASP的方式生产数字字母的随机杂点验证码。

<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
session.TimeOut=60
Call Com_CreatValidCode("Validatecode")

Sub Com_CreatValidCode(pSN)
' 禁止缓存
Response.Expires = -9999
Response.AddHeader "PRagma","no-cache"
Response.AddHeader "Cache-Control","no-cache"
Response.ContentType = "Image/BMP"

Randomize

Dim i, ii, iii

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


' 颜色的数据(字符，背景)
Dim vColorData(1)
vColorData(0) = ChrB(204) & ChrB(0) & ChrB(0)  ' 蓝204，绿0，红0（蓝色）
vColorData(1) = ChrB(252) & ChrB(232) & ChrB(221) ' 蓝252，绿232，红221（浅蓝色）

' 随机产生字符
Const cAmount = 36 ' 文字数量
Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim vCode(4), vCodes
For i = 0 To 3
  vCode(i) = Int(Rnd * cAmount)
  vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next

Session(pSN) = 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.BinaryWritevColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
    End If
   Next
  Next
Next

End Sub
%>

  以上便是使用ASP方式生成带有随机杂点的数字字母验证码的方式。

  知码网是一家专业为软件设计者以及网络营销人士提供验证码服务以及游戏工作室提供答题专业服务公司。

  通过我们可以完成数万数十万量验证码的快速识别，保证质量，提高营销速度！

本内容遵循 CC 4.0 BY-SA 版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
Windows Server 2012 R2搭建IIS服务器及问题 先介绍常规安装流程，然后说明会遇到的问题，以及解决办法。 1-单击宫格菜单的第一个“服务器管理器”； 2-在“快速启动(Q)”子菜单下，单击“2 添加角色和功能”； 3-点击左边“安装类型”，然后单击“基于角色或基于功能的安装”，再单击“下一步(N)”； 4-先单击“从服务器池中选择服务器”，再单击“本服务器的计算机名”，这个ip上只有本机，所以直接单击“下一步(N)”; 阅读详情

相关推荐

IIS错误处理与解决方案大全

在当今数字化时代，微软的Internet信息服务（IIS）扮演着关键角色，它作为Windows服务器上广泛使用的Web服务器软件，其重要性不言而喻。本章将带您简要了解IIS的基本功能，以及在部署和管理IIS时可能遇到的一些常见错误及其解决策略。配置错误是IIS服务器中最常见的问题之一。通过细致地识别和诊断配置文件、网站绑定以及请求过滤器的问题，并采取相应的修复措施，可以有效地避免这些错误的发生，确保Web应用程序的稳定性和安全性。

weixin_30476025的博客 1485

asp生成图片验证码类

使用示例，请自行修改代码以适应你的页面： 提交页from.asp <% '如果验证码为空或者验证码不正确，执行 Then 内容，否则执行 else 内容 If IsEmpty(Session("GetCode")) Or Session("GetCode") UCase(Request.form("Form_Code")) Then Response.Write "alert('验证码输入错误！');history.go(-1)" Response.End Else Session("GetCode") = Empty ' 清空Session End If %> 调用页main.asp，点击图片更换验证码 document.write("");

Windows Server 2012 IIS安装源文件缺失解决方案

在本章中，我们详细介绍了三种获取Windows Server 2012 IIS角色安装文件的主流方式：通过微软官方渠道下载、使用本地ISO文件提取、以及通过企业内部镜像仓库部署。每种方式都有其适用场景和操作要点，尤其在企业环境中，构建统一的安装源管理体系，不仅有助于解决“找不到源文件”的问题，还能提升整体系统的安全性和可维护性。后续章节将继续介绍如何构建本地或网络共享安装源，并通过组策略和脚本自动化部署，确保IIS角色安装过程的稳定性和高效性。在提示错误时，勾选。

weixin_42608318的博客 1435

ASP验证码源代码

　　<%　　　　'------------------　　　　'图片验证码　　　　'netdust　　　　'05-8-29 发布　　　　'以前的图片验证码很容易被破解，所以在其基础上进行改进，即使知道源代码　　　　'也很难破解。　　　　'干扰次数每加一 -> 穷举法的代价提高约100*100倍　　　　'适当设定杂点几率可以有效降低软件识别正确率　　　　'05-12-20 ...

bangzhou5573的博客 435

ASP英文字母加数字随机验证码(4位)

charAndNum_checkCode.asp [code="java"] [/code] web页面上的引用 [code="java"] *验证码： [/code] 注意输入的验证码与产生的验证码是否相同,应该在提交处理中验证,不...

shirlly 923

ASP 验证码实例

生成验证码页面 ：VerifyCode.asp Option Explicit        ' 显示声明   Class Com_GifCode_Class       Public Noisy, Count, Width, Height, Angle, Offset, Border       Private Graph(), Margin(3)       Priv

qiufengwuxiu的博客 2650

ASP生成图形数字验证码

??Dim?a(10,10)??a(0,1)?=?"0x3c"?数字0??a(0,2)?=?"0x66"??a(0,3)?=?"0xc3"??a(0,4)?=?"0xc3"??a(0,5)?=?"0xc3"??a(0,6)?=?"0xc3"??a(0,7)?=?"0xc3"??a(0,8)?=?"0xc3"??a(0,9)?=?"0x66"??a(0,10)=?"0x3c"??a(1,1)?=

欢迎您步入怪豆世界--(UglyBean) 天行键，君子以自强不息；地势坤，君子以厚德载物! 1962

windows server2012无法安装IIS，提示：安装一个或多个角色、角色服务或功能失败

问题描述：无法安装.NET Framework 之前用windows server2012的操作系统的时候也没有出现过，但是最近一直就有这个情况。刚遇到这个问题的时候在网上查了很多资料，基本上都是说用镜像文件，重新安装之类的，太过于麻烦。于是去阿里云下了一个工单（这里不得不说一下，阿里云的售后工单还是挺好用的，不过不知道是不是由于疫情的原因，年后下工单都要打人工客服让他们帮忙下了，自己下不了了），在阿里云给出解决方案的同时，也在CSND上看到了同样的方法，于是就试了一下，确实挺好用。不过昨天又遇到一次这种

weixin_46644116的博客 2万+

【免费下载】 Windows Server 2012 安装 IIS 失败解决方案

Windows Server 2012 安装 IIS 失败解决方案 【下载地址】WindowsServer2012安装IIS失败解决方案 Windows Server 2012 安装 IIS 失败解决方案 项目地址: https:...

gitblog_09801的博客 1927

Windows Server 2012 R2 安装一个或多个角色服务器或功能失败

windows server2012无法安装IIS，提示：安装一个或多个角色、角色服务或功能失败 解决方法如下： 1.打开PowerShell，右键单击选择 以管理员身份运行。 2.执行如下命令（全部复制，直接粘贴即可） Set-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU' -Name UseWUServer -Value 0 Restart-Service -Name wuauserv In

Hello,I am Waleee 1万+

内部消息错误未安装服务器,安装服务器角色时发生安装失败 | Microsoft Docs

安装服务器角色 _ InstallIngmark 时发生安装失败2021/6/1本文内容适用于：Exchange Server 2013此主题中的内容尚未针对 Microsoft Exchange Server 2013 进行更新。虽然尚未更新，但仍可能适用于 Exchange 2013。如果您仍需要帮助，请查看下面的社区资源。遇到问题？请访问以下 Exchange 论坛寻求帮助：Exchange...

weixin_42501373的博客 406

解决IIS元数据库访问失败的技术指南

简介：IIS作为微软的Web服务器应用程序，可能会在安装或配置时遇到元数据库访问失败的问题，尤其在先安装Visual Studio之后。本文将探讨此问题的常见原因，如权限问题、版本冲突、服务未启动以及.NET Framework注册问题，并提供详细的解决步骤。解决方法包括检查并修复权限、重启服务、重新注册.NET Framework、检查服务状态、使用修复工具，以及在必要时重新安装IIS。文章强调了理解这些问题和解决方案的重要性，以便快速解决故障，并确保Web服务的稳定性。

weixin_33759613的博客 942

win2012文件服务器添加角色,win2012系统无法添加角色处理教程

导读：win2012系统无法添加角色处理教程 最近一些用户在使用Windows2012系统的时候，创建iis时出现一个或多个预部署任务失败，下方的提示是无法打开运行空间池。服务器管理器WinRM插件可能已损坏或丢失。小编就这个问题也查询了一些答案教程，比如打开服务，找到Wi……win2012系统无法添加角色处理教程最近一些用户在使用Windows2012系统的时候，创建iis时出现一个或多个预部署...

weixin_39661589的博客 2111

部署在IIS上的网站返回错误码 “405”解决方案

今天由于使用中的一台windows服务器硬盘损坏，导致系统需要重装，而这台服务器上原先部署着一个运行正常的网站，在这次同事装完IIS环境后， 启动网站时发现，能访问上面的文件，但是无法通过POST操作向网站上传递数据，花了一些时间才解决问题，以下是解决过程： 按照以前发生过类似的问题的解决方案，先怀疑的是网站权限问题，是不是EveryOne和 IUSE 对网站对应的物理路径都没有写入权限...

weixin_30920091的博客 1162

手把手教你安装 IIS 服务 + 配置网站，小白也能一次成功！

本文介绍了Windows系统自带的IIS(互联网信息服务)的安装与配置方法。IIS作为Web服务器工具，可快速搭建静态网站或部署ASP.NET应用。安装步骤包括通过服务器管理器添加角色、勾选Web服务器选项；配置过程涉及停用默认站点、添加新网站路径及域名。文章还提供了7个排查访问异常的步骤，如检查服务状态、网络配置、权限设置等，并分享了修改hosts文件、清除DNS缓存等实用技巧。通过系统化的安装、配置和排错指导，帮助读者快速掌握IIS的基础使用。

gengxuyangg的博客 3696

解决Windows XP中IIS安装问题：iis.dll和iis.inf的正确使用

理解这两个文件在IIS安装过程中的作用对于确保Web服务器正常工作至关重要。接下来的章节将深入探讨这些组件在IIS配置中的作用，以及如何在不同版本的Windows操作系统中管理和维护它们。解决IIS安装时文件缺失的错误需要有计划和谨慎的操作。手动下载和替换文件是最直接的方法，而系统还原和修复安装则提供了更为系统性的解决方案。在所有操作之前，创建文件和系统的备份始终是最佳实践。正确的诊断和精确的修复步骤可以确保IIS服务能够顺利运行，为用户提供稳定的服务环境。

weixin_29069575的博客 443

打包成功，但发布失败。 错误：无法连接到发布工具服务。 验证服务已启动并正在运行

错误消息 将服务从 ArcGIS for Desktop 发布到 ArcGIS for Server 时，将会返回以下错误： “打包成功，但发布失败。 错误：无法连接到发布工具服务。 验证服务已启动并正在运行”。 原因 下面是可能导致此错误的原因。 • ArcGIS for Server PublishingTools 未启动。 • 已发布服务的权限设置为“私有，仅面向所选用户”，并且没有为任何...

qq_39508627的博客 4618

IIS服务器搭建

这个原因是我电脑系统的IIS默认用的是ASP.NETv4.0应用程序池。

shuang的博客 1683
上一篇： 验证码工具分享-PHP识别工具SECURIMAGE
下一篇： 稳定的验证码识别,高质量验证码识别
点赞 0
评论 0
书签 书签 0
zhima365
zhima365
博客等级 码龄14年 12粉丝 65原创
+ 关注
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值