<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'连接产品库
set rs=Server.CreateObject("ADODB.recordset")
rs.open "select * from products_bclass order by newid",conn,1,3
'设置数据库分页参数
if not rs.eof and not rs.bof then
rs.pagesize=12
page=CLng(request("page"))
if page="" then
page=1
else
if page="" or page<=0 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage=page
end if
end if
'设置路径
dim myself
myself=Request.ServerVariables("PATH_INFO")
%>
::乐清市乐泰重型机械配件有限公司::
自卸矿用汽车系列
<%j=1%>
<%if not (rs.eof and rs.bof) then
for i=1 to rs.recordcount%>
<%=rs("title")%>