下拉菜单与数据库存的问题

[wrrlpx1234]

大家好,我有个问题问一下,我做了一个表单,是一个用户登陆系统，里面有一个下拉列表菜单，项目有，教师用户，学生用户，行政用户，还有一个用户名与密码的文本框，，我的要求是，当点击登陆后，与数据库核对，比如说，有一个用户，是属于学生用户，用户名与密码都是X，，还有一个用户是教师用户，用户名与密码都是W，当他们登陆成功后，Ｗ进入教师界面，js.asp，学生进入学生界面xs.asp，
我应该怎么实现这个效果呢，我已经写了一段，请大家帮帮忙，如何实现

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

<%
ON ERROR RESUME NEXT
Set cnn=Server.CreateObject("ADODB.Connection")
Set rec=Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data/ktsb.mdb")
cnn.Open
dim SQL
SQL="SELECT * FROM yh"
rec.Open SQL,cnn,1,1
if rec.RecordCount>0 then

if rec.fields("yh_type")=request.form("yh_type") AND rec.fields("yh_pwd")=request.form("yh_pwd") and rec.fields("yh_name")=request.form("yh_name") then
Session("Admin_Check")="OK"
set rec=nothing
set cnn=nothing
response.redirect "kt_main.asp"
end if
end if
response.write "<div align=center style='font-size:15pt;font-weight:bold;color:red'><br><br>账号和密码不对！<br><BR><BR><BR><BR><BR></div>"
response.write "<div align=center><font style='font-size:11pt;color:#0077ff;cursor:hand' onclick='history.go(-1)'>返 回</font></div>"

set rec=nothing
set cnn=nothing
%>



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[Go 旅城通票]

if rec.RecordCount >0 then

if rec.fields("yh_type")=request.form("yh_type") AND rec.fields("yh_pwd")=request.form("yh_pwd") and rec.fields("yh_name")=request.form("yh_name") then
Session("Admin_Check")="OK"
set rec=nothing
set cnn=nothing
if request.form("yh_type")="学生" then
response.redirect "xs.asp"
else
response.redirect "js.asp"
end if
end if
end if

[wrrlpx1234]

谢谢你这么快回复给我,而且是很正确的回答,我再想问一下,因为你只写了两个跳转,而我的条件有三个,xs.asp,js.asp,xz.asp,还能用IF语句来写吗,

[jingxiaoping]

用IF语句写也行，不过多了就显得乱了。
所有超过两个的时候一般都是用
SELECT CASE request.form("yh_type")
CASE "学生"
response.redirect "xs.asp"
CASE "教师"
response.redirect "js.asp"
END SELECT

[Go 旅城通票]

if request.form("yh_type")="学生" then
response.redirect "xs.asp"
elseif request.form("yh_type")="教师" then
response.redirect "js.asp"
elseif request.form("yh_type")="行政 " then
response.redirect "xz.asp"
else
response.write "参数错误"
end if

[wrrlpx1234]

我想给分,我不知道怎么给,showbo ,jingxiaoping 我给你们分,回答的非常准确