<%
' *********************************参数设置*****************************
set mypg=new jcpageclass
mypg.pagesize=4 '每页显示的产品数量
width=260 '产品图片的宽度
height=250 '产品图片的高度
num=2 '每行显示的产品数
%>
<%
sql="select * from prod where 1=1 and ClassID in(1,2,3,4,5,6,7,8,9,10)"
'sql="select * from prod where 1=1 and Passed=true"
classid=request.QueryString("id")
imgprodPath="imgprod/"
if classid<>"" then
sql2="select * from prodclass where parentid="&classid
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,1
allid=""
while not (rs2.eof or rs2.bof)
allid=allid&rs2("classid")&","
rs2.movenext
wend
rs2.close
set rs2=nothing
if allid="" then
sql=sql&" and classid="&classid
else
allid=left(allid,len(allid)-1)
sql=sql&" and classid in("&allid&") order by OrderID"
'response.Write(sql2)
end if
else
sql=sql&" order by orderid"
end If
'response.Write(sql)
mypg.getconn=conn
mypg.getsql=sql
set rs=mypg.getrs
i=0
%>
<%
while not (rs.eof or rs.bof) and i"" then
smallpicurl=imgprodPath&rs("smallpicurl")
end if
prodid=rs("articleid")
prodname=rs("prodname")
tedian=rs("tedian")
if rs("specialid")<>"" and rs("specialid")>0 then
specialname=myidv2("prodspecial","specialid",rs("specialid"),"specialname")
end if
xinghao=rs("xinghao")
%>
|
<%
i=i+1
if i mod num=0 and i <> mypg.pagesize then response.Write(" ")
rs.movenext
wend
%>
|
| <% call mypg.showpage %> |
|
