ASP翻页程序调试?
我的翻页程序取不到rs.pagecount,即全部的数据页数,一取就是我不知道是怎么回事请大家帮忙.
我的数据库中有5条记录,
把程序贴到这请大家帮忙.
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strcon = "Driver={SQL Server};Server=hxr;UID=nmgz;PWD=nmgz;Database=nmgz"
Conn.Open Strcon
Set rs=Server.CreateObject("ADODB.Recordset")
%>
<%
dim sql
const numperpage=20
dim curpage,totalpage
curpage=1
sql="select * from enterprise_register "
rs.Open sql,conn
response.write (rs(0))
rs.PageSize= numperpage
response.write (rs.pagesize) '显示这的值为20
totalpage=rs.pagecount
response.write (totalpage) '显示这的值为-1
if isnumeric(Request.Form("pageno")) then
curpage=cint(Request.Form("pageno"))
end if
if curpage<1 then
curpage=1
end if
if curpage>totalpage then
curpage=totalpage
end if
if not rs.eof then
rs.absolutepage=curpage ' 提示这一行出错.
end if
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
//说明有字符不是数字
return 0;
}
}
//说明是数字
return 1;
}
function turnpage(ID)
{
document.topage.pageno.value =ID;
document.topage.submit();
}
function check(theForm)
{
if(!fucCheckNUM(theForm.pageno.value))
{
alert("对不起,页数必须为整数!");
theForm.pageno.focus();
return false;
}
return true;
}
//-->
</script>
<table>
<tr>
<td align="center" class="f2">
<%if curpage>1 then%>
<A Href=fy.asp?ToPage=<%=curpage-1%>>
<%end if%>
上一页</a>
<%if curpage<totalpages then%>
<A Href=fy.asp?ToPage=<%=curpage-1%>>
<%end if%>
下一页</a> 当前第<%=curpage%>页,共<%=totalpages%>页 转到第
<input type="text" name="pageno" size="2">页
<input type="submit" name="Button" value="Go">
</td>
</tr>
</table>