#12002/11/17 2:56:18
我要做一个登录系统,当他输入 admin 和密码 chinaren时,进入amanage.asp 输入guest和密码guest时进search.asp 否则打开一个fail.asp,怎么运行的时候总是一个空的页面?(我在一个空页面设置的这段程序,里面有转到别的页面的程序啊,why??????)求高手救命!!这是原码,
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim RSlogin__struser
RSlogin__struser = "admin"
if (request.form("txtuser") <> "") then RSlogin__struser = request.form("txtuser")
%>
<%
Dim RSlogin__strpassword
RSlogin__strpassword = "chinaren"
if (request.form("txtpassword") <> "") then RSlogin__strpassword = request.form("txtpassword")
%>
<%
set RSlogin = Server.CreateObject("ADODB.Recordset")
RSlogin.ActiveConnection = MM_student_STRING
RSlogin.Source = "SELECT * FROM user WHERE user ='" + Replace(RSlogin__struser, "'", "''") + "' AND password='" + Replace(RSlogin__strpassword, "'", "''") + "'"
RSlogin.CursorType = 0
RSlogin.CursorLocation = 2
RSlogin.LockType = 3
RSlogin.Open()
RSlogin_numRows = 0
%>
Untitled Document
<%
if RSlogin__struser<>"admin" then
if not rslogin.eof then
session("svuser")=(rslogin.fields.item("user").value)
select case session("svuser")
case"admin"
response.redirect "manage.asp"
case"guest"
response.redirect "search.asp"
end select
else
response.redirect "fail.asp"
end if
end if
%>
<%
RSlogin.Close()
%>
