<!--#include file = "Startup.asp"-->

<%

' ======================
' 功能：新聞列表
' 描述：本頁代碼沒有使用到eWebEditor相關的內容，只提供新聞列表，及顯示、修改、刪除新聞頁的鏈接。
' ======================

Call Header("新聞列表")
Call Content()
Call Footer()


' 本頁內容區
Sub Content()

	' 從新聞庫中取出所有新聞，按ID倒排序
	sSql = "SELECT * FROM NewsData ORDER BY D_ID DESC"
	oRs.Open sSql, oConn, 0, 1
	If Not oRs.Eof Then
		Do While Not oRs.Eof
			Response.Write "<li>"
			' 是否有新聞標題圖片，如有則輸出顯示
			If oRs("D_Picture") <> "" Then
				Response.Write "<img border=0 src='" & oRs("D_Picture") & "'>"
			End If
			' 顯示標題
			' 函數outHTML：去除Html格式，用于顯示輸出,具體請見startup.asp文件中的說明
			Response.Write "<a href='show.asp?id=" & oRs("d_id") & "'>" & outHTML(oRs("d_title")) & "</a>&nbsp;&nbsp;"
			' 顯示修改鏈接
			Response.Write "[<a href='modify.asp?id=" & oRs("d_id") & "'>修改</a>]"
			' 顯示刪除鏈接
			Response.Write "[<a href='delete.asp?id=" & oRs("d_id") & "'>刪除</a>]"
			oRs.MoveNext
		Loop
	Else
		Response.Write "現在數據庫中還沒有新聞！"
	End If
	oRs.Close

End Sub

%>