<!--#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> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </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"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
</form>
<p> </p>
</body>
</html>
getverifycode.asp的内容
<%
dim getrandom
Randomize '设置随机因子
getrandom=mid((rnd*100000),1,4) '生成6位随机数,取高4位
Session("verifycode")=getrandom '保存于Session中
%>