| |
SHOCK SERIES
<%
sql="SELECT * FROM [Prod] WHERE C_sort=217 ORDER BY C_sort,C_name asc"
rs.open sql,conn,1
pagesetup=15
count=rs.recordcount '数据总条数
rs.pagesize=pagesetup '每页显示条数
TotalPage=rs.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i
| |
<%
if i mod 3 = 0 then
response.Write(" ")
end if
rs.movenext
loop
rs.close
for j=i to 15
response.Write(" | ")
if j mod 3 <> 0 then
response.Write(" ")
end if
next
%>
|
