 |
|
<% dim i
'本类别新闻标题
sql = "SELECT id,title,addtime FROM news WHERE cateid=2 ORDER BY addtime DESC"
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 ""
end if
end if
response.write " "
response.write "More... "
%>
|
|
|
|
 |
|
共产党员先进性教育专题
<%
'本类别新闻标题
sql = "SELECT id,title,addtime FROM news WHERE cateid=1 ORDER BY addtime DESC"
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 ""
end if
end if
response.write ""
response.write "More... "
%>
请查看百合数学系版 |
|
