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

Email服务器

开发平台:

ASP/ASPX

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