newsadd4.asp

21世纪人才www.51zy.net 网站源码

<!--#include virtual = "/Include/DBClass.inc.asp"-->
<!--#include virtual = "/Include/SysLoginCheck.inc.asp" -->

<%
Call Header("增加新闻")
Call Content()
Call Footer()

Sub GetNewsCata()
	Dim cRs, cSql, i, TempCataStr
	Set cRs = Server.CreateObject( "ADODB.Recordset" )
	cSql = "SELECT * FROM NewsCata ORDER BY C_RootID"
	cRs.Open cSql, oConn, 1, 3
  
	Do While Not cRs.EOF	

		TempCataStr = "<option value='"&Trim(cRs("C_RootID"))&"'"
		If Len(cRs("C_RootID")) = 1 Then TempCataStr = TempCataStr& " style='color:#FF0000'" 
		TempCataStr = TempCataStr&">&nbsp;|"
		
		For i=1 To Int(Len(Trim(cRs("C_RootID")))/4)
			TempCataStr = TempCataStr&"&nbsp;|"
		Next
		
		TempCataStr = TempCataStr&"_"&Trim(cRs("C_Title"))&"</option>"
		Response.Write TempCataStr
			
	cRs.MoveNext
	Loop 
  	cRs.Close
  	Set cRs = Nothing
End Sub

' 开始写入内容
Sub Content()
%>
<!--#include virtual ="/Include/Top.asp" -->
<br>
<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_cataid.value==""){
			alert("请选择一个新闻类别！");
			document.myform.d_cataid.focus();
			return false;
		}
		
		if (document.myform.d_cataid.value.length < 5){
			alert("根目录不允许发布信息！");
			document.myform.d_cataid.focus();
			return false;
		}
		
		if (document.myform.d_title.value==""){
			alert("新闻标题不能为空！");
			document.myform.d_title.focus();
			return false;
		}
		// getHTML()为eWebEditor自带的接口函数，功能为取编辑区的内容
		if (eWebEditor1.getHTML()==""){
			alert("新闻内容不能为空！");
			return false;
		}
		return true;
//		document.myform.submit();
	}
</Script>
<link href="/style/admin.css" rel="stylesheet" type="text/css">

<form action="NewsAddSave.asp" method="post" name="myform" onSubmit="return doSubmit();">
<% '取保存的方件名，如果不要带路径的填充下拉框，可以在下面的表单项加入onchange事件 %>
<input type=hidden name=d_savefilename>
<% '取保存的文件名（带路径），使用带路径的填充下拉框 %>
<input type=hidden name=d_savepathfilename onchange="doChange(this,document.myform.d_picture)">

<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25"><b><% = Homepage_title%> - <font color="#FF0000">发布新闻</font></b></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" align="center" cellspacing="2" cellpadding="2">
      <tr>
        <td width="65">新闻类别：</td>
        <td>
          <select name="d_cataid" size="1" style="background-color:#ECF3FF;">
            <option value="">--&gt; 请选择 &lt;--</option>
<option value='A0018'>&nbsp;|&nbsp;|_企业文化</option></select>
        </td>
      </tr>
      <tr>
        <td>新闻标题：</td>
        <td><input type="text" name="d_title" size="67" class="button1"></td>
      </tr>
      <tr>
        <td valign="top">图片附件：</td>
        <td><select name="d_picture" size="1"  style="background-color:#ECF3FF;"><option value=''>无</option></select> 
          <font color="#FF0000">将自动填充此下拉框。</font></td>
      </tr>
      <tr>
        <td valign="top">新闻内容：</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td colspan="2" valign="top">
          <textarea name="d_content" style="display:none"></textarea>
          <iframe ID="eWebEditor1" src="../WebEditor/ewebeditor.asp?id=d_content&style=s_newssystem&savefilename=d_savefilename&savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>        </td>
      </tr>
      <tr>
        <td>新闻来源：</td>
        <td><input type="text" name="d_from" size="67" class="button1"></td>
      </tr>
      <tr>
        <td>推荐新闻：</td>
        <td><input type="checkbox" name="d_special" value="1">是否特别新闻，如果是请打钩。</td>
      </tr>
      <tr>
        <td>阅读权限：</td>
        <td>
          <select name="d_permission" size="1" style="background-color:#ECF3FF;">
            <option value='0' selected>--允许所有人查看--</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>
          <font color="#FF0000">注意事项：</font></td>
        <td><font color="#FF0000">以上新闻标题和新闻内容必须填写，其他可以不填。</font></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>
          <input type="submit" name="btnSubmit" value=" 提 交 " class="button2">
		  &nbsp;&nbsp;<input type="reset" name="btnReset" value=" 重 填 " class="button2">
        </td>
      </tr>
    </table></td>
  </tr>
</table>
</form>
<p>&nbsp;</p>
<%
End Sub
%>