标题自动编号
我以前记得有过，但是搜索不到。
要求就是和http://www.networktochina.com/CN/InvestmentP/shaoguan/Item.asp
这个下面的序号一样,自动递增,翻页效果不变.不是ID

------解决方案--------------------
'page:当前页数
'pagesize:数据颁页大小
no=(page-1)*pagesize '初始化自动编号
For i=1 To pagesize '循环输出查询得到的数据记录rs对象
If rs.Eof Then Exit For
no=no+1
Response.Write( "自动编号No. "&no)
rs.Movenext
Next