|
| 產(chǎn)品展示 <%=protitle%> |
<%
set re=server.CreateObject("adodb.recordset")
re.open sqll,conn,1,1
if re.eof then
response.write "
產(chǎn)品正在添加中....."
else
%>
<%
re.pagesize=12
iCount=re.RecordCount '記錄總數(shù)
iPageSize=re.PageSize
maxpage=re.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
re.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if %>
<%i=0
do while not i/12=1
if re.eof then
exit do
end if
%>
<%
i=i+1
re.movenext
loop
end if
re.close
set re=nothing
%> |
| <%call PageControl(iCount,pagecount,page,table_style,font_style)%> |
|