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

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = "Startup.asp"-->
  2. <%
  3. ' ======================
  4. ' 功能:修改新闻保存页
  5. ' 描述:对modify.asp文件提交过来的表单数据进行保存操作,有保存新闻标题,新闻内容,新闻标题图片;
  6. '       同时保存所有此篇新闻所有相关的上传或远程获取的文件信息,有源文件名,保存文件名,保存路径文件名。
  7. ' ======================
  8. Call Header("修改新闻保存")
  9. Call Content()
  10. Call Footer()
  11. ' 本页内容区
  12. Sub Content()
  13. Dim i
  14. ' 传入参数:新闻ID
  15. Dim sNewsID
  16. sNewsID = Trim(Request("id"))
  17. ' 新闻ID有效性验证,防止有些人恶意的破坏此演示程序
  18. If IsNumeric(sNewsID) = False Then
  19. GoError "请通过页面上的链接进行操作,不要试图破坏此演示系统。"
  20. End If
  21. ' 取提交过来的数据
  22. ' 注意取新闻内容的方法,因为对大表单的自动处理,一定要使用循环,否则大于100K的内容将取不到,单个表单项的限制为102399字节(100K左右)
  23. Dim sTitle, sContent, sPicture
  24. sTitle = Request.Form("d_title")
  25. sPicture = Request.Form("d_picture")
  26. ' 开始:eWebEditor编辑区取值-----------------
  27. sContent = ""
  28. For i = 1 To Request.Form("d_content").Count
  29. sContent = sContent & Request.Form("d_content")(i)
  30. Next
  31. ' 结束:eWebEditor编辑区取值-----------------
  32. ' 以下为所有通过编辑器上传的所有文件相关信息,包括编辑区手动上传的和自动远程上传的
  33. ' GetSafeStr函数为过滤一些特殊字符,防止有些人恶意的破坏此演示程序
  34. ' 上传或远程获取前的原文件名,多个以"|"分隔
  35. Dim sOriginalFileName
  36. ' 上传后保存到本地服务器的文件名(不带路径),多个以"|"分隔
  37. Dim sSaveFileName
  38. ' 上传后保存到本地服务器的路径文件名,多个以"|"分隔
  39. Dim sSavePathFileName
  40. sOriginalFileName = GetSafeStr(Request.Form("d_originalfilename"))
  41. sSaveFileName = GetSafeStr(Request.Form("d_savefilename"))
  42. sSavePathFileName = GetSafeStr(Request.Form("d_savepathfilename"))
  43. ' 修改指定新闻内容
  44. sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
  45. oRs.Open sSql, oConn, 1, 3
  46. If Not oRs.Eof Then
  47. oRs("D_Title") = sTitle
  48. oRs("D_Content") = sContent
  49. oRs("D_Picture") = sPicture
  50. oRs("D_OriginalFileName") = sOriginalFileName
  51. oRs("D_SaveFileName") = sSaveFileName
  52. oRs("D_SavePathFileName") = sSavePathFileName
  53. oRs.Update
  54. Else
  55. GoError "无效的新闻ID,请点页面上的链接进行操作!"
  56. End If
  57. oRs.Close
  58. ' 输出成功保存信息
  59. Response.Write "新闻(ID:" & sNewsID & ")修改保存成功!"
  60. End Sub
  61. %>