asp图片展示横重复加分页代码!谢谢!!!

横重复加分页代码...

2026年09月25日 06:57

有1个网友回答

网友（1）：

<%
P_id=request("p_id")
Keyword=request("keyword")
set rs=server.createobject("adodb.recordset")
if keyword="" then
if p_id="" then
rs.open "select * from manage_pro order by id desc",conn,1,1
else
rs.open "select * from manage_pro where p_id="&p_id&" order by id desc",conn,1,1
end if
else
if p_id="" then
rs.open "select * from manage_pro where title like '%"&keyword&"%' order by id desc",conn,1,1
else
rs.open "select * from manage_pro where p_id="&p_id&" and title like '%"&keyword&"%' order by id desc",conn,1,1
end if
end if
dim page
rs.pagesize=12
page=request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
if request("page")<>"" then
page=cint(request("page"))
end if
if page < 1 then
page = 1
elseif page > rs.pagecount then
page = rs.pagecount
end if
if not rs.EOF and not rs.bof then
rs.absolutepage=page
end if
count=rs.pagesize
%>

<%if p_id<>"" and keyword="" then%>

[产品中心]
<%if p_id<>"" then%>

->
<%
set lb=server.CreateObject("adodb.recordset")
lb.open "select * from manage_p where p_id="&p_id,conn,1,1
response.write ""&lb("p_name")&""
lb.close
set lb=nothing
end if
%>

<%elseif keyword<>"" then%>

关键字：<%=keyword%> 共搜索到 <%=rs.recordcount%> 条记录

<% end if %>

<%if rs.eof then
Response.Write("无记录！")
else
for j=1 to 3
%>

<%for i=1 to 4%>

<%
rs.movenext
if rs.eof then
exit for
end if
next
%>

<%
if rs.eof then
exit for
end if
next
end if
%>

" target="_blank" onFocus="this.blur()">
<%
if rs("pic")<>"" then
%>

" width="120" height="120" border="0" onload='javascript:DrawImage(this,120,120);'>
<%
else
response.write "暂无

图片"
end if
%>

" target="_blank" onFocus="this.blur()">
<%
if keyword="" then
response.write rs("title")
else
response.write replace(rs("title"),keyword,""&keyword&"")
end if
%>

共 <%=rs.recordcount%> 条第一页
<%if page>1 then%>
上一页
<%else%>
上一页
<%end if%>
<%if page
下一页
<%else%>
下一页
<%end if%>
尾页转到：
<%if rs.recordcount<>0 then%>

<%end if%>