中科新闻网钟祥市文集镇有哪些村:ASP大虾们请进！！！
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 23:09:12
我想在首页设置一个登陆按钮，如果没登陆，就不能修改信息。但我实现的时候有错误，检查好久了，还没解决。望高手指教：
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/ASPzy/代码/index1.asp, 第 79 行
源代码：
<%
If Trim(Request("love_name"))<>"" and Trim(Request("love_name"))<>"" Then '用户名密码不为空
Dim rs,strSql
strSql ="Select * From users Where love_name ='" & Request ("love_name") & "' And password='" & Request("password") & "'"
Set rs=db.Execute(strSql) ‘第 79 行
If Not rs.Bof And Not rs.Eof Then
'这里用Session传递记录的Id号，因为Id是主健，唯一
Session("Id")=rs("Id")
Response.Redirect "denglu.asp"
Response.Write "您好！欢迎您访问本站。"
Else
Response.Write "对不起，您还没有登陆。"
End If
End If
%>
希望可以详细指导一下，谢谢！
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/ASPzy/代码/index1.asp, 第 79 行
源代码：
<%
If Trim(Request("love_name"))<>"" and Trim(Request("love_name"))<>"" Then '用户名密码不为空
Dim rs,strSql
strSql ="Select * From users Where love_name ='" & Request ("love_name") & "' And password='" & Request("password") & "'"
Set rs=db.Execute(strSql) ‘第 79 行
If Not rs.Bof And Not rs.Eof Then
'这里用Session传递记录的Id号，因为Id是主健，唯一
Session("Id")=rs("Id")
Response.Redirect "denglu.asp"
Response.Write "您好！欢迎您访问本站。"
Else
Response.Write "对不起，您还没有登陆。"
End If
End If
%>
希望可以详细指导一下，谢谢！
set db=server.CreateObject("adodb.connection")
db1=server.MapPath("数据库的相对路径和名字")
db2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&db1
db.open db2
你连了数据库吗?
在上面加一句:
set rs=server.createobject("adodb.recordset")
Dim rs,strSql 后加
set rs=server.createobject("adodb.recordset")
sql语句的判断句where后边好像要加个括号(),我也不知道这样对不对试试吧