 |
<%
tmptypecontent=""
tmptypename=""
tmptypeid=cint(request("typeid"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from producttype order by paixu"
rs.open sql,conn,1,1
do while not rs.eof
%>
|
|
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
|
 |
|
|
<%
if tmptypeid=0 then
dim maxperpage,totalnumber,strfile
maxperpage=6
strfile="products.asp"
set rs=server.CreateObject("adodb.recordset")
sql="select * from producttype where pic<>'' order by paixu"
rs.open sql,conn,1,1
totalnumber=rs.recordcount
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
i=0
do while not rs.eof
%>
<%
rs.movenext
i=i+1
if i >= MaxPerpage then exit do
loop
%>
<%
call showpage(strfile,totalnumber,maxperpage,false,false,"条信息")
rs.close
set rs=nothing
else
%>
<%
end if
%>
|
