<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim rs set rs=server.CreateObject("adodb.recordset") %> 产品展示--<%=siteTitle%> <%call siteMsg()%>
 
产品展示
  
<% sql="select * from product where deleted=false order by orderid asc" rs.open sql,conn,1,1 if rs.eof then %> <% else zong=9 pagename="product.asp?" rs.PageSize=zong Page=CLng(request("Page")) if Page<1 then Page=1 if Page>rs.PageCount then Page=rs.PageCount rs.AbsolutePage = Page tiao=rs.recordcount pagez=rs.pagecount for t=1 to 3 %> <% for r=1 to 3 %> <% rs.movenext if rs.eof then exit for next for i=r+1 to 3 %> <% next %> <% if rs.eof then exit for next end if 'rs.close %>
 
没有相关产品
" width="175" height="110" />
<%=rs("title")%>
OXEN产品特点... " target="_blank">
 
<%if page=1 then%> 首页 上页 <%else%> 首页 上一页 <%end if%> <%if page=rs.pagecount then%> 下页 尾页 <%else%> 下一页 末页 <%end if%> 页次：<%=page%>/<%=pagez%>页 共有<%=tiao%>条记录 <%rs.close%>
 
<% set rs=nothing Call CloseConn() %>