%
if Trim(Request.QueryString("class"))="" then
Response.redirect("?class=6&classname=公司简介")
Response.end
end if
strCurrMenu="14944"
ThisPage=request.ServerVariables("URL")
strQuery=""
strQuery=""
strClass=GetVariable("class")
if strClass<>"" then
SourCode=conn.execute("Select c_code From web_product_class Where mn_id=" & strCurrMenu & " and id="&strClass)(0)
strQuery=strQuery & " And c_code Like '" & SourCode &"%'"
end if
strKey=GetVariable("key")
if strKey<>"" then
strQuery=strQuery & " And (p_name Like '%" & strKey & "%' Or p_detail Like '%" & strKey & "%') "
strClassName="搜索:" & strKey
end if
strPrice1=GetVariable("price1")
if strPrice1<>"" then
strQuery=strQuery & " And p_price>=" & strPrice1
strClassName=strClassName & " 最低价格 " & strPrice1
end if
strPrice2=GetVariable("price2")
if strPrice2<>"" then
strQuery=strQuery & " And p_price<=" & strPrice2
strClassName=strClassName & " 最高价格 " & strPrice1
end if
%>
<%
'读取产品展示的属性,以确定显示那个字段
showClass=GetKey("showClass",WebUserID,"product_" & strCurrMenu )
showPrice=GetKey("showPrice",WebUserID,"product_" & strCurrMenu )
showSize=GetKey("showSize",WebUserID,"product_" & strCurrMenu )
showSymbol=GetKey("showSymbol",WebUserID,"product_" & strCurrMenu )
showFace=GetKey("showFace",WebUserID,"product_" & strCurrMenu )
showShop=GetKey("showShop",WebUserID,"product_" & strCurrMenu )
showDetail=GetKey("showDetail",WebUserID,"product_" & strCurrMenu )
%>
公司资质 具有建设部颁发的市政排水甲级、市政给水乙级、市政环境卫生甲级、建筑乙级、冶金行业(环保)甲级设计资质,通过了ISO9001质量体系认证。
<%
strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
'分页显示初始化
page=GetVariable("page")
if page="" then
page=1
else
page=Cint(page)
end if
Section=GetVariable("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=8 '每页显示记录数
intSectionSize=5 '多少页为一段,像GOOGLE一样
PrevSectionText="7" '上一段的链接文字
NextSectionText="8" '下一段的链接文字
PrevPageText="3" '上页的链接文字
NextPageText="4" '下页的链接文字
strPageUrl="?class=" & GetVariable("class") & "&key=" & GetVariable("key") & "&price1=" & GetVariable("price1") & "&price2=" & GetVariable("price2")
rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
end if
%>
<%
'循环输出
for i=1 to (intPageSize +1)/2
if rs.eof then exit for
%>
共有<%=intCount%>记录,分<%=intPageCount%>页,当前页<%=Page%>,每页显示<%=intPageSize%>条记录
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=1 then
response.Write(PrevSectionText & " ")
else
response.Write("" & PrevSectionText & " ")
end if
'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("[" & p & "] ")
else
response.Write("[" & p & "] ")
end if
next
response.Write("页")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" " & NextSectionText & " ")
end if
%>
<%
'开始输出分类
strcode=""
for i=1 to Len(SourCode) \ 4
strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'"
next
if strcode<>"" then
strcode="(1<>1"&strcode&" or Len(c_code)=4)"
else
strcode=" Len(c_code)=4"
end if
strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & " Order by c_code"
'response.Write(strsql)
Set rsClass=Server.CreateObject("ADODB.RecordSet")
rsClass.open strSQL,conn,1,1
for i=1 to rsClass.recordcount
Level=(Len(rsClass("c_code"))/4-1)*3
%>