<%
newsclass1=Rs1("class")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Sql2="Select Top 5 * From newsinfo Where
class="&newclass&"Order By time Desc"
Rs2.Open sql2,conn.3.3
If Rs2.Eof And Rs2.Bof Then
Response.Write"
| | "
Response.Write"本新闻板块暂无新闻信息!"
Response.Write" |
Else
Do while not Rs2.EOF
%>
<%=Rs2("time")%>
<%
Rs2.MoveNext
Loop
End If
Rs2.Close
Set Rs2=nothing
%>
<%
If Rs2("images")<>"" then
Response.Write"[图]
"
End if
If Len(Rs2("title"))>30 Then
Response.Write Left(Rs2("title"),29)&"..."
Else
Response.Write Rs2("title")
End if
%>
<%
Rs1.MoveNext
Loop
End If
Rs.Close
Set Rs1=nothing
%>