跨界通积分兑换不了:高手帮忙看看 怎么改?

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 06:10:31
Microsoft JET Database Engine 错误 '80004005'

操作必须使用一个可更新的查询。

/theme.asp,行 75
sql="insert into online(userid,ip,location) values "&_
"('访客','"&Request.ServerVariables("Remote_Addr")&"','同学录首页')"
第75行: conn.execute(sql)
end if
end if
if membername<>"" Then
Conn.Execute("delete from online where ip='"&Request.ServerVariables("Remote_Addr")&"' and userid='访客'")
Set oRs = Server.CreateObject("ADODB.Recordset")
sql="Select userid from online where userid='"&membername&"'"
oRs.open sql,conn,1,3
if oRs.eof and oRs.bof Then
sql="insert into online(userid,ip,location) values "&_
"('"&membername&"','"&Request.ServerVariables("Remote_Addr")&"','同学录首页')"
conn.execute(sql)
Else
if ClassName<>"" Then
loc="『 <a href=BrowseClass.asp?ClassID="&ClsID&" target=_blank>"&htmlencode(ClassName)&"</a> 』 "&Locat
Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/theme.asp,行 78

rs("location")='同学录首页'
----------^

请给internet来宾帐户权限。

具体方法请看这里:
http://www.51one.net/tobbs/leadbbs/20051014125622.htm

用户没有权限是不行的。

userid是字符型的还是数字型的,

sql="insert into online(userid,ip,location) values "&_
"('"&membername&"','"&Request.ServerVariables("Remote_Addr")&"','同学录首页')"
conn.execute(sql)

换成这个看一下

set rs=server.createobject("adodb.recordset")
sql="select userid,ip,location from online "
rs.open sql,conn,1,3
rs("userid")=membername
rs("ip")=Request.ServerVariables("Remote_Addr")
rs("location")='同学录首页'
rs.update
rs.close

这样写是多了些但不容易错,出问题也好解决些