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

<%

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

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


' 本頁(yè)內(nèi)容區(qū)
Sub Content()

	' 從新聞庫(kù)中取出所有新聞，按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>"
			' 是否有新聞標(biāo)題圖片，如有則輸出顯示
			If oRs("D_Picture") <> "" Then
				Response.Write "<img border=0 src='" & oRs("D_Picture") & "'>"
			End If
			' 顯示標(biāo)題
			' 函數(shù)outHTML：去除Html格式，用于顯示輸出,具體請(qǐng)見(jiàn)startup.asp文件中的說(shuō)明
			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 "現(xiàn)在數(shù)據(jù)庫(kù)中還沒(méi)有新聞！"
	End If
	oRs.Close

End Sub

%>