56770网络科技精心打造的超强版本已开始发售

源代码在线查看: list.asp

软件大小: 1734 K
上传用户: a195767236
关键词: 56770 网络 版本
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
								
				' ======================
				' 功能:新闻列表
				' 描述:本页代码没有使用到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 ""
							' 是否有新闻标题图片,如有则输出显示
							If oRs("D_Picture")  "" Then
								Response.Write ""
							End If
							' 显示标题
							' 函数outHTML:去除Html格式,用于显示输出,具体请见startup.asp文件中的说明
							Response.Write "" & outHTML(oRs("d_title")) & "  "
							' 显示修改链接
							Response.Write "[修改]"
							' 显示删除链接
							Response.Write "[删除]"
							oRs.MoveNext
						Loop
					Else
						Response.Write "现在数据库中还没有新闻!"
					End If
					oRs.Close
				
				End Sub
				
				%>
							

相关资源