|
 |
|
-
<%
rs.open "select top 7 標題,id from 內容 where 大類=4 and 小類=20 order by 序號 desc,id desc",conn,1,1
if rs.eof and rs.bof then
response.Write""
else
do while not rs.eof
%>
- -1.htm"><%= rs("標題") %> <% rs.movenext loop end if rs.close %>
<%
rs.open "select top 10 標（biāo）題,id from 內容 where 大類=4 and 小類=22 order by 序號 desc,id desc",conn,1,1
if rs.eof and rs.bof then
response.Write""
else
%>
-
<% do while not rs.eof
%>
- -1.htm"><%= rs("標題") %> <% rs.movenext loop %>
<%
if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
if xl=0 then
sql="select * from 內容 where 大類="& dl &" order by 序號 desc,id desc"
else
sql="select * from 內容 where 大類（lèi）="& dl &" and 小類="& xl &" order by 序號 desc,id desc"
end if
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.write "此欄目正在建（jiàn）設中..."
elseif rs.recordcount=1 then
id=rs("id")
response.Redirect("jianxin/"&id&"-1.htm")
else
MaxperPage=10
TotalPut=rs.recordcount
if CurrentPage <1 then
CurrentPage=1
end if
if (CurrentPage-1)*MaxperPage>TotalPut then
if (TotalPut mod MaxperPage)=0 then
CurrentPage=TotalPut\MaxperPage
else
CurrentPage=TotalPut\MaxperPage+1
end if
end if
if CurrentPage=1 then
showcontent
showpages totalput,MaxPerPage,"product.asp"
else
if (CurrentPage-1)*MaxperPage
<% dim id
do while not rs.eof and i< MaxperPage
jj=rs("簡介")
jj=replace(rs("簡介"),"＜BR＞","")
id=rs("id")
tu="tu/wz"& id &"_1.jpg"
dim rss
set rss=server.CreateObject("adodb.recordset")
rss.open "select 小類 from 小類 where id="&rs("小類"),conn,1,1
if rss.eof and rss.bof then
response.Write""
else
xlmm=rss("小類")
end if
rss.close
%>
<% i=i+1
if i>=MaxperPage then exit do
rs.movenext
loop
%>
- 名（míng）稱：-1.htm"><%= rs("標題") %>
- 類別：-1.htm"><%= xlmm %>
- 簡介（jiè）：-1.htm"><%= trim(left(trim(jj),30)) %>....
- 標（biāo）簽：<%= rs("標簽1") %>_<%= rs("標簽2") %>
<%
end sub
function showpages(totalnumber,maxperpage,filename)
dim n
if TotalPut mod MaxperPage=0 then
n=TotalPut\MaxperPage
else
n=TotalPut\MaxperPage+1
end if
response.write ""
end function %>
