![]() |
购物专题 | 基金专题 | 性专题 | 饮食专题 | 教育专题 | 生活大参考 | 园林资讯 | 园艺库 | 健康专题 | |
| 论文专题 | 家庭养花 | 园林景观 | 盆景奇石 | 激情图库 | 农业资料库 | 园林古建 | 英文站 | 花卉栽培 |
<%
dim DBPath,conn
DBPath=server.Mappath("wlcjj.mdb")
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
conn.cursorlocation=3
sql="select * from allclass order by id desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.write"对不起,当然没有任何记录"
response.end
else
%>
<%
dim pc,s,ps
ps=5
rs.pagesize=cint(ps)
s=int((rs.recordcount-1)/ps)+1
pc=request.Querystring("pc")
if pc=""then
pc=1
else
pc=cint(pc)
rs.AbsolutePage=pc
%><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="20%">ID</td>
<td width="20%"><span lang="zh-cn">打印人</span></td>
<td width="20%"><span lang="zh-cn">打印内容</span></td>
<td width="20%"><span lang="zh-cn">打印纸张</span></td>
<td width="20%"><span lang="zh-cn">打印规格</span></td>
</tr>
<% for i=1 to ps %>
<tr>
<td width="20%"><%=rs("id")%> </td>
<td width="20%"><%=rs("公司")%> </td>
<td width="20%"><%=rs("打印内容")%> </td>
<td width="20%"><%=rs("打印纸张")%> </td>
<td width="20%"><%=rs("打印规格")%> </td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
<%if pc>1 then
response.write"<a href=99.asp?pc=1>首页</a><br>"
response.write"<a href=99.asp?pc="&pc-1&">前一页</a>"
end if
if pc<s then
response.write"<a href=99.asp?pc="&pc+1&">下一页</a>"
else
response.write"<a href=99.asp?pc="&s&">尾页</a>"
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
Microsoft OLE DB Provider for ODBC Drivers 错误 ’80040e10’
[Microsoft][ODBC Microsoft Access 驱动程序] 参数不足,期待是 1。
/99.asp, 行9
怎么回事啊。改成
rs.open sql,conn,3,2 也不行
---------------------------------------------------------------
感谢您使用微软产品。
’80040e10’ 的最大可能性是您在Select 语句中使用了不存在的字段名,您可以先试着在Access中使用该SQL语句保证SQL语句正确。更多信息,请点击以下链接:
ID: Q216425 PRB: Error ’80040e10’ Too Few Parameters Expected [istudio]
http://support.microsoft.com/support/kb/articles/q216/4/25.asp
另外,建议您到以下站点下载最新的ODBC驱动:
http://www.microsoft.com/data/
-微软全球技术中心 桌面产品技术支持
本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
浙ICP备 :07003766号 Copyright © 2001-2007 JUBAO163,All rights reserved. |