|
 |
|
-
<%
rs.open "select top 7 標(biāo)題,id from 內(nèi)容 where 大類(lèi)=4 and 小類(lèi)=20 order by 序號(hào) desc,id desc",conn,1,1
if rs.eof and rs.bof then
response.Write""
else
do while not rs.eof
%>
- -1.htm"><%= rs("標(biāo)題") %> <% rs.movenext loop end if rs.close %>
<%
rs.open "select top 10 標(biāo)題,id from 內(nèi)容 where 大類(lèi)=4 and 小類(lèi)=22 order by 序號(hào) desc,id desc",conn,1,1
if rs.eof and rs.bof then
response.Write""
else
%>
-
<% do while not rs.eof
%>
- -1.htm"><%= rs("標(biāo)題") %> <% rs.movenext loop %>
<% dim id
do while not rs.eof and i< MaxperPage
jj=rs("簡(jiǎn)介")
jj=replace(rs("簡(jiǎn)介"),"＜BR＞","")
id=rs("id")
tu="tu/wz"& id &"_1.jpg"
dim rss
set rss=server.CreateObject("adodb.recordset")
rss.open "select 小類(lèi) from 小類(lèi) where id="&rs("小類(lèi)"),conn,1,1
if rss.eof and rss.bof then
response.Write""
else
xlmm=rss("小類(lèi)")
end if
rss.close
%>
<% i=i+1
if i>=MaxperPage then exit do
rs.movenext
loop
%>
- 名稱(chēng)：-1.htm"><%= rs("標(biāo)題") %>
- 類(lèi)別：-1.htm"><%= xlmm %>
- 簡(jiǎn)介：-1.htm"><%= trim(left(trim(jj),30)) %>....
- 標(biāo)簽：<%= rs("標(biāo)簽1") %>_<%= rs("標(biāo)簽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 %>
主站蜘蛛池模板：