UC知道帮我看看哪错了
来源：百度知道 编辑：UC知道 时间：2024/05/13 16:35:37
要求注册的用户可查看其他页，没有注册的要返回注册页面，帮我看看哪出错了！
<%
session("name")=Trim(request.Form("name"))
session("password")=Trim(request.Form("password"))
Dim db
Set db=server.createobject("adodb.connection")
db.Open "Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim strsql,rs
strsql="select name,password from user"
Set rs=db.execute(strsql)
do While Not rs.eof
If session("name")=rs("name") And session("passowrd")=rs("password") Then
response.redirect "index.asp"
Else
rs.movenext
End If
Loop
response.write"您不是本站会员！请您先注册！"
response.write "<a href='zhuce.asp'>注册</a>"
%>
<%
session("name")=Trim(request.Form("name"))
session("password")=Trim(request.Form("password"))
Dim db
Set db=server.createobject("adodb.connection")
db.Open "Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim strsql,rs
strsql="select name,password from user"
Set rs=db.execute(strsql)
do While Not rs.eof
If session("name")=rs("name") And session("passowrd")=rs("password") Then
response.redirect "index.asp"
Else
rs.movenext
End If
Loop
response.write"您不是本站会员！请您先注册！"
response.write "<a href='zhuce.asp'>注册</a>"
%>
response.write"您不是本站会员！请您先注册！" 改成
response.write "您不是本站会员！请您先注册！"
这里这里
And session("passowrd")=rs("password") Then
第一个password写错了
Set db=server.createobject("adodb.connection")
ADODB 要大写啊,这个词!
下面的或者只是我们用的不同:你如果能用,就行
Dim strsql,rs
strsql="select name,password from user"
Set rs=db.execute(strsql)
上面怎么还要声明rs? 下面的不是有set rs了么?
楼上说的也很对,你那条语句我没见过..
将db.Open "Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
改为:
db.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="&Server.Mappath("wwwlink.mdb")
再试试