大家都知道在Dreamwerver中可以很方便地实现记录集的分显示，但是生成的代码的确很庞大，影响了网的显示速度，看起来条理也不是很清晰，那么，可不可以用简单的方式实现同样的功能呢？当然可以，笔者通过以下一些简单的代码就实现了记录集的分显示，现在拿出来大家一起分享。

　　主要代码如下:

＜%
　If rs.recordcount＞0 Then ’ 记录集不为空则处理记录
　　rs.pagesize = 0 ’ 设置每显示的记录数
　　num=rs.recordcount ’ 记录总数
　　pagenum=rs.pagecount ’ 总数
　　page=request("page") ’ 获取码的原始信息
　　’ 处理码原始信息的开始！ 
　　If page ＜＞ "" then
　　　page = cint(page)
　　if err.number ＜＞ 0 then
　　　err.clear
　　　page = 
　　end if
　　if page ＜  then
　　　page = 
　　end if
　else
　　page = 
　End if
　if page*rs.pagesize ＞ num and not((page-)*rs.pagesize ＜ num)then
　　page=
　end if
　’ 处理码原始信息的结束！设置当前码
　rs.absolutepage = page
%＞
＜!--判断当前是否是最后一，并根据判断设置记录的重复显示--＞
＜% if page＜＞pagenum then
　　　lablenum=rs.pagesize
　　else
　　　lablenum=num-(page-)*rs.pagesize
　　end if
　　for i= to lablenum
%＞
＜tr bgcolor="#FFFFFF"＞
　＜td height=""＞＜div align="center"＞＜%=(rs.Fields.Item("id").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs.Fields.Item("名称").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs.Fields.Item("类别").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞
＜/tr＞
＜%
　rs.movenext
next
%＞
＜!--当前的记录显示结束，以下代码为记录集分链接代码--＞
＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞
　＜tr＞ 
　　＜td height=""＞ 
　　　＜div align="right"＞
　　　　＜font color="#"＞
　　　　　共有 ＜%=num%＞ 个链接 | 
　　　　　＜a href=linkadmin.asp?page=＞首＜/a＞ | 
　　　　　＜%if page＞ then%＞＜a href=linkadmin.asp?page=＜%=page-%＞＞＜%end if%＞上一＜/a＞ | 
　　　　　＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+%＞＞＜%end if%＞下一＜/a＞ | 
　　　　　＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾＜/a＞ | 
　　　　　　次:＜%=page%＞/＜%=pagenum%＞ | 
　　　　　　共＜%=pagenum%＞
　　　　＜/font＞
　　　＜/div＞
　　＜/td＞
　＜/tr＞
＜/table＞
＜!--记录集分链接代码结束，记录集为空时执行以下代码--＞
＜%else%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="" colspan="6"＞＜div align="center"＞＜% response.Write("没有结果可显示！") %＞
＜/div＞＜/td＞
＜/tr＞
＜%
end if
rs.Close()
Set rs = Nothing
%＞