英文历史书籍推荐:ASP登录验证问题咨询。

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 19:06:38
<!-- #include file="conn.asp" -->
<!-- #include file="ini.asp" -->
<%
'打开数据库判断用户是否存在,info为表名,username为字段名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"
rsc.open sqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("welcome.asp")
'如果用户不存在,session("username")为空
%>

上边是验证页login.asp的代码,现在需要实现几项:

登录的时候:
要是数据库总没有该用户名和密码的话就要跳到一个注册界面reg.asp

要是输入的用户名和密码为空(也就是没输直接提交)的话也要显示“请输入用户名或者密码”

要是输入的用户名和密码错误的话就显示“请输入
正确的用户名和密码”

<!-- #include file="conn.asp" -->
<!-- #include file="ini.asp" -->
<%
'打开数据库判断用户是否存在,info为表名,username为字段名
set rsc=server.createobject("adodb.recordset")
if request.Form("username")="" or request.Form("password")="" then
response.write"请输入用户名和密码"
response.end
else
sqlc="select * from info where username='"&request.Form("username")&"'"
rsc.open sqlc,conn,1,1
if rsc.eof and rs.bof then response.Redirect("reg.asp")
if request.Form("password")=rsc("password") then
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("welcome.asp")
'如果用户不存在,session("username")为空
else
response.write"请输入正确的用户名和密码"
end if
end if
%>