-
<%
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 標題,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 %>
<% 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
%>
- 名稱：-1.htm"><%= rs("標題") %>
- 類別：-1.htm"><%= xlmm %>
- 簡介：-1.htm"><%= trim(left(trim(jj),30)) %>....
- 標簽：<%= 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 %>
主站蜘蛛池模板：