複製下面代碼，存為c_validcode.asp上傳到function下就可以了
複製代碼代碼如下:
<%@CODEPAGE=65001%>
<%
'///////////////////////////////////////////////////////////////////////////////
'//Z-Blog
'//作者:朱煊(zx.asd),sipo
'//版權所有:RainbowSoftStudio
'//技術支持:[email protected]
'//單元名稱:c_validcode.asp
'//開始時間:2007-4-4
'//最後修改:2007-4-4
'//備註:www.dc9.cn
'///////////////////////////////////////////////////////////////////////////////
%>
<%OptionExplicit%>
<%OnErrorResumeNext%>
<!--#includefile="../c_option.asp"-->
<!--#includefile="../function/c_function.asp"-->
<%
'.VerifyCodeGetVerifyNumber,False
ClassCom_GifCode_Class
PublicNoisy,Count,Width,Height,Angle,Offset,Border
PrivateGraph(),Margin(3)
PrivateSubClass_Initialize()
Randomize
Noisy=7'干擾點出現的概率
Count=5'字符數量
Width=60'圖片寬度
Height=20'圖片高度
Angle=3'角度隨機變化量
Offset=10'偏移隨機變化量
Border=2'邊框大小
EndSub
PublicFunctionCreate(str)
Dimi
DimvIndex
ReDimGraph(Width-1,Height-1)
Fori=0ToCount-1
vIndex=CInt(Mid(str,i+1,1)-1)
SetDrawvIndex,i
Next
EndFunction
SubSetDot(pX,pY)
IfpX*(Width-pX-1)>=0AndpY*(Height-pY-1)>=0Then
Graph(pX,pY)=1
EndIf
EndSub
PublicSubSetDraw(pIndex,pNumber)
'字符數據字典
IfpIndex=-1ThenpIndex=9
DimDotData(9)
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)