|
|
<%
sql = "select id, subject, publish_date from news where flag = 0 and catalog_id = 1 order by publish_date desc, id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3
intCurrentPage = Request("current_page")
intCurrentPage = initPage(rs, 18, intCurrentPage)
i = 0
Dim str_color
If Not (rs.BOF And rs.EOF) Then
rs.Move(18 * (intCurrentPage - 1))
While (Not rs.EOF) And (i < 18)
If i Mod 2 = 0 Then
str_color = "#FFFFFF"
Else
str_color = "#fcf5eb"
End If
%>
|
· "><%=formatHtmlTextarea(rs("subject"))%>
|
<%=formatHtmlTextarea(rs("publish_date"))%>
|
 |
<%
i = i + 1
rs.MoveNext
Wend
End If
%>
|
<%
showNumberPageButton1 rs, intCurrentPage, "current_page", script_name & "?1=1"
%>
|
|
