|
|
<%
bid = ReplaceStr(Request.QueryString("bid"))
sql="select * from Zm_Case where Name <> '' "
if bid <>"" then
sql = sql & " and Bid="&bid&""
LinkUrL = "&bid="&bid&""
end if
if sid <>"" then
sql = sql & " and Tid="&sid&""
LinkUrL = LinkUrL&"&sid="&sid&""
end if
sql = sql & " order by ord asc,id asc"
%>
<%
pagesize=12'每页显示数量
set Pro_Rs = server.CreateObject("adodb.recordset")
Pro_Rs.open sql,conn,1,1
if Pro_Rs.eof or Pro_Rs.bof then
response.write"对不起,没有案例."
else
dim page_no
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
Pro_Rs.pagesize=pagesize
Pro_Rs.absolutepage=page_no
i = 0
%>
<%
do while not Pro_Rs.eof and i
"><%=Pro_Rs("Name")%>
|
<%
i = i + 1
Pro_Rs.movenext
if Pro_Rs.eof then
Response.Write(" | | | ")
exit do
end if
%>
"><%=Pro_Rs("Name")%>
|
<%
i = i + 1
Pro_Rs.movenext
if Pro_Rs.eof then
Response.Write(" | | ")
exit do
end if
%>
"><%=Pro_Rs("Name")%>
|
<%
i = i + 1
Pro_Rs.movenext
loop
%>
[ 共 <%=Pro_Rs.recordcount%> 案例 ] [ 页数:<%=page_no%> / <%=Pro_Rs.pagecount%> ] [ 首页 ]
<% if page_no=1 then
response.write"上一页 "
else%>
[ 上一页 ]
<%end if %>
<%if page_no=Pro_Rs.pagecount then
response.write "下一页"
else%>
[ 下一页 ]
<%end if%>
[ 尾页 ]
|
<%
end if
Pro_Rs.close
set Pro_Rs=nothing
%> |
|
版权所有:© 2010 深圳市鸿运达楼梯有限公司 粤ICP备11030397号
工厂地址:深圳市龙华新区观澜街道大水坑新塘工业区056号
电话:0755-28793335 0755-28151825 |
|