asp验证码生成以及验证用户,请问高手以下代码错在那里!

来源:互联网 发布:淘宝魔镜是什么东西 编辑:程序博客网 时间:2024/05/18 01:21

<!--#include file="conn.asp"-->
<!--#include file="getverifycode.asp"-->
<%
usercode=Request.Form("yzm")
set rs = server.createobject("adodb.recordset")
if request.Form("submit")="提交" then
   sql="select * from admin where name='" & Request.Form("user") & "' and password='" & Request.Form("psd") & "'"
   rs.open sql,conn,1,1
    if  rs.eof or usercode <> Session("verifycode") then
     response.Write("<center>用户名,口令,验证码不正确!</center>")
        rs.close
    'else if usercode <> Session("verifycode") then
     ' response.Write("<center>验证码不正确!</center>")
     else
             session("user")=request.form("user")
          session("psd")=request.form("psd")
          response.Redirect("addnew.asp")
 end if
end if
if request.Form("submit")="退出" then
   response.Redirect("default.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录</title>
</head>

<body>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<form name="form1" method="post" action="">
  <table width="32%" border="0" align="center">
    <tr>
      <td width="38%"><div align="center">用户名: </div></td>
      <td width="62%"><input name="user" type="text" id="user"></td>
    </tr>
    <tr>
      <td><div align="center">口令: </div></td>
      <td><input name="psd" type="password" id="psd"></td>
    </tr>
    <tr>
      <td><div align="center">验证码: </div></td>
      <td><input name="yzm" type="text" id="yzm" size="15">
<%=mid(Session("verifycode"),1,4)%></td>
    </tr>
    <tr>
      <td><div align="center"> </div></td>
      <td><input type="submit" name="Submit" value="提交">
        <input name="Submit" type="reset" id="Submit" value="重设">
        <input name="Submit" type="submit" id="Submit" value="退出"></td>
    </tr>
  </table>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp;</p>
  <p align="center">&nbsp; </p>
</form>
<p>&nbsp;</p>
</body>
</html>

getverifycode.asp的内容

<%
dim getrandom
Randomize '设置随机因子
getrandom=mid((rnd*100000),1,4) '生成6位随机数,取高4位
Session("verifycode")=getrandom '保存于Session中
%>


原创粉丝点击