-
<%
clsid=rslist("id")
set rs = server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 1
rs.PageSize =12
sql1="Select top 10 * from product_data where ok=true "
'if request.QueryString("input")<>"" then
' sql1 =sql1&" and name like '%"&request.QueryString("input")&"%' or mode like '%"&request.QueryString("input")&"%' or keywords like '%"&request.QueryString("input")&"%'"
'end if
if clsid<>"" then
series_list=ListClassTree(GetSafeStr(clsid),"Product_Series")
sql1 =sql1&" and class in ("&series_list&") "
end if
rs.Source =sql1&" order by index asc,id asc "
rs.Open
if request.querystring("page") = "" or request.querystring("page")<1 then
ipage = 1
else
ipage = request.querystring("page")
end if
if rs.eof then
response.write("Sorry,No product found!
- " title="<%=rs("name")%>"><%=rs("name")%> <% rs.movenext next end if %>
") else rs.absolutepage = ipage j=0 for i=1 to rs.pagesize if rs.eof then exit for end if j=j+1 %>