sub articlecat()
sql="select * from cat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
do while not rs2.eof
response.write "≡≡≡ "
if request("cat_id")=cstr(rs2("cat_id")) then
response.write ""&rs2("cat_name")&""
else
response.write ""&rs2("cat_name")&""
end if
response.write " ≡≡≡"
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "当前没有分类！"
end if
%>
搜索文章标题
搜索文章内容
set rs3=server.createobject("adodb.recordset")
if request.querystring("cat_id")"" then
sql="select top "&toparticlenum&" art_id,art_title,art_count,cat_id from art where cat_id="&request.querystring("cat_id")&" order by art_count DESC,art_date DESC"
else
sql="select top "&toparticlenum&" 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
%>
·
14 then
response.write left(Rs3("art_title"),12)&"..."
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%>
