产品中心
-
<%
set rss=server.CreateObject("adodb.recordset")
sql2="select * from [BigClass] order by px desc, BigClassID asc"
rss.open sql2,conn,1,2
if rss.bof and rss.eof then
response.Write("暂无信息！")
else
for R=1 to rss.recordcount
if rss.eof then exit for
%>
- " class="tit"><%= rss("BigClassName") %>
<%
set RsSmallClass=server.createobject("adodb.recordset")
SmallClassSql="select * from [SmallClass] where BigClassID="&rss("BigClassID")&" order by px desc, SmallClassID asc"
RsSmallClass.open SmallClassSql,conn,1,1
if not RsSmallClass.eof then
%>
<% do while not RsSmallClass.eof %> &smallclassid=<%= RsSmallClass("SmallClassID") %>"><%= RsSmallClass("SmallClassName") %> <% RsSmallClass.movenext loop RsSmallClass.close set RsSmallClass=nothing %><% End If %>
<%
rss.movenext
next
end if
rss.close
set rss=nothing
%>
-
<%
if key="" or IsNull(key) then
Response.Write("您没有输入关键字!!")
response.Redirect("index.asp")
response.End()
elseif key<>"" or not IsNull(key) then
set rs=server.CreateObject("Adodb.Recordset")
sql="select * from [Product] where Passed=true and title like '%"&key&"%' order by zd asc, tj asc, px desc, ID desc"
end if
rs.open sql,conn,1,2
if rs.bof and rs.eof then
response.Write("没有相关信息!!!")
PageScript="ML"
else
if rs.recordcount=1 then
response.Redirect("productshow.asp?id="&rs("ID")&"")
response.End()
end if
'分页的实现
listnum=20 '每页显示12条纪录
Rs.pagesize=listnum
pageMax=rs.pagecount
listCount=rs.recordcount
page=Request("page")
if (page-pageMax) > 0 then
page=pageMax
elseif page = "" or page < 1 then
page = 1
end if
rs.absolutepage=page
'编号的实现
j=listCount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i
- ">
" width="207" height="155" alt="<%= rs("Title") %>">
<%
rs.movenext
i=i+1
j=j-1
loop
end if
%>