新建 文本文档 (2).txt

这是验证程序的代码

<input name="CheckCode" type="text" class="inpbox" size="5" maxlength="4">&nbsp;<%=getcode1()%>
上面的是输入框和调用
下面的放在方便调用的地方
'//*登陆验证码开始*//
Function getcode1()
	Dim test
	On Error Resume Next
	Set test=Server.CreateObject("Adodb.Stream")
	Set test=Nothing
	If Err Then
		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("GetCode") = zNum
		getcode1= Session("GetCode")		
	Else
		getcode1= "<img src=""getcode.asp"">"		
	End If
End Function
'//*登陆验证码结束*//