etononline 2004年12月23日
用户登入问题检测,烦。。。。
<!--#include file="conn.asp"-->
<%
dim name,password
name=request.form("user_id")
password=request.form("pass_word")
Set rst_cw=server.createobject("ADODB.Recordset")
Set rst_ca=server.createobject("ADODB.Recordset")
ls_sql="select * from admin_tabe where(user_id='"&name&"' and pass_word='"&password&"')"
set rs_cw=conn.Execute(ls_sql)
ls_sql="select * from user_tabe where(user_id='"&name&"' and user_password='"&password&"')"
set rs_ca=conn.Execute(ls_sql)

if rs_cw.eof and rs_cw.bof and rs_ca.eof and rs_ca.bof Then
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"

else
if rs_cw("user_id")="admin" then
session("checked")="yes"
session("check")="right"
session("name") =rs_ca("user_id")
response.Redirect "admin.asp"
else
session("checked")="yes"
session("check")="right"
session("name") =rs_ca("user_id")
response.Redirect "top.asp"
end if
end if
rs.Close
conn.Close
%>

就是两个表,一个用户,一个管理员。
管理员进管理页面,用户进用户页面。
...全文
110 点赞 收藏 16
写回复
16 条回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告