 |
| Select series |
|
 |
|
<%
if pTypeFlag = "a" then
sql = "select * from productType where level=1 and left(code,4)='"&ptype&"'"
else
sql = "select * from productType2 where level=1 and left(code,4)='"&ptype&"'"
end if
rs.open sql,conn,3
if pType2="" then
if not rs.eof then
pType2 = rs("code")
end if
end if
do while not rs.eof
if pType2=rs("code") then
'classFlag = "STYLE2"
pType2Name = rs("mingcheng")
pType2Pic= rs("pic1")
else
classFlag = ""
end if
%>
| &ptype2=<%=rs("code")%>" class="menu02_a" > <%=rs("mingcheng")%> |
<% rs.moveNext
loop
rs.close
%>
|
 |
|
|
| |
|
|
| HOME | Product | <%=pTypeName%> |
 |
<% if (pType2Pic="") or (pType2Pic="0") then%>
<% if (pTypePic="") or (pTypePic="0") then%>
 <% else
if pTypeFlag = "a" then
pTypePic = "../upload/productType/"&pTypePic
else
pTypePic = "../upload/productType2/"&pTypePic
end if
%>
<% end if %>
<% else
if pTypeFlag = "a" then
pTypePic = "../upload/productType/"&pType2Pic
else
pTypePic = "../upload/productType2/"&pType2Pic
end if
%>
<% end if %> |
|
|
|
|
<%
sql="select * from product where tuijianFlag=1 "
if pType11 <> "" then
sql= sql + " and left(ptype,4)='"&ptype11&"' "
end if
if pType12 <> "" then
sql= sql + " and ptype='"&ptype12&"' "
end if
if pType21 <> "" then
sql= sql + " and left(ptype2,4)='"&ptype21&"'"
end if
if pType22 <> "" then
sql= sql + " and ptype2='"&ptype22&"'"
end if
if qryText <> "" then
sql= sql + " and pxinghao like '%"&qryText&"%'"
end if
sql = sql + " order by px,pxinghao "
'response.write sql
'response.end
rs.open sql,conn,3
if not rs.bof then
rs.pagesize=25
if trim(request("page"))="" then
page = 0
else
page=cint(trim(request("page")))
end if
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
' for ipage=1 to rs.pagesize
end if
if rs.eof then
response.write("
come soon.
")
else %>
<%
dim pid(5),pic(5),pname(5),pflag(5)
for ipage=1 to 5'(cint(rs.pagesize/3))
if rs.eof then exit for
for i=1 to 5
if not rs.eof then
pid(i) = rs("pid")
pic(i) = rs("pic6")
'pflag(i) = rs("newflag")
pname(i)= rs("pxinghao")
if inStr( pname(i),chr(13))>0 then
pname(i) = left( pname(i),inStr( pname(i),chr(13)))
end if
rs.movenext
else
pid(i) = ""
pic(i)=""
pname(i)=""
end if
next
%>
<% for i=1 to 5 %>
<% if (pid(i)<>"") then %>
|
<% else %>
|
<% end if%>
<% Next %>
<% for i=1 to 5 %>
| <%=pname(i)%> |
<% Next %>
| |
<%
'if pid(ipage)="" then exit for
next %>
|
|
<% end if
rs.close
set rs = nothing
%>
|
|
|
|
|
|
%>)