<!--#include file="conn.asp"-->
<%
dim dlid
dlid=request.QueryString("dlid")
xid=request.QueryString("xid")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from [shop_lm] where id="&dlid
npp.open rspl,connshop,1,2
dlname=npp("name")
dljj=npp("fljj")
pag=npp("pag")
npp.close
set npp=nothing
%>
<%


call head()
Call saycarda(""&dlname&"")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->


<%
set rsez1=server.createobject("ADODB.Recordset")
aqlz1="select * from shop_zlm where did="&dlid&" order by id desc"
rsez1.open aqlz1,connshop,1,2
if not rsez1.eof then
response.write "<select name='idp'>"
set rsez=server.createobject("ADODB.Recordset")
aqlz="select * from shop_zlm where did="&dlid&" order by id desc"
rsez.open aqlz,connshop,1,2
z=1
do while not rsez.eof
 dim nini
Response.write "<option onpick='LCkaas.asp?xid="&rsez("id")&"&amp;dlid="&dlid&"&amp;sid="&sid&"'>" & ubb(rsez("name")) & "</option>"
z=z+1
rsez.movenext
loop
rsez.close
set rsez=nothing
Response.write "</select>"
end if
%><br/>

<%if dlpd=1 then%>
<%=ubb2(dljj)%><br/>
<%end if%>
<!--以下提取属于本大类的商品并分页-->
<%
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_xx where CStr(lid)='"&dlid&"' and cstr(xid)='"&xid&"'"
rsxl.open rspl,connshop,1,2
if Not rsxl.eof then


	Dim PageSize,i
	PageSize=listnums
	Dim Count,page,pagecount,gopage			
	gopage="LCkaas.asp?xid=" & xid & "&amp;dlid=" & dlid & "&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;"
	Count=rsxl.recordcount
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize
        if page>pagecount then page=pagecount
	rsxl.move(pagesize*(page-1))				
	For i=1 To PageSize					
	If rsxl.eof Then Exit For	

dim Counts
Counts=rsxl("smspin")
response.write"<a href='view.asp?id="&rsxl("ID")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&i+(page-1)*PageSize&"."&UBB(rsxl("name"))&"</a><br/>"
	rsxl.moveNext
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页"
	Else


response.write"暂时没有商品！<br/>"
end if








%>
<!--#include file="fanhui.asp"-->

<%
call headsay()
%>
