asp 登录——帮我看看哪儿错了！（在线等待、、、、、、、、）

代码如下，求求高手帮我看看吧我头都要爆炸了<%dim rs,sqldim namename=request("name")conn = "DBQ=" + server.mappath("as.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" sql = "SELECT name FROM stu where name =✀"&name&"✀"set rs=server.createobject("adodb.recordset") rs.open SQL,conn,1,1if rs.eof then Errmsg="提示：用户不存在"elseIf name<>rs.Fields("name") Then Errmsg="提示:登录失败!" Else Errmsg="登陆成功"rs.closeend if %><html><body><form id="form1" name="form1" method="post" action=""> <p> </p> <p> <label>登录名 <input type="text" name="name" /> </label> </p> <p> </p> <p> <label> <input type="submit" name="Submit" value="提交" /> </label> </p> <p> </p> <p> </p></form> </body></html>一楼的朋友，请问要是登录成功后跳转到另一个页面在哪儿还需添加什么代码

2026年09月23日 17:39

有2个网友回答

网友（1）：

<%
if request("name")<>"" then
dim rs,sql

dim name
name=request("name")
db="as.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr

sql = "SELECT name FROM stu where name ='"&name&"'"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1

if rs.eof then

Errmsg="提示：用户不存在"

else

If name<>rs.Fields("name") Then
Errmsg="提示:登录失败!"
Else
response.Write ""
'把要跳转的页面地址替换成你的地址就可以了，另外你的问题如果解决了请结题
response.end
end if
end if
rs.close
response.Write(Errmsg)
response.End()
end if
%>

网友（2）：

if rs.eof then

Errmsg="提示：用户不存在"

else

If name<>rs.Fields("name") Then
Errmsg="提示:登录失败!"
Else
Errmsg="登陆成功"(这句可以去掉）
response.redirect 加上你要跳转的页面（比如loginsucess.asp)
rs.close

end if