<%
set rs=server.createobject("adodb.recordset")
exec="select top 10 * from [表名] where 条件 order by 排序"
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.Write("暂无公司新闻!")
else
end if
response.write"<b><font color='#990000'>公司新闻</font></b>"
response.write"<div class='box12'>"
response.write"<ul>"
do while not rs.eof
response.Write("<li><a href=""shownews.asp?id=" & rs("id") & """>" & left(rs("title"),20) & "</a> " & month(rs("data"))&"-"&day(rs("data"))& "</li>")
rs.movenext
loop
response.write"</ul>"
response.write"<div>"
%>
这是我程序里的一小段代码 你参考下
温馨提示:答案为网友推荐,仅供参考