%
'######################################
' 启点在线企业网站管理系统中英文版
' Enterprise Web Site Management System
' 官方网站:http://www.kelvinvt.com
' 联系QQ:15038883
' 淘宝店: http://kelvinvt.taobao.com
'######################################
%>
<%
dim id,rs,exec,rstt,exectt,tt,tt2
id = request.querystring("id")
if id = "" or not isnumeric(id) then
response.write ""
response.end
end if
set rstt=server.createobject("adodb.recordset")
exectt="select * from shop_fl where id="&id
rstt.open exectt,conn,1,1
titlefl = rstt("title")
if rstt.eof then
rstt.close
set rstt = nothing
conn.close
set conn = nothing
response.write ""
response.end
end if
tt = rstt("id")
tt2 = rstt("sid")
%>
<%
set rs=server.createobject("adodb.recordset")
exec="select * from [shop] where ssfl="&id&" or sid="&id&" order by px_id asc,id desc"
rs.open exec,conn,1,1
if rs.eof then
response.Write " 此分类还没有添加产品!"
else
rs.PageSize = plist_num '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%For i=1 To x%>