我这个代码错在哪儿了?
index.asp错误详细内容为:
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。
/home/bbs/TMP5n8e488neb.asp, 第 37 行
代码如下:
<% option explicit%>
<!--#Include file="conn.asp"-->
<!--#Include file="function.asp"-->
<html>
<head>
<title>论坛</title>
</head>
<body>
<%
dim user_name
If Session("user_name")<>"" Then
user_name=Session("user_name")
Else
response.write"你还未<a href='login.asp'>登陆</a><br>"
response.write"如不是注册用户,请先<a href='add_user.asp'>注册</a>"
End If
%>
<h2 align="center">讨论天地</h2>
<center>
<table border="0" bordercolor="#8800FF" width="90%" cellspacing="5">
<tr bgcolor="#CCFFFF" align="center">
<td width="7%">序号</td>
<td width="43%">主题</td>
<td width="8%">回复</td>
<td width="8%">点击</td>
<td width="8%">发言人</td>
<td width="26%">发言时间</td>
</tr>
<%
Dim sql,rs
'因为要分页显示查询结果,所以用下面方法创建一个recordset对象
sql="Select * From art Where layer=1 Order By submit_date desc"
db.Execute(strsql)
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1 '请注意创建recordset对象的方法
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
Dim page_size '声明每页多少条记录变量
Dim page_no '声明当前是第几页变量
Dim page_total '声明总页数变量
page_size=10 '每页显示10条记录
If Request("page_no")="" Then '如果第一次打开,则page_no为1,否则,
page_no=1 '由传回的参数决定
Else
page_no=cint(Request("page_no"))
End If
Session("page_no")=page_no '将page_no存入session,以备其它页返回时用
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
Dim I,J
I=0 '该变量用来输出序号
J=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And J>0 '循环直到当前页结束或文件结尾
I=I+1
J=J-1
%>
<tr bgcolor="#FFFFCC" align="center">
<td><% =(page_no-1)*page_size+I %>
<td><a href="count_hits.asp?art_id=<%=rs("art_id")%>">
<%=rs("title")%></a></td>
<td><%=rs("child")%></td>
<td><%=rs("hits")%></td>
<td><%=rs("user_name")%></td>
<td><%=rs("submit_date")%></td>
</tr>
<%
rs.MoveNext
Loop
End If
%>
</table>
<a href="announce.asp">发表新文章</a>
<%
'调用子程序,写出有关各页的链接信息
Call select_page(page_no,page_total)
%>
</center>
</body>
</html>
下面是我的conn.asp
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>
应该如何修改??