show.asp
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:2k
源码类别:

IP电话/视频会议

开发平台:

ASP/ASPX

  1. <!--#include file = "Startup.asp"-->
  2. <!--#include file = "../../Include/DeCode.asp"-->
  3. <%
  4. ' ======================
  5. ' 功能:显示新闻
  6. ' 描述:显示编辑的内容页,此页注意一下DeCode接口函数的调用。
  7. ' ======================
  8. Call Header("显示新闻内容")
  9. Call Content()
  10. Call Footer()
  11. ' 本页内容区
  12. Sub Content()
  13. ' 传入参数:新闻ID
  14. Dim sNewsID
  15. sNewsID = Trim(Request("id"))
  16. ' 新闻ID有效性验证,防止有些人恶意的破坏此演示程序
  17. If IsNumeric(sNewsID) = False Then
  18. GoError "请通过页面上的链接进行操作,不要试图破坏此演示系统。"
  19. End If
  20. ' 从数据库中取初始值
  21. Dim sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName
  22. sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
  23. oRs.Open sSql, oConn, 0, 1
  24. If Not oRs.Eof Then
  25. sTitle = oRs("D_Title")
  26. sContent = oRs("D_Content")
  27. sPicture = oRs("D_Picture")
  28. sOriginalFileName = oRs("D_OriginalFileName")
  29. sSaveFileName = oRs("D_SaveFileName")
  30. sSavePathFileName = oRs("D_SavePathFileName")
  31. Else
  32. GoError "无效的新闻ID,请点页面上的链接进行操作!"
  33. End If
  34. oRs.Close
  35. ' 禁用某些标签,如出于安全考虑的Script标签,等
  36. ' 要使用此功能需要先包含"Include/DeCode.asp"文件。
  37. ' 此例只过滤SCRIPT标签,即意味着内容中的客户端脚本不会生效,您可根据实际的需要加入其它标签。
  38. ' 当前支持过滤的标签,可以查看DeCode.asp文件中的说明。
  39. sContent = eWebEditor_DeCode(sContent, "SCRIPT")
  40. ' 输出新闻
  41. Response.Write "<table border=0 cellpadding=5 width='90%' align=center>" & _
  42. "<tr><td align=center><b>" & sTitle & "</b></td></tr>" & _
  43. "<tr><td>" & sContent & "</td></tr>" & _
  44. "</table>"
  45. ' 输出相关文件信息
  46. Response.Write "<p><b>此新闻的相关上传文件信息如下:</b></p>"
  47. ' 把带"|"的字符串转为数组,用于列出显示
  48. Dim aOriginalFileName, aSaveFileName, aSavePathFileName
  49. aOriginalFileName = Split(sOriginalFileName, "|")
  50. aSaveFileName = Split(sSaveFileName, "|")
  51. aSavePathFileName = Split(sSavePathFileName, "|")
  52. Response.Write "<table border=1 cellpadding=3 cellspacing=0>" & _
  53. "<tr>" & _
  54. "<td>序号</td>" & _
  55. "<td>原文件名(接口:d_originalfilename)</td>" & _
  56. "<td>保存文件名(接口:d_savefilename)</td>" & _
  57. "<td>保存路径文件名(接口:d_savepathfilename)</td>" & _
  58. "</tr>"
  59. Dim i
  60. For i = 0 To UBound(aOriginalFileName)
  61. Response.Write "<tr>" & _
  62. "<td>" & CStr(i + 1) & "</td>" & _
  63. "<td>" & aOriginalFileName(i) & "</td>" & _
  64. "<td>" & aSaveFileName(i) & "</td>" & _
  65. "<td>" & aSavePathFileName(i) & "</td>" & _
  66. "</tr>"
  67. Next
  68. Response.Write "</table>"
  69. End Sub
  70. %>