| <%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_snsn where anclassid=1 and nclassid="&nclassid&" order by shopid",conn,1,3
l=1
rs.PageSize =l '每页录
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
%> |
|
| PUODUCTS |
|
<%
'二次查讯大类
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select nclass,nclassid,xsztys from shop_nclass where anclassid=1 order by nclassid",conn,1,1
'response.write " "
do while not rs1.eof
response.write "
 "&trim(rs1("nclass"))&"
"
rs1.movenext
'ii=ii+1
loop
'response.write " NEW"
rs1.close
set rs1=nothing
%> |
|
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
|
| |
|
 |
|
 |
|
 |
|
| |
|
|
|
