错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
第 39 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #FCFFF0;
margin-left: 5px;
margin-top: 5px;
}
.style2 {
font-size: 14px;
color: #506B40;
font-weight: bold;
}
-->
</style>
<link href="../allstyle.css" rel="stylesheet" type="text/css">
</head>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("../artwinddb/artwinddb.mdb")
set xxbrs=server.CreateObject("adodb.recordset")
xxbsql="SELECT xxid,xxbt,fbsj,lbmc FROM xxb,xxlbb where xxb.lbid=xxlbb.lbid order by xxid desc"
xxbrs.Open xxbsql,strconn,1,3
xxbrs.pagesize=20
if request.QueryString("page") = null then
page=1
end if
page=CLng(request.QueryString("page"))
if page<1 then
page=1
end if
if page>xxbrs.pagecount then
page = xxbrs.pagecount
end if
xxbrs.absolutepage = page
%>
<body>
<table width="100%" border="0" cellspacing="0">
<tr valign="middle">
<td><img src="../images/inserttp.jpg" width="60" height="22"></td>
<td><div align="right"><span class="style2">信息操作</span></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0">
<tr>
<td height="15" colspan="5" background="../images/线条.jpg"><div align="left"></div> <div align="center"></div> <div align="center"></div></td>
</tr>
<% for i=1 to xxbrs.pagesize
varNo = (page-1)*xxbrs.pagesize+i
%>
<tr>
<td width="67%"> <%=xxbrs("xxbt")%></td>
<td width="12%"><%=xxbrs("lbmc")%></td>
<td width="13%"><%=xxbrs("fbsj")%></td>
<td width="4%"><div align="right"><img src="../images/updatetp.jpg" width="20" height="20"></div></td>
<td width="4%"><div align="right"><img src="../images/deletetp.jpg" width="20" height="20"></div></td>
</tr>
<% xxbrs.movenext
if xxbrs.eof then exit for
next
%>
</table>
<div align="left"><br>
<table width="100%" cellspacing="0">
<tr bgcolor="#B4FFA0">
<td width="70%">当前页码:<%=page%>/<%=xxbrs.pagecount%></td>
<td width="30%"><div align="right">
<% if page=1 then
response.write("第一页")
else
response.write("<a href=main.asp?page=1>第一页</a>")
end if
if page=1 then
response.write("上一页")
else
response.write("<a href=main.asp?page="&page-1&">上一页</a>")
end if
if page=xxbrs.pagecount then
response.write("下一页")
else
response.write("<a href=main.asp?page="&page+1&">下一页</a>")
end if
if page=xxbrs.pagecount then
response.write("最后一页")
else
response.write("<a href=main.asp?page="&pagecount&">最后一页</a>")
end if
xxbrs.Close()
Set xxbrs = Nothing
%>
</div></td>
</tr>
</table>
</div>
</body>
</html>
论坛设施
