<% Set rs = Server.CreateObject ("ADODB.Recordset") Sql = "Select * From news" rs.open SQL ,abc, 1,3 if rs.eof then %> <% else Do while not rs.eof %> <% rs.movenext loop End If rs.close:set rs=nothing abc.close:set abc=nothing %>

新增新聞
目前無新聞
新聞內容： <%=rs("title")%>
相關網址："><%=rs("url")%>	時間：<%=rs("time")%>
"> 修改 　 "> 刪除