sub articlecat()
sql="select * from a_cat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
文章分类
do while not rs2.eof
if request("cat_id")=cstr(rs2("cat_id")) then
response.write ""&rs2("cat_name")&""
else
response.write ""&rs2("cat_name")&""
end if
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "当前没有分类！"
end if
%>
本类热门文章
set rs3=server.createobject("adodb.recordset")
dim a_j
a_j=1
if request.querystring("cat_id")"" then
sql="select top 10 art_id,art_title,art_count,cat_id from art where cat_id="&request.querystring("cat_id")&" order by art_count DESC"
else
sql="select top 10 art_id,art_title,art_count,cat_id from art order by art_count DESC"
end if
rs3.open sql,conn,1,1
do while not rs3.eof
if a_j>=10 then exit do
a_j=a_j+1
%>
12 then
response.write "·"&left(Rs3("art_title"),10)&"..."
else
response.write "·"&Rs3("art_title")
end if%>
()
rs3.movenext
loop
if rs3.eof and rs3.bof then
response.write "没有相关文章"
end if
rs3.close
set rs3=nothing
%>
文章搜索
搜索文章标题
搜索文章内容
本
站 声 明
本站的大部分资料，文章都来自网上收集，其版权归作者本人所有，如果有任何侵犯您权益的地方，请联系我们，我们将马上进行整理，谢谢。
set rs2=nothing
end sub%>
