| |
»
产品分类 |
| |
 |
<%
sql="select * from TYPE"
set rs1=con.execute (sql)
i=1
do while not rs1.eof
%>
"><%= rs1("TypeName") %>
<%
j = i
i = i + 1
sql="select * from ntype where typeid="&Rs1("ID")
set rs2=con.execute (sql)
do while not rs2.eof
%>
"><%= rs2("typename") %>
<%
i=i+1
Rs2.moveNext
loop
%>
<%
i=i+1
Rs1.moveNext
loop
%> |
|
|
|
产品列表
|
<% set frs=server.CreateObject("adodb.recordset")
' if request("skey")<>"" then
' sql="select * from product where typeid="& request("menu1")&" and product like'%"& request("skey") & "%' order by paixu desc"
' else
' classid=request("classid")
' if classid<>"" or request("nclassid")<>"" then
' if classid<>"" and request("nclassid")<>"" then
' sql="select * from product where typeid="& classid & " and ntypeid=" & request("nclassid") & " order by paixu desc"
' elseif classid<>"" and request("nclassid")="" then
' sql="select * from product where typeid=" & classid&" order by paixu desc"
' elseif classid="" and request("nclassid")<>"" then
' sql="select * from product where ntypeid="& request("nclassid")&" order by paixu desc"
' end if
' else
' sql="select * from product order by paixu desc"
' end if
' end if
if request("classid")<>"" then
ji=" and typeid="&request("classid")
else
if request("nclassid")<>"" then
ji=" and ntypeid="&request("nclassid")
else
ji=" and typeid<>37 "
end if
end if
if trim(request("skey"))<>"" then
ji1=" and product like '%"&request("skey")&"%'"
else
ji1=""
end if
sql="select * from product where xi "
'id is not null "
sql=sql+ji+ji1+" order by paixu desc"
'response.Write(sql)
'response.End()
frs.open sql,con,1,1
%>
<% set frs=server.CreateObject("adodb.recordset")
' if request("skey")<>"" then
' sql="select * from product where typeid="& request("menu1")&" and product like'%"& request("skey") & "%' order by paixu desc"
' else
' classid=request("classid")
' if classid<>"" or request("nclassid")<>"" then
' if classid<>"" and request("nclassid")<>"" then
' sql="select * from product where typeid="& classid & " and ntypeid=" & request("nclassid") & " order by paixu desc"
' elseif classid<>"" and request("nclassid")="" then
' sql="select * from product where typeid=" & classid&" order by paixu desc"
' elseif classid="" and request("nclassid")<>"" then
' sql="select * from product where ntypeid="& request("nclassid")&" order by paixu desc"
' end if
' else
' sql="select * from product order by paixu desc"
' end if
' end if
if request("classid")<>"" then
ji=" and typeid="&request("classid")
else
if request("nclassid")<>"" then
ji=" and ntypeid="&request("nclassid")
else
ji=" and typeid<>37 "
end if
end if
if trim(request("skey"))<>"" then
ji1=" and product like '%"&request("skey")&"%'"
else
ji1=""
end if
sql="select * from product where id is not null "
sql=sql+ji+ji1+" order by paixu desc"
'response.Write(sql)
'response.End()
frs.open sql,con,1,1
%>
<%
if frs.bof or frs.eof then
response.write"
该类别还没有上传商品，请稍后访问，给你带来不便，敬请谅解！"
'response.end
else
if request("page")="" then
page=1
else
page=request("page")
end if%>
<% if Trim(Request.Form("skey"))<>"" then
set frs=server.CreateObject("adodb.recordset")
sql = "select * from product where product like '%"&Trim(Request.Form("skey"))&"%' order by id desc"
'response.write sql
'response.end()
frs.open sql,con,1,1
end if
if frs.eof then
response.Write("没有记录！")
response.End()
end if%>
<% '=request("text")%>
<% if trim(request("text"))<>"" then
'response.Write(request("text"))
if cint(request("text"))<1 then
page=1
elseif cint(request("text"))>cint(request("rsmax")) then
page=int(request("rsmax"))
else
page=request("text")
end if
end if
'response.Write(page)
frs.pagesize=10
frs.AbsolutePage=page%>
<% c=0
d=0
do while not frs.eof%>
|
<% c=c+1%>
<% if c>0 then%>
<% c=0 %>
<% end if%>
<%d=d+1%>
<% if not frs.eof then%>
<% frs.movenext%>
<% else
exit do
end if%>
<% if d>frs.pagesize-1 then exit do%>
<%loop%>
| <% d="&skey="&request("skey")%>
|
|
|
|
全部:<%=frs.pagecount%>页 |
当前<%=page%>页 |
|
<% End If %>
|
|
|
|
 |
