用asp+access登陆表单问题

Question

login.asp页面
<form name="LoginFrom" action="check.asp" method="Post">
<table width="331" height="102" border="1" align="center">
<tr>
<td colspan="2" align="center">用户登陆</td>
</tr>
<tr>
<td >用户名：</td>
<td ><input name="username" type="text" class=input style="FONT-SIZE: 12px; WIDTH: 110px"></td>
</tr>
<tr>
<td>密码：</td>
<td>
<label>
<input name="password" type="password" class=input style="FONT-SIZE: 12px; WIDTH: 110px">
</label></td>
</tr>
<tr>
<td>登陆类型：</td>
<td><select name="" id="">
<option value="">学生</option>
<option>老师</option>
</select></td>
</tr>
<tr>
<td colspan="2" align="center">
<label>
<input type="submit" name="login" id="login" value="提交">
<input type="reset" name="reset" id="reset" value="取消">
</label></td>
</tr>
</table>
</form>
check.asp页面不知怎样做，我是用来检查用户名和密码的，检查正确后跳到index.asp页面，错误就跳出js错误对话框，不知怎样写语句，求高手们帮我，急！谢谢！
怎样设置学生，和老师的权限，和怎样判断？最好写出整个check.asp页面和数据库

Answer 1

需要设置权限的话，用session变量，根据你获得的老师学生选项的值，
设置session变量的值，然后在一些功能页面检查session变量的值，来判断可以使用那些功能
如：
前台老师学生选择代码：
<select name="quanxian" id="quanxian">
<option value="学生">学生</option>
<option value="老师">老师</option>
</select>
检查页面代码：
if request("quanxian")="学生" then
session("quanxian")=1
else if request("quanxian")="老师" then
session("quanxian")=2
end if

Answer 2

前面的检查代码都有人写了
需要设置权限的话，用session变量，根据你获得的老师学生选项的值，
设置session变量的值，然后在一些功能页面检查session变量的值，来判断可以使用那些功能
如：
前台老师学生选择代码：
<select name="quanxian" id="quanxian">
<option value="学生">学生</option>
<option value="老师">老师</option>
</select>
检查页面代码：
if request("quanxian")="学生" then
session("quanxian")=1
else if request("quanxian")="老师" then
session("quanxian")=2
end if

Answer 3

user在SQL语句中是保留字，改为 select * from [user]
rs.("user") 改成rs("user")
request.("f_user")该成request("f_user")
还有，去看看安全方面的资料吧，你这样写的程序很危险

Answer 4

<!--#include file="conn.asp"-->
<%
username=replace(replace(request("admin_username"),"'",""),"=","")
password=replace(replace(request("admin_password"),"'",""),"=","")
if username="" or password="" then
response.write("<script>alert('请填写用户名和密码。非管理员请不要捣乱，谢谢!');history.go(-1) </script>")
response.End()
end if
set rs = server.CreateObject("adodb.recordset")
sql="select * from web_admin where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("账号密码错误,请重新输入。非管理员请不要捣乱，谢谢！")
response.End()
else
if rs("password")<>password then
response.Write("账号密码错误,请重新输入。非管理员请不要捣乱，谢谢！")
response.End()
else
session("baihao")="baihao"
response.Redirect("index.asp")
response.End()
end if
end if
rs.close
set rs = nothing
%>本回答被提问者和网友采纳