<%
Page=cint(request("page"))
pagecount=page
pageurl="sublist.asp"
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
sqlprod="select * from ProdMain where gb='ch' and online=true and remark = '1'"
sqlprod = sqlprod + "order by xuhao asc "
Set rsprod=Server.CreateObject("ADODB.RecordSet")
MaxPage=12
rsprod.pagesize = MaxPage
rsprod.cachesize = MaxPage
rsprod.open sqlprod,conn,1,1
'if rsprod.recordcount=1 then
'zid=rsprod("id")
'num=rsprod("prodnum")
'response.Redirect ("product.asp?ProdNum="&num&"&zid="&zid&"")
'end if
if rsprod.bof and rsprod.eof then
response.write "
暂时没有添加内容！
"
else
'以下是调用公用的产品显示页面，
%>
<%
ipagecount = rsprod.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "Sorry, No add."
else
rsprod.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown
<%if not rsprod.eof then%>
<%
irecordsshown = irecordsshown +1
end if
%>
<%
rsprod.movenext
next
loop
if request("Parentid")<>"" then
txt="Parentid"
text=request("Parentid")
end if
%>
共有<%=rsprod.recordcount%>条 当前<%=ipagecurrent%>/<%=ipagecount%>页
<%if ipagecurrent=1 then
else
Response.Write"首 页 "
Response.Write"上一页 "
end if
if ipagecount>ipagecurrent then
Response.Write"下一页 "
Response.Write" 末 页 "
end if%>
<%
end if
rsprod.close
set rsprod=nothing
end if
%>