资源描述：
《ASP程序无组件生成验证码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、ASP程序无组件生成验证码 一、无组件生成验证码－GIF格式<%OptionExplicit'显示声明ClassCom_GifCode_Class''''''''''''''''''''''''''''''''''''''''''''''Author:Layensupport@ssaw.net84815733(QQ)'Thanks:Laomi,Laomiao,NetRube'2006-01-02'''''''''''''''''''''''''''''''''''''''''''''PublicNoisy,Count,Width,Height,Angle,Offset,Bor
2、derPrivateGraph(),Margin(3)PrivateSubClass_Initialize()RandomizeNoisy=16'干扰点出现的概率Count=4'字符数量Width=80'图片宽度Height=20'图片高度Angle=2'角度随机变化量Offset=20'偏移随机变化量Border=1'边框大小EndSubPublicFunctionCreate()ConstcCharSet="123456789"Dimi,x,yDimvValidCode:vValidCode=""DimvIndexReDimGraph(Width-1,Height-1)Fo
3、ri=0ToCount-1vIndex=Int(Rnd*Len(cCharSet))vValidCode=vValidCode+Mid(cCharSet,vIndex+1,1)SetDrawvIndex,iNextCreate=vValidCodeEndFunctionSubSetDot(pX,pY)IfpX*(Width-pX-1)>=0AndpY*(Height-pY-1)>=0ThenGraph(pX,pY)=1EndIfEndSubPublicSubSetDraw(pIndex,pNumber)'字符数据DimDotData(8)DotData(0)=Array(30,
4、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
5、,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/CountMargin(0)=
6、Border+vExtent*(Rnd*Offset)/100+Margin(1)Margin(1)=vExtent*(pNumber+1)-Border-vExtent*(Rnd*Offset)/100Margin(2)=Border+Height*(Rnd*Offset)/100Margin(3)=Height-Border-Height*(Rnd*Offset)/100DimvStartX,vEndX,vStartY,vEndYDimvWidth,vHeight,vDX,vDY,vDeltaTDimvAngle,vLengthvWidth=Int(Margin(1)-Ma
7、rgin(0))vHeight=Int(Margin(3)-Margin(2))'起始坐标vStartX=Int((DotData(pIndex)(0)-1)*vWidth/100)vStartY=Int((DotData(pIndex)(1)-1)*vHeight/100)Dimi,jFori=1ToUBound(DotData(pIndex),1)/2IfDotData(pIndex)(2*i-2)<>0AndDotData(pIndex)(2*i)<>0Then'终点坐标vEndX=(
