list_old.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:1k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = "Startup.asp"-->
  2. <%
  3. ' ======================
  4. ' 功能:新闻列表
  5. ' 描述:本页代码没有使用到eWebEditor相关的内容,只提供新闻列表,及显示、修改、删除新闻页的链接。
  6. ' ======================
  7. Call Header("新闻列表")
  8. Call Content()
  9. Call Footer()
  10. ' 本页内容区
  11. Sub Content()
  12. ' 从新闻库中取出所有新闻,按ID倒排序
  13. sSql = "SELECT * FROM NewsData ORDER BY D_ID DESC"
  14. oRs.Open sSql, oConn, 0, 1
  15. If Not oRs.Eof Then
  16. Do While Not oRs.Eof
  17. Response.Write "<li>"
  18. ' 是否有新闻标题图片,如有则输出显示
  19. If oRs("D_Picture") <> "" Then
  20. Response.Write "<img border=0 src='" & oRs("D_Picture") & "'>"
  21. End If
  22. ' 显示标题
  23. ' 函数outHTML:去除Html格式,用于显示输出,具体请见startup.asp文件中的说明
  24. Response.Write "<a href='show.asp?id=" & oRs("d_id") & "'>" & outHTML(oRs("d_title")) & "</a>&nbsp;&nbsp;"
  25. ' 显示修改链接
  26. Response.Write "[<a href='modify.asp?id=" & oRs("d_id") & "'>修改</a>]"
  27. ' 显示删除链接
  28. Response.Write "[<a href='delete.asp?id=" & oRs("d_id") & "'>删除</a>]"
  29. oRs.MoveNext
  30. Loop
  31. Else
  32. Response.Write "现在数据库中还没有新闻!"
  33. End If
  34. oRs.Close
  35. End Sub
  36. %>