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

IP电话/视频会议

开发平台:

ASP/ASPX

  1. <!--#include file = "Startup.asp"-->
  2. <%
  3. ' ======================
  4. ' 功能:修改新闻
  5. ' 描述:提供一个修改表单,包括新闻标题和新闻内容,新闻内容使用eWebEditor进行编辑;
  6. '       同时接收上传文件,以便删除新闻时,同时删除上传文件;
  7. '       并由编辑区中上传的文件,提供标题新闻的图片选择;
  8. ' 功能与新增相同,不同在于只是修改表单具有初始值。
  9. ' ======================
  10. Call Header("修改新闻")
  11. Call Content()
  12. Call Footer()
  13. ' 本页内容区
  14. Sub Content()
  15. ' 传入参数:新闻ID
  16. Dim sNewsID
  17. sNewsID = Trim(Request("id"))
  18. ' 新闻ID有效性验证,防止有些人恶意的破坏此演示程序
  19. If IsNumeric(sNewsID) = False Then
  20. GoError "请通过页面上的链接进行操作,不要试图破坏此演示系统。"
  21. End If
  22. ' 从数据库中取初始值
  23. Dim sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName
  24. sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
  25. oRs.Open sSql, oConn, 0, 1
  26. If Not oRs.Eof Then
  27. sTitle = oRs("D_Title")
  28. sContent = oRs("D_Content")
  29. sPicture = oRs("D_Picture")
  30. sOriginalFileName = oRs("D_OriginalFileName")
  31. sSaveFileName = oRs("D_SaveFileName")
  32. sSavePathFileName = oRs("D_SavePathFileName")
  33. Else
  34. GoError "无效的新闻ID,请点页面上的链接进行操作!"
  35. End If
  36. oRs.Close
  37. ' 把带"|"的字符串转为数组,用于初始下拉框表单
  38. Dim aSavePathFileName
  39. aSavePathFileName = Split(sSavePathFileName, "|")
  40. ' 根据新闻内容中相关上传文件为数据,初始下拉框表单
  41. ' 函数InitSelect,根据数组值及初始值返回下拉框输出字串,具体请见startup.asp文件中函数的说明部分
  42. Dim sOptionSavePath
  43. sOptionSavePath = InitSelect("d_picture", aSavePathFileName, aSavePathFileName, sPicture, "", "无")
  44. %>
  45. <Script Language=JavaScript>
  46. // 当上传图片等文件时,往下拉框中填入图片路径,可根据实际需要更改此函数
  47. function doChange(objText, objDrop){
  48. if (!objDrop) return;
  49. var str = objText.value;
  50. var arr = str.split("|");
  51. var nIndex = objDrop.selectedIndex;
  52. objDrop.length=1;
  53. for (var i=0; i<arr.length; i++){
  54. objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
  55. }
  56. objDrop.selectedIndex = nIndex;
  57. }
  58. // 表单提交客户端检测
  59. function doSubmit(){
  60. if (document.myform.d_title.value==""){
  61. alert("新闻标题不能为空!");
  62. return false;
  63. }
  64. // getHTML()为eWebEditor自带的接口函数,功能为取编辑区的内容
  65. if (eWebEditor1.getHTML()==""){
  66. alert("新闻内容不能为空!");
  67. return false;
  68. }
  69. document.myform.submit();
  70. }
  71. </Script>
  72. <form action="modifysave.asp?id=<%=sNewsID%>" method="post" name="myform">
  73. <% '取源文件名 %>
  74. <input type=hidden name=d_originalfilename value="<%=sOriginalFileName%>">
  75. <% '取保存的方件名(带路径),如果不要带路径的填充下拉框,可以在下面的表单项加入onchange事件 %>
  76. <input type=hidden name=d_savefilename value="<%=sSaveFileName%>">
  77. <% '取保存的文件名,使用带路径的填充下拉框 %>
  78. <input type=hidden name=d_savepathfilename onchange="doChange(this,document.myform.d_picture)" value="<%=sSavePathFileName%>">
  79. <table cellspacing=3 align=center>
  80. <tr>
  81. <td>新闻标题:</td>
  82. <% ' 函数inHTML:去除Html格式,用于从数据库中取出值填入输入框时,具体请见startup.asp文件中函数的说明 %>
  83. <td><input type="text" name="d_title" value="<%=inHTML(sTitle)%>" size="90"></td>
  84. </tr>
  85. <tr>
  86. <td>标题图片:</td>
  87. <td><%=sOptionSavePath%> 当编辑区有插入图片时,将自动填充此下拉框</td>
  88. </tr>
  89. <tr>
  90. <td>新闻内容:</td>
  91. <td>
  92. <%
  93. ' ewebeditor.asp文件调用的参数:
  94. ' id:下面表单项textarea的名称,在此表单中是d_content,注意大小写
  95. ' style:编辑器的样式名称,可在eWebEditor的后台设置
  96. ' originalfilename:用于获取源文件名的表单项名,在此表单中是d_originalfilename
  97. ' savefilename:用于获取保存文件名的表单项名,在此表单中是d_savefilename
  98. ' savepathfilename:用于获取保存带路径文件名的表单项名,在此表单中是d_savepathfilename
  99. ' 请一定要用Server.HtmlEncode()函数对内容进行转换,否则将有可以出现某些内容出了编辑区的情况
  100. %>
  101. <textarea name="d_content" style="display:none"><%=Server.HtmlEncode(sContent)%></textarea>
  102. <iframe ID="eWebEditor1" src="../../ewebeditor.asp?id=d_content&style=s_newssystem&originalfilename=d_originalfilename&savefilename=d_savefilename&savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>
  103. </td>
  104. </tr>
  105. </table>
  106. <p align=center><input type=button name=btnSubmit value=" 提 交 " onclick="doSubmit()"> <input type=reset name=btnReset value=" 重 填 "></p>
  107. </form>
  108. <%
  109. End Sub
  110. %>