UC知道高分求高手帮忙，asp登陆问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 00:48:24
数据库名：userlist，字段名称：UserName 文本，Password 文本，student 是/否
登陆界面比较简单，主要是index。asp代码如下
<%
Dim Name, Password
Dim objConn, objRS
Name = Trim(Request("Name"))
Password = Trim(Request("Password"))
if Session("Name")<>"" and Session("Password")<>"" then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("/Data.mdb")
objConn.Open
strSQL = "SELECT * FROM userlist WHERE Name=' " & UserName & " ' AND Password=' " & Password & " ' "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,objConn, 1, 1
If (Not objRS.Bof And objRS.Eof
登陆界面比较简单，主要是index。asp代码如下
<%
Dim Name, Password
Dim objConn, objRS
Name = Trim(Request("Name"))
Password = Trim(Request("Password"))
if Session("Name")<>"" and Session("Password")<>"" then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("/Data.mdb")
objConn.Open
strSQL = "SELECT * FROM userlist WHERE Name=' " & UserName & " ' AND Password=' " & Password & " ' "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,objConn, 1, 1
If (Not objRS.Bof And objRS.Eof
Response.Write "<SCRIPT language=javaScript>" & vbcrlf
Response.Write "alert(""对不起，编号或口令不正确!"");" & vbcrlf
Response.write "location.href=""login.asp"";"
Response.Write "</SCRIPT>"
If objRS("student") Then 改为:
If objRS("student")=false Then '为true时转学生页面,为false时转老师页面
如果还不行,建议把字段student数据类型改为INT,值是1或0,1表示学生,0表示教师
1. 你的程序没实现身份验证。只是查询了一下用户是否存在。
2. 你说的重定向，是在什么情况下进行重定向？response.redirect是没错的。提示登录错误以后应该还要加上history.back()
你的这种不太行 很繁琐！
有兴趣的话 我可以给你另一种方法的代码。
想要可以找我 ！