[会员中心]  [发布文章][发布软件]  [中文繁體]

文章·资料  电脑软件  手机软件  网站源码 电脑·手机·网络学习话题娱乐故事 文化·历史国学典籍法律法规 操作系统网络办公·文件音频视频图形图像 硬件·驱动程序行业教学学习编程游戏 安卓苹果鸿蒙 其他 ASPASP.NETJSPPHP HTML·CSS·JavaScript

本 站 搜 索 文章 软件 [选项] 文章类别： [全部]电脑·手机·网络话题故事文化·历史娱乐学习法律·法规国学典籍 搜索选项： 文章编号 文章标题 文章作者 文章来源 相关链接 关键字词 文章标签 文章内容 软件类别： [全部]操作系统网络办公·文件音频视频图形图像行业编程教学学习游戏硬件·驱动程序安卓系统苹果系统鸿蒙系统其他系统HTML·CSS·JavaScriptASPJSPPHPASP.NET 搜索选项： 软件编号 软件名称 软件作者 软件来源 相关链接 关键字词 软件标签 软件简介

发 送 文 章 无组件生成验证码-GIF格式 〖评论()〗〖留言〗〖收藏〗  收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 无组件生成验证码-GIF格式 来自：蓝色理想 % OptionExplicit’显示声明 ClassCom_GifCode_Class ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’Author:Layensupport@ssaw.net84815733(QQ) ’Thanks:Laomi,Laomiao,NetRube ’2006-01-02 ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ PublicNoisy,Count,Width,Height,Angle,Offset,Border PrivateGraph(),Margin(3) PrivateSubClass_Initialize() Randomize Noisy=16’干扰点出现的概率 Count=4’字符数量 Width=80’图片宽度 Height=20’图片高度 Angle=2’角度随机变化量 Offset=20’偏移随机变化量 Border=1’边框大小 EndSub PublicFunctionCreate() ConstcCharSet=123456789 Dimi,x,y DimvValidCode:vValidCode= DimvIndex ReDimGraph(Width-1,Height-1) Fori=0ToCount-1 vIndex=Int(Rnd*Len(cCharSet)) vValidCode=vValidCode+Mid(cCharSet,vIndex+1,1) SetDrawvIndex,i Next Create=vValidCode EndFunction SubSetDot(pX,pY) IfpX*(Width-pX-1)=0AndpY*(Height-pY-1)=0Then Graph(pX,pY)=1 EndIf EndSub PublicSubSetDraw(pIndex,pNumber) ’字符数据 DimDotData(8) DotData(0)=Array(30,15,50,1,50,100) DotData(1)=Array(1,34,30,1,71,1,100,34,1,100,93,100,100,86) DotData(2)=Array(1,1,100,1,42,42,100,70,50,100,1,70) DotData(3)=Array(100,73,6,73,75,6,75,100) DotData(4)=Array(100,1,1,1,1,50,50,35,100,55,100,80,50,100,1,95) DotData(5)=Array(100,20,70,1,20,1,1,30,1,80,30,100,70,100,100,80,100,60,70,50,30,50,1,60) DotData(6)=Array(6,26,6,6,100,6,53,100) DotData(7)=Array(100,30,100,20,70,1,30,1,1,20,1,30,100,70,100,80,70,100,30,100,1,80,1,70,100,30) DotData(8)=Array(1,80,30,100,80,100,100,70,100,20,70,1,30,1,1,20,1,40,30,50,70,50,100,40) DimvExtent:vExtent=Width/Count Margin(0)=Border+vExtent*(Rnd*Offset)/100+Margin(1) Margin(1)=vExtent*(pNumber+1)-Border-vExtent*(Rnd*Offset)/100 Margin(2)=Border+Height*(Rnd*Offset)/100 Margin(3)=Height-Border-Height*(Rnd*Offset)/100 DimvStartX,vEndX,vStartY,vEndY DimvWidth,vHeight,vDX,vDY,vDeltaT DimvAngle,vLength vWidth=Int(Margin(1)-Margin(0)) vHeight=Int(Margin(3)-Margin(2)) ’起始坐标 vStartX=Int((DotData(pIndex)(0)-1)*vWidth/100) vStartY=Int((DotData(pIndex)(1)-1)*vHeight/100) Dimi,j Fori=1ToUBound(DotData(pIndex),1)/2 IfDotData(pIndex)(2*i-2)0AndDotData(pIndex)(2*i)0Then ’终点坐标 vEndX=(DotData(pIndex)(2*i)-1)*vWidth/100 vEndY=(DotData(pIndex)(2*i+1)-1)*vHeight/100 ’横向差距 vDX=vEndX-vStartX ’纵向差距 vDY=vEndY-vStartY ’倾斜角度 IfvDX=0Then vAngle=Sgn(vDY)*3.14/2 Else vAngle=Atn(vDY/vDX) EndIf ’两坐标距离 IfSin(vAngle)=0Then vLength=vDX Else vLength=vDY/Sin(vAngle) EndIf ’随机转动角度 vAngle=vAngle+(Rnd-0.5)*2*Angle*3.14*2/100 vDX=Int(Cos(vAngle)*vLength) vDY=Int(Sin(vAngle)*vLength) IfAbs(vDX)Abs(vDY)ThenvDeltaT=Abs(vDX)ElsevDeltaT=Abs(vDY) Forj=1TovDeltaT SetDotMargin(0)+vStartX+j*vDX/vDeltaT,Margin(2)+vStartY+j*vDY/vDeltaT Next vStartX=vStartX+vDX vStartY=vStartY+vDY EndIf Next EndSub PublicSubOutput() Response.Expires=-9999 Response.AddHeaderpragma,no-cache Response.AddHeadercache-ctrol,no-cache Response.ContentType=image/gif ’文件类型 Response.BinaryWriteChrB(Asc(G))ChrB(Asc(I))ChrB(Asc(F)) ’版本信息 Response.BinaryWriteChrB(Asc(8))ChrB(Asc(9))ChrB(Asc(a)) ’逻辑屏幕宽度 Response.BinaryWriteChrB(WidthMod256)ChrB((Width\256)Mod256) ’逻辑屏幕高度 Response.BinaryWriteChrB(HeightMod256)ChrB((Height\256)Mod256) Response.BinaryWriteChrB(128)ChrB(0)ChrB(0) ’全局颜色列表 Response.BinaryWriteChrB(255)ChrB(255)ChrB(255) Response.BinaryWriteChrB(0)ChrB(85)ChrB(255) ’图象标识符 Response.BinaryWriteChrB(Asc(,)) Response.BinaryWriteChrB(0)ChrB(0)ChrB(0)ChrB(0) ’图象宽度 Response.BinaryWriteChrB(WidthMod256)ChrB((Width\256)Mod256) ’图象高度 Response.BinaryWriteChrB(HeightMod256)ChrB((Height\256)Mod256) Response.BinaryWriteChrB(0)ChrB(7)ChrB(255) Dimx,y,i:i=0 Fory=0ToHeight-1 Forx=0ToWidth-1 IfRndNoisy/100Then Response.BinaryWriteChrB(1-Graph(x,y)) Else Ifx*(x-Width)=0Ory*(y-Height)=0Then Response.BinaryWriteChrB(Graph(x,y)) Else IfGraph(x-1,y)=1OrGraph(x,y)OrGraph(x,y-1)=1Then Response.BinaryWriteChrB(1) Else Response.BinaryWriteChrB(0) EndIf EndIf EndIf If(y*Width+x+1)Mod126=0Then Response.BinaryWriteChrB(128) i=i+1 EndIf If(y*Width+x+i+1)Mod255=0Then If(Width*Height-y*Width-x-1)255Then Response.BinaryWriteChrB(255) Else Response.BinaryWriteChrB(Width*HeightMod255) EndIf EndIf Next Next Response.BinaryWriteChrB(128)ChrB(0)ChrB(129)ChrB(0)ChrB(59) EndSub EndClass DimmCode SetmCode=NewCom_GifCode_Class Session(GetCode)=mCode.Create() mCode.Output() SetmCode=Nothing % 保存成ASP文件即可看见效果!<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10000997" target="_blank">https://dangbai.cn/Article.asp?ID=10000997</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 发送协议 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网   本站使用【啊估文章软件站】网站系统    〖网站管理员留言簿〗