新微赢技术网

标题: 用户检查登录的问题 [打印本页]

作者: $星辰 时间: 2009-9-15 00:32
标题: 用户检查登录的问题
数据库是这样设计的.name.pwd,qx.分别对应用户名,密码和权限
我的想法是这样的.通过登录页面login.asp,提交给chklogin.asp检查,若是权限=1.跳转到admin.asp管理页面.权限=0,跳入普通会员user页面.
代码该如何写呢? 如何加入权限检查语句


<%
username=request.form("name")
password=request.Form("pwd")
if username="" then
response.redirect "index.asp"
end if
if password="" then
response.redirect "index.asp"
end if
dim sql,rs,password1
sql="select pwd from yonghu where username='"&name&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
password1=rs("pwd")
if password1=password then
session("adminok")=ok
response.redirect "admin.asp"
else
response.redirect "user.asp"
end if
rs.close

作者: 老肥 时间: 2009-12-28 06:05
对不起，我走错地方了，呵呵

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)