%
'请勿改动下面这二行代码
MaxPerPage=Procount
strFileName="Product.asp"
if Trim(request.QueryString("ClassID"))<>"" then
strFileName="Product.asp?ClassID=" & ClassID
set rs=server.createobject("adodb.recordset")
sql="select * from okuoo_ProductClass where ClassID="& ClassID &" order by ClassID"
rs.open sql,conn,1,3
bsortname=rs("ClassName")
toptitle=rs("ClassName")
rs.close
set rs = nothing
end if
if len(bsortname)=0 then
bsortname="产品超市"
end if
const ChannelID=2
HeadTitle="产品超市"
if HeadTitle<>"" then
SiteTitleAll= HeadTitle &"-"& toptitle & "-" & SiteTitle
else
SiteTitleAll=SiteTitle
end if
%>
<%
'Title=request.QueryString("Title")
ID=replace(Trim(request.QueryString("ID")),"'","")
Set rs = Server.CreateObject("ADODB.Recordset")
if ID="" or not IsNumeric(ID) then
sql="select top 1 * from okuoo_Aboutus"
else
sql="select * from okuoo_Aboutus where ID="&ID
end if
rs.open sql,conn,1,3
HeadTitle=rs("Title")
if HeadTitle<>"" then
SiteTitleAll= HeadTitle & "-" & SiteTitle
else
SiteTitleAll=SiteTitle
end if
%>
<% set pdrs=server.createobject("adodb.recordset")
sql="select * from okuoo_ProductClass where ParentID=0 order by ClassID"
pdrs.open sql,conn,1,3
do while not pdrs.eof
%>
<% pdrs.movenext
loop
pdrs.close
set pdrs=nothing
%>
|
|
|
|
<%= bsortname %> |
<% call ShowClassGuide() %> |
<% call ShowProduct(32) %>
<% call ShowProductTotal() %>
|
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"个产品")
end if
%> |
|
|
|
|