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

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = "Startup.asp"-->
  2. <%
  3. ' ======================
  4. ' 功能:增加新闻
  5. ' 描述:提供一个新增表单,包括新闻标题和新闻内容,新闻内容使用eWebEditor进行编辑;
  6. '       同时接收上传文件,以便删除新闻时,同时删除上传文件;
  7. '       并由编辑区中上传的文件,提供标题新闻的图片选择。
  8. ' ======================
  9. Call Header("增加新闻")
  10. Call Content()
  11. Call Footer()
  12. ' 本页内容区
  13. Sub Content()
  14. %>
  15. <Script Language=JavaScript>
  16. // 当上传图片等文件时,往下拉框中填入图片路径,可根据实际需要更改此函数
  17. function doChange(objText, objDrop){
  18. if (!objDrop) return;
  19. var str = objText.value;
  20. var arr = str.split("|");
  21. var nIndex = objDrop.selectedIndex;
  22. objDrop.length=1;
  23. for (var i=0; i<arr.length; i++){
  24. objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
  25. }
  26. objDrop.selectedIndex = nIndex;
  27. }
  28. // 表单提交客户端检测
  29. function doSubmit(){
  30. if (document.myform.d_title.value==""){
  31. alert("新闻标题不能为空!");
  32. return false;
  33. }
  34. // getHTML()为eWebEditor自带的接口函数,功能为取编辑区的内容
  35. if (eWebEditor1.getHTML()==""){
  36. alert("新闻内容不能为空!");
  37. return false;
  38. }
  39. document.myform.submit();
  40. }
  41. </Script>
  42. <form action="addsave.asp" method="post" name="myform">
  43. <% '取源文件名 %>
  44. <input type=hidden name=d_originalfilename>
  45. <% '取保存的方件名,如果不要带路径的填充下拉框,可以在下面的表单项加入onchange事件 %>
  46. <input type=hidden name=d_savefilename>
  47. <% '取保存的文件名(带路径),使用带路径的填充下拉框 %>
  48. <input type=hidden name=d_savepathfilename onchange="doChange(this,document.myform.d_picture)">
  49. <table cellspacing=3 align=center>
  50. <tr>
  51. <td>新闻标题:</td>
  52. <td><input type="text" name="d_title" value="" size="90"></td>
  53. </tr>
  54. <tr>
  55. <td>标题图片:</td>
  56. <td><select name="d_picture" size=1><option value=''>无</option></select> 当编辑区有插入图片时,将自动填充此下拉框</td>
  57. </tr>
  58. <tr>
  59. <td>新闻内容:</td>
  60. <td>
  61. <%
  62. ' ewebeditor.asp文件调用的参数:
  63. ' id:下面表单项textarea的名称,在此表单中是d_content,注意大小写
  64. ' style:编辑器的样式名称,可在eWebEditor的后台设置
  65. ' originalfilename:用于获取源文件名的表单项名,在此表单中是d_originalfilename
  66. ' savefilename:用于获取保存文件名的表单项名,在此表单中是d_savefilename
  67. ' savepathfilename:用于获取保存带路径文件名的表单项名,在此表单中是d_savepathfilename
  68. %>
  69. <textarea name="d_content" style="display:none"></textarea>
  70. <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>
  71. </td>
  72. </tr>
  73. </table>
  74. <p align=center><input type=button name=btnSubmit value=" 提 交 " onclick="doSubmit()"> <input type=reset name=btnReset value=" 重 填 "></p>
  75. </form>
  76. <%
  77. End Sub
  78. %>