[认证] 根据用户权限登陆到不同页面，为什么我的不能跳转？

枫影谁用了

我在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
%>

[ 本帖最后由 HonestQiao 于 2005-12-28 13:48 编辑 ]

枫影谁用了

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>"
else
Session("type")=rs("type")'你少了这个记录Session
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 13:48 编辑 ]

枫影谁用了

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

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


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

HonestQiao

ASP啊？收费提供技术支持。
PHP免费

枫影谁用了

搞定.

myAccount = trim(request("username"))
   myPass  = trim(replace(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&"'"
   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>"
else
  if  checkRS("密码") = '"&myPass&"' then
   session("TYPE")=checkRs("types")
  else
   response.write "<script language=javascript>alert('对不起密码错误');history.back(-1)</script>"
  end if
   end if

checkRs.close
conn.close

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

枫影谁用了

原帖由 HonestQiao 于 2005-12-28 13:48 发表
ASP啊？收费提供技术支持。
PHP免费

BS一下你!!

HonestQiao

原帖由 枫影谁用了 于 2005-12-28 15:18 发表



BS一下你!!

偶BS ASP

newbuding

偶CJBS asp wahaha