<% '###################################### ' 启点在线企业网站管理系统中英文版 ' 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%> <%rs.movenext next %> <% end if %>
<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing rstt.close set rstt=nothing %>

<% conn.close set conn = nothing %>