代码如下:
<%
dim conn,rs
dim owner,id,topid,layer,order
dim CurPage
If Request.QueryString("CurPage")= "" or Request.QueryString("CurPage") = 0 then
CurPage =1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If

owner=request.querystring("owner")
id=request.querystring("id")
topid=request.querystring("topid")
layer=request.querystring("layer")
order=request.querystring("order")
page=request.querystring("page")

set conn=server.createobject("adodb.connection")
DBPath=Server.MapPath("../data/bbs.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
set rs=server.createobject("adodb.recordset")
set rsuser=server.createobject("adodb.recordset")
sql="Select * From [User] Where [User].[User]='" & owner & "'"
response.write sql
第25行:rsuser open,conn,1,1;
dim bbsname
bbsname=rsuser("subject")
rsuser.close
set rsuser=nothing
%>

错误提示如下:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/club/bbs.asp, line 25, column 20
rsuser open,conn,1,1;
-------------------^


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Alexa Toolbar)

网页：
GET /club/bbs.asp

大家请探讨！？？？

rsuser open,conn,1,1;
把红色部分去了，这又不是JS，要;干吗

哦，还有，把25行改成：rsuser.open sql,conn,1,1

<%
dim conn,rs
dim owner,id,topid,layer,order
dim CurPage
If Request.QueryString("CurPage")= "" or Request.QueryString("CurPage") = 0 then
CurPage =1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If

owner=request.querystring("owner")
id=request.querystring("id")
topid=request.querystring("topid")
layer=request.querystring("layer")
order=request.querystring("order")
page=request.querystring("page")

set conn=server.createobject("adodb.connection")
DBPath=Server.MapPath("../data/bbs.mdb")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
set rs=server.createobject("adodb.recordset")
set rsuser=server.createobject("adodb.recordset")
sql="Select * From [User] Where [User].[User]='" & owner & "'"
response.write sql
第25行:rsuser.open sql,conn,1,1
dim bbsname
bbsname=rsuser("subject")
rsuser.close
set rsuser=nothing
%>


错误提示如下

错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/club/bbs.asp, 第 27 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Alexa Toolbar)

网页：
GET /club/bbs.asp

请指教？

owner这个变量所查询的值在数据库中不存在，错误的意思就是这个意思。

rsuser("subject")因为不存在没有数据，所以这样的读取操作就是错误的。

啊?那就是说subject这个表不存在吗？还是说owner这个表？具体说是什么数据？

owner=request.querystring("owner")
这里要么owner没接到值，要么接到的值在数据库里不存在。subject这个不能是表，因为rsuser("subject")这种用法是提取数据库中表字段的值
比如
表一
字段一 字段2
1 2
rs("字段一")这是提取字段的值。

对论坛的数据库bbs.mdb(是用Access来建立的)我在里面建立了三个表bbs,f1和user三个表，我看了user这个表里面确实没有owner这个字段表，请问该如何对其进行赋值？

我明白你的意思了，到这里为止都是在对bbs.mdb数据库里面的bbs这个表进行读写操作，象topic和layer应该都是一个表里的数据，对吗？那么我刚才看了bbs这个表，里面却是没有owner这个值，也没有subject，现在应该对哪个进行操作？