ADODB.Recordset错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。note.a
<tablewidth="95%"border="0"align="center"cellpadding="10"cellspacing="0"><tr><td><pal...
<table width="95%" border="0" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><p align="left" class="aq"> </p>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><div align="left">
<p> </p>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="td2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"><div align="right"><a href="note1.asp" class="style3 STYLE4">填写留言</a></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" class="td2"><span class="zhishuo">
<%
usrsql="SELECT * from [mess_page] order by mess_time desc"
Set usrrs = Server.CreateObject("ADODB.Recordset")
usrrs.OPEN usrsql, Conn,3,1
'设置每页的大小
PageSize =10
usrrs.PageSize = PageSize
' 得到总的页数
TotalPages = usrrs.PageCount
' 得到总记录数
TotalRecords = usrrs.RecordCount
'检查记录集是否为空
If TotalRecords<1 Then
Response.Write "<font color=red>今天没有新留言!</font>"
else
' 得到用户选择的动作
PageAction = Request.Form("PageAction")
' 根据动作重设页码
Select Case PageAction
Case "首页" Session("Page")=1
Case "上页" Session("Page")=Session("Page")-1
Case "下页" Session("Page")=Session("Page")+1
Case "尾页" Session("Page")=TotalPages
Case Else Session("Page")=1
End Select
' 检查页码是否越界:1<= Page <=TotalPages
If CInt(Session("Page"))<1 Then
Session("Page")=1
End If
If CInt(Session("Page"))>TotalPages Then
Session("Page")=TotalPages
End If
' 跳转到指定页
usrrs.AbsolutePage = Session("Page")
%>
<%
i=0
Do While Not usrrs.Eof And i<PageSize
i = i + 1
%>
</span>
usrsql="SELECT * from [mess_page] order by mess_time desc"
Set usrrs = Server.CreateObject("ADODB.Recordset")
usrrs.OPEN usrsql, Conn,3,1 错误在这行
'设置每页的大小
PageSize =10
usrrs.PageSize = PageSize 展开
<tr>
<td><p align="left" class="aq"> </p>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><div align="left">
<p> </p>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="td2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"><div align="right"><a href="note1.asp" class="style3 STYLE4">填写留言</a></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" class="td2"><span class="zhishuo">
<%
usrsql="SELECT * from [mess_page] order by mess_time desc"
Set usrrs = Server.CreateObject("ADODB.Recordset")
usrrs.OPEN usrsql, Conn,3,1
'设置每页的大小
PageSize =10
usrrs.PageSize = PageSize
' 得到总的页数
TotalPages = usrrs.PageCount
' 得到总记录数
TotalRecords = usrrs.RecordCount
'检查记录集是否为空
If TotalRecords<1 Then
Response.Write "<font color=red>今天没有新留言!</font>"
else
' 得到用户选择的动作
PageAction = Request.Form("PageAction")
' 根据动作重设页码
Select Case PageAction
Case "首页" Session("Page")=1
Case "上页" Session("Page")=Session("Page")-1
Case "下页" Session("Page")=Session("Page")+1
Case "尾页" Session("Page")=TotalPages
Case Else Session("Page")=1
End Select
' 检查页码是否越界:1<= Page <=TotalPages
If CInt(Session("Page"))<1 Then
Session("Page")=1
End If
If CInt(Session("Page"))>TotalPages Then
Session("Page")=TotalPages
End If
' 跳转到指定页
usrrs.AbsolutePage = Session("Page")
%>
<%
i=0
Do While Not usrrs.Eof And i<PageSize
i = i + 1
%>
</span>
usrsql="SELECT * from [mess_page] order by mess_time desc"
Set usrrs = Server.CreateObject("ADODB.Recordset")
usrrs.OPEN usrsql, Conn,3,1 错误在这行
'设置每页的大小
PageSize =10
usrrs.PageSize = PageSize 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询