|
代码如下:
<%
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
大家请探讨!??? |
|