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

<%

' ======================
' 功能：增加新聞
' 描述：提供一個新增表單，包括新聞標題和新聞內容，新聞內容使用eWebEditor進行編輯；
'       同時接收上傳文件，以便刪除新聞時，同時刪除上傳文件；
'       并由編輯區中上傳的文件，提供標題新聞的圖片選擇。
' ======================

Call Header("增加新聞")
Call Content()
Call Footer()


' 本頁內容區
Sub Content()
	%>

	<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;
		}
		// getHTML()為eWebEditor自帶的接口函數，功能為取編輯區的內容
		if (eWebEditor1.getHTML()==""){
			alert("新聞內容不能為空！");
			return false;
		}
		document.myform.submit();
	}

	// 表單提交客戶端檢測
	function doCheck(){

		if (document.myform.d_title.value==""){
			alert("新聞標題不能為空！");
			return false;
		}
		// getHTML()為eWebEditor自帶的接口函數，功能為取編輯區的內容
		if (eWebEditor1.getHTML()==""){
			alert("新聞內容不能為空！");
			return false;
		}

		// 表單有效性檢測完后，自動上傳遠程文件
		// 函數：remoteUpload(strEventUploadAfter)
		// 參數：strEventUploadAfter ; 上傳完后，觸發的函數名，如果上傳完后不需動作可不填參數
		eWebEditor1.remoteUpload("doSubmit()");
		return false;

	}

	// 表單提交（當遠程上傳完成后，觸發此函數）
	function doSubmit(){
		document.myform.submit();
	}

	</Script>
	
	<form action="addsave.asp" method="post" name="myform" onsubmit="return doCheck();">
	<% '取源文件名 %>
	<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 cellspacing=3 align=center>
	<tr>
		<td>新聞標題：</td>
		<td><input type="text" name="d_title" value="" size="90"></td>
	</tr>
	<tr>
		<td>標題圖片：</td>
		<td><select name="d_picture" size=1><option value=''>無</option></select> 當編輯區有插入圖片時，將自動填充此下拉框</td>
	</tr>
	<tr>
		<td>新聞內容：</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="../../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>
		</td>
	</tr>
	</table>
	<p align=center><input type=submit name=btnSubmit value=" 提 交 "> <input type=reset name=btnReset value=" 重 填 "></p>
	</form>

	<%
End Sub

%>