笔画打字:缺少对象: 'rs'

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 16:26:05
<!--#include file="incs/disdbconn.asp"-->
<%
backweb=request.servervariables("http_referer")
whos=request.form("whos")
whos=trim(whos)
username=request.form("username")
password=request("password")
if username="" or password="" then
response.write "<script language=javascript>alert('请填写用户名和密码!');"
response.write "window.history.go(-1);</script>"
response.end
end if

if username<>"" and password<>"" then
if whos="会员" then
sql="select * from info_mem where uname='"&username&"'"
rs.open sql,conn,1,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('没有该用户,请重新输入!');"
response.write"this.location.href='"&backweb&"';</SCRIPT>"
else
rpassword=rs("upass")
rname=rs("rname")
nick=rs("nick")
if password=rpassword then
id=rs("id")
logcount=rs("logcount")
logcount=logcount+1
rs("logcount")=logcount
rs.update
session("userid")=id
session("username")=rname
session("nick")=nick
theids=session.SessionID
session("tuserid")=id
conn.execute("update bbsonline set userid='"&id&"',username='"&nick&"' where userid='"&theids&"'")
response.write"<SCRIPT language=JavaScript>alert('登陆成功!');"
response.write"this.location.href='"&backweb&"';</SCRIPT>"
else
response.write"<SCRIPT language=JavaScript>alert('密码错误,请返回重新输入!');"
response.write"this.location.href='"&backweb&"';</SCRIPT>"
end if
end if
rs.close
set rs=nothing
else
sql="select * from info_shop where uname='"&username&"'"
rs.open sql,conn,1,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('没有该用户,请重新输入!');"
response.write"this.location.href='"&backweb&"';</SCRIPT>"
else
rpassword=rs("upass")
rname=rs("cman")
s_name=rs("s_name")
if password=rpassword then
id=rs("id")
logcount=rs("logcount")
logcount=logcount+1
rs("logcount")=logcount
rs.update
session("useridj")=id
session("usernamej")=rname
session("s_name")=s_name
response.write"<SCRIPT language=JavaScript>alert('登陆成功!');"
response.write"this.location.href='shop/minfo.asp';</SCRIPT>"
else
response.write"<SCRIPT language=JavaScript>alert('密码错误,请返回重新输入!');"
response.write"this.location.href='"&backweb&"';</SCRIPT>"
end if
end if
rs.close
set rs=nothing
end if
end if
%>

在第一个rs之前加一句
set rs=server.createobject("ADODB.RecordSet")

if username<>"" and password<>"" then
if whos="会员" then
sql="select * from info_mem where uname='"&username&"'"
在后边加上
set rs=server.createobject("ADODB.RecordSet")
就可以了
呵呵