分页效果
我有以下一段代码,能运行了,但是就是缺少分页效果,请各位大虾帮我看一下!!如何修改成分页效果??先谢过了。代码如下:<table width="750" height="70" border="1">
<tr>
<td height="13" colspan="8"><div align="center"></div></td>
</tr>
<tr>
<td height="13" colspan="8"><div align="center"><span class="STYLE5">任务分配表单</span></div></td>
</tr>
<tr bgcolor="#3399FF">
<td width="36" height="13"><div align="center">编号</div></td>
<td width="102"><div align="center">需求部门</div></td>
<td width="91"><div align="center">需求人员</div></td>
<td width="121"><div align="center">需求人电话</div></td>
<td width="102"><div align="center">需求完成时间</div></td>
<td width="130"><div align="center">故障标题</div></td>
<td width="57"><div align="center">执行</div></td>
<td width="57"><div align="center">执行 </div></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from nd_msg"
rs.open sql,conn,1,3
do while not rs.eof
if rs("agn_type")=0 then
%>
<tr>
<td height="13"><div align="center"><%=rs("id")%></div></td>
<td height="13"><%=rs("nd_depart")%></td>
<td height="13"><%=rs("nd_name")%></td>
<td><%=rs("nd_tel")%></td>
<td><%=rs("nd_data")%></td>
<td><%=left(rs("nd_title"),10)%></td>
<td><div align="center"><a href="assign_form_index.asp?id=<%=rs("id")%>">分配</a></div></td>
<td><div align="center"><a href="del.asp?id=<%=rs("id")%>">删除</a></div></td>
</tr>
<%
end if
rs.movenext
loop
response.end()
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<td height="2"> <div align="center"></div> </tr>
</table>