asp数字分页新

2.asp
---------------
<!--#include file="conn.asp"-->
<table width="100%" align="center" cellpadding="0" cellspacing="0" border="1" style="color:#000099;
border-color:#330066;">
<tr>
<td width="28%" align="left">药名 </td>
<td width="17%" align="center">已卖出 </td>
<td width="18%" align="center">库存 </td>
<td width="37%" align="center">剩余( <span class="STYLE1">红色↓ </span>) </td>
</tr>
</table>
<table width="100%" align="center" cellpadding="0" cellspacing="0" border="0" style="color:#006600;">
<%
sql = "select sum(mcshuliang) as sb,sum(zongshu) as nh,sum(zongshu)-sum(mcshuliang) as xy,yaomingzi from yao group by yaomingzi"
iPageSize =10
iPageNo = 1
iRecordsCounter = 0
data = executeList(conn, sql, iPageSize, iPageNo, iRecordsCounter)
For i = 0 To UBound(data,2)
%>
<tr bgcolor="#CCFFFF" height="30" onMouseOver="this.className='over'" onMouseOut="this.className='out'">
<td width="36%&q