 |
| |
|
<%set rs=conn.execute("select id,title from sd_class order by ordnum desc")
while not rs.eof
%>
<%rs.movenext
wend%> |
|
|
|
 |
|
<%
page=request.querystring("page")
if page="" then
page=1
end if
if not isnumeric(page) then
page=1
end if
pages =7'定义每页显示数量
classid=trim(request("classid"))
if classid="" or not isnumeric(classid) then
classid=0
end if
set rs=server.CreateObject("adodb.recordset")
if classid=0 then
sql="select id,pic,title,xh,txt from sd_pic where isnew=0 order by id desc "
else
sql="select id,pic,title,xh,txt from sd_pic where classid="&classid&" and isnew=0 order by id desc "
end if
rs.open sql,conn,1,1
if rs.eof then
kkkk=0
%>
| 没有资料 |
<%else%>
<%
rs.pagesize = pages
maxpagecount=rs.pagecount
rs.absolutepage = page
rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
i=0
k=0
do while not rs.eof and rcount1
 |
| |
| 产品型号： |
<%=rs(3)%> |
| 产品名称： |
<%=rs(2)%> |
| 一般用途： |
<%=left(rs(4),25)%> |
|
|
 |
|
|
<%
i=i+1
k=k+1
if k=1 then
k=0
response.write" "
end if
rs.movenext
rcount1=rcount1+1
loop
end if
%>
<%if kkkk="" then%>
| <%if page<>"" and page<>"1" then%>
上一页
<%else%>
上一页
<%end if%>
<% for i=pagestart to pageend
if i=0 then
i=1
end if
if i=clng(page) then
str=""&i&""
else
str=i
end if
strurl=" "&str&""
response.write strurl
response.write " "
next
%>
<%if page=maxpagecount then%>
下一页
<%elseif page<>""&maxpagecount&"" then%>
下一页
<%else%>
下一页
<%end if%>
页次:<%=page%>/<%=maxpagecount%> 页 总共: <%=rcount%> 信息 |
<%end if%> |
|
|
 |
|
