<!--#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 (document.myform.d_content.value==""){
			alert("资讯内容不能为空！");
			return false;
		}
		//document.myform.submit();
	}
	function myformat(what) 
{
    if (document.selection && document.selection.type == "Text")
    {
        var range = document.selection.createRange();
        range.text = "["+what+"]" + range.text + "[/"+what+"]";
    }
    else
    {
        txt=window.prompt("请输入内容","");     
        if (txt!=null) {           
                AddTxt="["+what+"]"+txt;
                AddText(AddTxt);
                AddText("[/"+what+"]");
        }       
    } 
}

function ubbInsert(what) 
{
    if (document.selection && document.selection.type == "Text")
    {
        var range = document.selection.createRange();
        range.text = "["+what+"]" + range.text + "[/"+what+"]";
    }
    else
    {
        txt=window.prompt("请输入内容","");     
        if (txt!=null) {           
                AddTxt="["+what+"]"+txt;
                AddText(AddTxt);
                AddText("[/"+what+"]");
        }       
    } 
}

function chsize(size) {
    if (document.selection && document.selection.type == "Text")
    {
        var range = document.selection.createRange();
        range.text = "[size=" + size + "]" + range.text + "[/size]";
    }
    else
    {                       
        txt=window.prompt("请输入内容",""); 
        if (txt!=null)
        {             
            AddTxt="[size="+size+"]"+txt;
            AddText(AddTxt);
            AddText("[/size]");
        }        
    }
}

function chfont(font) {
    if (document.selection && document.selection.type == "Text") {
    var range = document.selection.createRange();
    range.text = "" + range.text + "";
    }
    else
    {                  
        txt=window.prompt("请输入内容","");
        if (txt!=null)
        {             
            AddTxt=""+txt;
            AddText(AddTxt);
            AddText("");
        }        
    }  
}

function chcolor(color) {
    if (document.selection && document.selection.type == "Text") {
    var range = document.selection.createRange();
    range.text = "" + range.text + "";
    }
    else
    {  
    txt=window.prompt("请输入内容","");
        if(txt!=null) {
            AddTxt=""+txt;
            AddText(AddTxt);
            AddText("");
        }
    }
}
	</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="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">添加时间：</td>
      <td> <input name="d_time" type="text" id="d_time" value="<%=now()%>" readonly size="20" class="input_text">  <img src="ubb/bold.gif" border="0" alt="粗体" onClick="myformat('B')"><img src="ubb/italicize.gif" border="0" alt="斜体" onClick="myformat('I')"><img src="ubb/underline.gif" border="0" alt="下划线" onClick="myformat('U')"><img src="ubb/url.gif" alt="插入网址" width="23" height="22" border="0" onClick="myformat('URL')"><img src="ubb/image.gif" border="0" alt="插入图片" onClick="ubbInsert('IMG')">     </td>
    </tr>
    <!--
	<tr>
		<td>标题图片：</td>
		<td><select name="d_picture" size=1><option value=''>无</option></select> 当编辑区有插入图片时，将自动填充此下拉框</td>
	</tr>
	-->
    <tr bgcolor="#FFFFFF"> 
      <td width="100" rowspan="2"><p>资讯内容：</p>
        <p><BR>
          <font color="#ff6600">不支持WML标签。</font></p>
        <p><font color="#ff6600">支持<a href="Help.asp">UBB标签</a>。</font></p></td>
      <td valign="top"> <textarea name="d_content" cols="90" rows="17" id="d_content"></textarea> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td valign="top"><iframe name="Upload" frameborder="0" width="95%" height="80" scrolling="yes" src="uploadfile.asp"></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

%>