分页出现问题。
<!--#include file="articleconn.asp"-->
<!--#include file="inc/showpage.asp"-->
<%
typeid=request("typeid")
sql1="select type from type where typeid="&typeid
set rs1=conn.execute(sql1)
%>
<!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" content="text/html; charset=gb2312">
<title><%=rs1("type")%></title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body leftmargin="0" topmargin="0">
<table width="739" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td> </td>
<td width="11"> </td>
<td width="161"> </td>
</tr>
<tr>
<td width="1"> </td>
<td colspan="3" valign="top"><table width="100%" border="0" cellpadding="3" cellspacing="1">
<tr>
<td height="57" bgcolor="#F2F4F9"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="720" height="73">
<param name="movie" value="../swf/zhuan.swf">
<param name=quality value=high>
<embed src="../swf/zhuan.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="720" height="73"></embed>
</object></td>
</tr>
<tr valign="middle">
<td height="40" background="images/forum_footer.gif">
<a href="index.html">首 页</a>－
<script src="menu.asp"></script>
<a href="../bbs/index.asp">给我留言</a>
</td>
</tr>
</table> </td>
</tr>
<tr>
<td></td>
<td width="566" valign="top"> </td>
<td colspan="2"></td>
</tr>
<tr>
<td rowspan="2"> </td>
<td valign="middle"><span class="P">您的位置： <a href="index.html">首页</a>-<%=rs1("type")%>
</span> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="background-color:red; height:1px;"></td>
</tr>
</table></td>
<td rowspan="2"></td>
<td rowspan="3"><table width="161" border="0" cellpadding="3" cellspacing="1" bgcolor="#6687BA">
<tr>
<td width="161" background="images/bg11.gif"><div align="center">站 内 搜 索</div></td>
</tr>
<tr>
<td bgcolor="#F2F4F9"><form name="searchtitle" onsubmit="if(searchtitle.ttt.value.length<1){alert('搜索关键字不能为空！：）');return(false)}else{return(true)}" method="POST" action= "../search.asp" target="_blank">
<div align="center">
<input name="ttt" type="text" class="unnamed5" style="FONT-SIZE: 9pt" onfocusin='vbscript:searchtitle.ttt.value=""' value="请输入关键字" size="16">
<br>
<select class="unnamed5" name="sss" size="1" style="FONT-SIZE: 9pt">
<option selected>按新闻标题搜索</option>
<option>按新闻内容搜索</option>
</select>
<br>
<input type="submit" name="Submit" value="搜 索" class="unnamed5" style="FONT-SIZE: 9pt">
<input type="reset" name="Submit2" value="取 消" class="unnamed5" style="FONT-SIZE: 9pt">
</div>
</form></td>
</tr>
<tr>
<td background="images/bg11.gif"><div align="center">推 荐 信 息</div></td>
</tr>
<tr>
<td bgcolor="#F2F4F9"><script language="javascript" src="tjnews.asp?tjnews=1"></script></td>
</tr>
<tr>
<td background="images/bg11.gif"><div align="center">本 周 热 点</div></td>
</tr>
<tr>
<td bgcolor="#F2F4F9"><script language="javascript" src="week.asp?week1=2"></script></td>
</tr>
</table></td>
</tr>
<tr>
<td height="43" valign="top">
<%
sql="select * from article where (typeid="&typeid&") order by dateandtime desc"
set rs=conn.execute(sql)
if rs.bof and rs.eof then
response.write "暂时没有任何内容"
else
url="more.asp?typeid='"&typeid&"'"
rs.pagesize=5
PageNo=request("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
rs.AbsolutePage=PageNo
TSum=rs.pagecount
maxperpage=rs.pagesize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(pageno)>1 then
if CINT(pageno)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
i=0
do while not rs.eof and i<rs.pagesize
%><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="344" class="P"><font color=\"#0066cc\">○</font><a href='../<%=rs("path")%>/<%=rs("N_Fname")%>'><%=rs("title")%></a></td>
</tr>
</table>
<%i=i+1
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td height="21"> </td>
<td align="right" valign="top">
<%call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题")%>
<%end if%>
<%
rs.close
set rs =nothing
conn.close
set conn=nothing
%></td>
<td> </td>
</tr>
<tr>
<td height="2"> </td>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="background-color:red; height:1px;"></td>
</tr>
</table></td>
<td> </td>
<td align="left" valign="top"> </td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="580" height="16" align="center">联系电话：Tel:110<br>
2005 <a href="index.html" target="_blank"><font color="#0066CC">稻草人之家</font></a> 版权所有 <br>
如有任何问题和建议，请联系 <a href="mailtcaiyazhen@163.com">caiyazhen@163.com</a> </td>
</tr>
</table>
</body>
</html>
问题是不显示分页，但能控制每页的数量。
