<%	Dim num1,rndnum
	Randomize
	Do While Len(rndnum)<4
	num1=CStr(Chr((57-48)*rnd+48))
	rndnum=rndnum&num1
	Loop
	session("verifycode")=rndnum
	%>
'表单行
 <tr>
          <td align="center" bordercolor="#f1f1f1"><input name="verifycode" type="text" class="mminput" id="verifycode" size="10" />
              <font color="#FF0000"><%=session("verifycode")%></font></td>
        </tr>


'判断
if request("verifycode")="" then
	response.write "<script language='javascript'>alert('请你确验证码！');history.go(-1);</script>"
	response.End()
elseif session("verifycode")="" then
	response.Write "<script language='javascript'>alert('请不要重复提交，如需重新登陆请返回登陆页面！');history.go(-1);</script>"
	response.End()
elseif session("verifycode")<>trim(request("verifycode")) then
	response.write "<script LANGUAGE='javascript'>alert('您输入的确认码有误，请重新输入！');history.go(-1);</script>"
	response.end
end if