我在xh_login.asp输入用户名和密码，然后跳转到xh_cklogin.asp进行判断，根据用户的权限（用户表中的type）选择跳转到哪个新页面
但是输入了用户名和密码后却停在xh_cklogin.asp的空白页面上了，这是怎么回事啊？
请帮忙
xh_cklogin.asp代码如下

<!--#include file="xh_conn.asp"-->
<%

myAccount = trim(request("username"))
myPass = trim(request("Password"))

set Conn = Server.CreateObject("Adodb.Connection")
Connstr = "Driver={SQL Server};Server=cylong;UID=sa;PWD=;Database=生产管理"
Conn.open connstr
CheckSql = "SELECT * FROM 用户 WHERE 用户名 = '"&myAccount&"' AND 密码 = '"&myPass&"'"
set checkRs = Server.CreateObject("Adodb.Recordset")
checkRs.Open CheckSql,Conn,1,1
if checkRs.eof then
response.write "<script language=javascript>alert('对不起密码输入错误');history.back(-1)</script>"
end if

Select Case session("type")
Case "1"
response.redirect "1.asp"
Case "2"
response.redirect "2.asp"
Case "3"
response.redirect "3.asp"
end select
%>

谢谢

[此贴子已经被作者于2005-12-28 0:17:08编辑过]

把session("type")改为rs("type"），运行显示
Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值: 'rs'

在代码前加上response.write(session("type")),结果还是和以前一样，停在xh_cklogin.asp的空白页面上了。

添加了type=checkRs("type")后，运行显示
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/roylong/admin/xh_cklogin.asp, line 17
type=checkRs("type")


添加了Session("type")=rs("type")后，运行显示
错误类型：
Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值: 'rs'
/roylong/admin/xh_cklogin.asp, 第 17 行

那关于给session("type"）赋值
能帮忙修改下我的代码吗？
我才开始学，没什么经验

这个ASP页面开始只是准备验证用户后直接进入，后来准备修改成根据用户权限登陆到不同页面

session("type")这是后来修改的时候添加的，前面都没有涉及这个

type是数据库中用户表的一项，内容是1，2，3数字

[此贴子已经被作者于2005-12-28 13:58:42编辑过]

修改为unix提供的的代码后
运行就显示
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/roylong/admin/xh_cklogin.asp, line 15, column 20
if checkRS("密码") = '"&myPass&"' then
-------------------^

重新修改了下
<!--#include file="xh_conn.asp"-->
<%
myAccount = trim(request("username"))
myPass = trim(request("Password"))

set Conn = Server.CreateObject("Adodb.Connection")
Connstr = "Driver={SQL Server};Server=cylong;UID=sa;PWD=;Database=生产管理"
Conn.open connstr
CheckSql = "SELECT * FROM 用户 WHERE username = '"&myAccount&"' AND Password = '"&myPass&"'"
set checkRs = Server.CreateObject("Adodb.Recordset")
checkRs.Open CheckSql,Conn,1,1
if checkRs.eof then
response.write "<script language=javascript>alert('对不起密码输入错误');history.back(-1)</script>"
end if

session("type")=checkRs("type")

checkRs.close
conn.close

Select Case session("type")
Case "1"
response.redirect "aa.asp"
Case "2"
response.redirect "bb.asp"
Case "3"
response.redirect "cc.asp"
end select
%>

添加了session("type")=checkRs("type")
但是还是和以前一样，停留在xh_cklogin.asp的空白页面啊

Case "1"
去掉引号就正常可以了
呵呵