| |
»
产品分类 |
| |
 |
<%
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
%> |
|
|
|
力飞摄影器材有限公司
|
 |
| »
关于力飞 |
|
浙江省上虞市二甲照相器材厂（力飞摄影器材有限公司）创建于1990年，系摄影器材专业生产企业。本公司以其专业技术人员，先进检测设备，完善质量管理体系，经过不断的努力，以振兴民族摄影器材事业为己任，与摄影师探讨，研制出了一系列的摄影专业器材。公司重点产品为各式柔光箱、摄影伞、各式反光板、亮棚、亮箱、摄影小帐篷等系列产品。共有各款产品一千余种，公司占地3300平方米，建筑面积2200平方米，员工60余人。,[更多...]
|
|
|
|
|
<% 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
%>
<%
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 xi=1 and 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=2
frs.AbsolutePage=page%>
<% c=0
d=0
do while not frs.eof%>
|
<% c=c+1%>
<% if c>3 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%>
<% End If %>
|
|
|
|
|
