<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->

<%

' ======================
' 功能：增加新闻
' 描述：提供一个新增表单，包括新闻标题和新闻内容，新闻内容使用eWebEditor进行编辑；
'       同时接收上传文件，以便删除新闻时，同时删除上传文件；
'       并由编辑区中上传的文件，提供标题新闻的图片选择。
' ======================
call adminer()
call Header()
Call ComeUrl()
Call Content()




' 本页内容区
Sub Content()
	%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<Script Language=JavaScript>
	// 当上传图片等文件时，往下拉框中填入图片路径，可根据实际需要更改此函数
	function doChange(objText, objDrop){
		if (!objDrop) return;
		var str = objText.value;
		var arr = str.split("|");
		var nIndex = objDrop.selectedIndex;
		objDrop.length=1;
		for (var i=0; i<arr.length; i++){
			objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
		}
		objDrop.selectedIndex = nIndex;
	}

	// 表单提交客户端检测
	function doSubmit(){
		if (document.myform.d_title.value==""){
			alert("新闻标题不能为空！");
			return false;
		}
  		if (document.myform.d_ClassID.value=="")
  		{
    		alert("文章所属栏目不能指定为含有子栏目的栏目！");
			return false;
  		}
		// getHTML()为eWebEditor自带的接口函数，功能为取编辑区的内容
		if (eWebEditor1.getHTML()==""){
			alert("新闻内容不能为空！");
			return false;
		}
		//document.myform.submit();
	}
	</Script>
	<%
	dim ClassID
	sSql="Select ClassID,ClassName From NewsClass"
	oRs.Open sSql,oConn,1,1
	If oRs.Eof Then
	Response.write "<script>"
	Response.write "alert('暂无分类信息！请添加分类后在来！');"
	Response.write "window.location.href='News_Class.asp';"
	Response.write "</script>"
	Response.End
	End If
	oRs.Close
	%>
	<form action="News_save.asp" method="post" name="myform">
	<% '取源文件名 %>
	<input type=hidden name=d_originalfilename>
	<% '取保存的方件名，如果不要带路径的填充下拉框，可以在下面的表单项加入onchange事件 %>
	<input type=hidden name=d_savefilename>
	<% '取保存的文件名（带路径），使用带路径的填充下拉框 %>
	<input type=hidden name=d_savepathfilename onchange="doChange(this,document.myform.d_picture)">

	<table width="100%" border="0" align=center cellpadding="3" cellspacing=1 bgcolor="#DEDFDE">
	<tr bgcolor="#F7F7F7">
	  <td colspan="2"><div align="center"><strong>新　闻　添　加</strong></div></td>
	  </tr>
	<tr bgcolor="#FFFFFF">
		<td width="100">新闻标题：</td>
		<td><input type="text" name="d_title" value="" size="80" class="input_text">
		  <font color="#ff6600">*</font></td>
	</tr>
	<tr bgcolor="#FFFFFF">
	  <td width="100">新闻分类：</td>
	  <td>          <select name='d_ClassID'><%call NewsClass_Option(3,ClassID)%></select>
	  
	    <FONT color=#ff6600><STRONG>注意：</STRONG>1、不能指定为含有子栏目的栏目</FONT></td>
	  </tr>
	<tr bgcolor="#FFFFFF">
	  <td>关键词：</td>
	  <td><input name="nkey1" type="text" id="nkey1" /></td>
	</tr>
	<tr bgcolor="#FFFFFF">
	  <td>页面描述：</td>
	  <td><textarea name="nkey2" cols="50" rows="5" id="nkey2"></textarea></td>
	</tr>
	<tr bgcolor="#FFFFFF">
	  <td>作　　者：</td>
	  <td><input name="d_Author" type="text" class="input_text" id="d_Author" value="无" size="20"></td>
	  </tr>
	<tr bgcolor="#FFFFFF">
	  <td>出　　处：</td>
	  <td><input name="d_Source" type="text" class="input_text" id="d_Source" value="无" size="20"></td>
	  </tr>
	<tr bgcolor="#FFFFFF"><td width="100" rowspan="2">图片新闻：</td>
	  <td>
	  <input name="d_picture" type="text" id="d_picture" size="40" class="input_text">
      <FONT color=#ff6600>*<STRONG></STRONG></FONT>
      <font color="#ff6600">添加首页图片新闻，请您选择相应的图片</font></td>
	  </tr>
	<tr bgcolor="#FFFFFF">
	  <td><iframe style="top:2px" ID="UploadFiles" src="upload_Photo.asp?PhotoUrlID=5" frameborder=0 scrolling=no width="320" height="25"></iframe></td>
	  </tr>

	<tr bgcolor="#FFFFFF">
	  <td width="100">添加时间：</td>
	  <td>
      <input name="d_time" type="text" id="d_time" value="<%=date()%>" size="20" class="input_text"></td>
	  </tr>
	<tr bgcolor="#FFFFFF">
	  <td> 新闻简介：</td>
	  <td><textarea name="jianjie" cols="60" rows="8" id="jianjie"></textarea></td>
	</tr>
	<!--
	<tr>
		<td>标题图片：</td>
		<td><select name="d_picture" size=1><option value=''>无</option></select> 当编辑区有插入图片时，将自动填充此下拉框</td>
	</tr>
	-->
	<tr bgcolor="#FFFFFF">
		<td width="100"><p>新闻内容：</p>
	    <p>·换行请按<FONT color=#ff6600>Shift+Enter</FONT><BR>
	      ·另起一段请按<FONT color=#ff6600>Enter</FONT><BR>
	    </p></td>
		<td>
			<%
			' ewebeditor.asp文件调用的参数：
			'	id：下面表单项textarea的名称，在此表单中是d_content，注意大小写
			'	style：编辑器的样式名称，可在eWebEditor的后台设置
			'	originalfilename：用于获取源文件名的表单项名，在此表单中是d_originalfilename
			'	savefilename：用于获取保存文件名的表单项名，在此表单中是d_savefilename
			'	savepathfilename：用于获取保存带路径文件名的表单项名，在此表单中是d_savepathfilename
			%>
			
			<textarea name="d_content" style="display:none"></textarea>
			<iframe ID="eWebEditor1" src="aa/ewebeditor.asp?id=d_content&style=standardnew&originalfilename=d_originalfilename&savefilename=d_savefilename&savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="600" HEIGHT="350"></iframe>				</td>
	</tr>
	<tr bgcolor="#FFFFFF">
	  <td height="40" colspan="2"><div align="center">
          <input name="Action" type="hidden" id="Action" value="AddSaveNews">
          <input type=submit name=btnSubmit value=" 提　交 " onClick="return doSubmit()" class="input_submit">
          　　　　　
          <input type=reset name=btnReset value=" 重　填 " class="input_submit">
      </div></td>
	  </tr>
	</table>
	</form>

	<%
End Sub

%> 
