<%
'特别新闻
sql = "SELECT id,title,addtime FROM news WHERE special ORDER BY addtime DESC"
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
response.write "特别新闻：
"
if rs.bof and rs.eof then
rs.close
response.write "没有特别新闻"
else
response.write ""
end if
end if
'新闻类别
sql = "SELECT * FROM category"
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
else
do while not rs.eof
response.write "| "
response.write rs("title") + " | "
response.write "| "
'本类别新闻标题
sql1 = "SELECT id,title,addtime FROM news WHERE cateid=" + cstr(rs("id")) + " ORDER BY addtime DESC"
rs1.open sql1, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs1.bof and rs1.eof then
rs1.close
response.write "没有新闻"
else
response.write ""
end if
end if
response.write " "
response.write "更多新闻... "
response.write " |
"
rs.movenext
loop
rs.close
end if
end if
%>
|
|
| >新闻专题 |
| >
<%
'新闻专题
sql = "SELECT * FROM topic"
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有专题"
else
response.write ""
rs.close
end if
end if
%>
|
|
