|
<%
' *********************************参数设置*****************************
set mypg=new jcpageclass
mypg.pagesize=6 '每页显示的产品数量
width=120 '产品图片的宽度
height=160 '产品图片的高度
num=2 '每行显示的产品数
%>
 |
<%
sql="select * from prod where 1=1"
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&")"
end if
'response.Write(sql2)
'response.Write(sql)
end if
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 %> |
|
|
 |