⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_articleadd.asp

📁 大榕树网络文章管理系统
💻 ASP
字号:
🔍 
<%
Option Explicit
Response.buffer=true
const purviewlevel=5
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/webconfig.asp" -->
<!--#include file="admin_Function.asp" -->
<%
dim bigclass,bigclassid,smallclass,smallclassid,special,rsbig,rssmall,rsspe,count,errmsg
set rsbig=conn.Execute("select * from bigclass order by bigclassid desc")
if rsbig.bof or rsbig.eof then
errmsg=errmsg + "<br><br><li>还没有大类栏目，不能发表文章！</li>"
errmsg=errmsg + "<br><br><li>请添加大类栏目与小类栏目后再添加文章：［<a href='admin_ClassBigAdd.asp'>添加大类栏目</a>］</li>"
errmsg=errmsg + "<br><br>"
call closeconn()
call ShowErrMsg()
else
set rssmall=conn.execute("select * from smallclass order by smallclassid asc")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加新文章</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language = javascript>
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rssmall.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rssmall("smallclass"))%>","<%= trim(rssmall("bigclass"))%>","<%= trim(rssmall("smallclass"))%>");
        <%
        count = count + 1
        rssmall.movenext
        loop                
        %>
onecount=<%=count%>;
function changelocation(locationid)
    {
    document.myform.smallclass.length = 1; 
    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.smallclass.options[document.myform.smallclass.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
    }    
function CheckForm()
{
  if (editor.EditMode.checked==true)
	  document.myform.Content.value=editor.HtmlEdit.document.body.innerText;
  else
	  document.myform.Content.value=editor.HtmlEdit.document.body.innerHTML; 

  if (document.myform.title.value=="")
  {
    alert("文章标题不能为空！");
	return false;
  }
  if (document.myform.updatetime.value=="")
  {
    alert("文章发表时间不能为空！");
	return false;
  }
     if (document.myform.author.value=="")
  {
    alert("文章作者不能为空！");
	return false;
  }
     if (document.myform.copyfrom.value=="")
  {
    alert("文章来源不能为空！");
	return false;
  }
    if (document.myform.bigclass.value=="")
  {
    alert("文章所属大类栏目不能为空！");
	return false;
  }
   if (document.myform.smallclass.value=="")
  {
    alert("文章所属小类栏目不能为空！");
	return false;
  }
  if (document.myform.textkey.value=="")
  {
    alert("关键字不能为空！");
	return false;
  }
  if (document.myform.Content.value=="")
  {
    alert("文章内容不能为空！");
	return false;
  }
  if (document.myform.textclass.value=="")
  {
    alert("文章阅读等级不能为空！");
	return false;
  }
   if (document.myform.Content.value.length>2048000)
  {
    alert("文章内容太长，超出了ACCESS数据库的限制（2048K）！建议将文章分成几部分录入。");
	return false;
  }
  return true;  
}
function loadForm()
{
  editor.HtmlEdit.document.body.innerHTML=document.myform.Content.value;
  return true;
}

</script>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</head>

<body onLoad="javascipt:setTimeout('loadForm()',1000);">
<form name="myform" method="post" action="admin_ArticleSave.asp" onSubmit="return CheckForm();" >
  <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#f5f8f5" class="border">
    <tr>
      <td align="center" class="txt1">欢迎添加新文章（带<span class="style1">*</span>号必填）</td>
    </tr>
    <tr>
      <td class="txt05">文章标题：
        <input name="title" type="text" class="but" id="title" size="40" maxlength="255">
        <span class="style1">*</span>上传时间：
      <input name="updatetime" type="text" class="but" id="updatetime" value="<%=now()%>" size="18" maxlength="20">
      <span class="style1">*</span></td>
    </tr>
    <tr>
      <td class="txt05">文章作者：
        <input name="author" type="text" class="but" id="author" size="15" maxlength="50">        ←
        <span class="style1">
<select name="select" class="but" onchange="author.value=this.value">
          <option>请选择</option>
          <option value="原创">原创</option>
          <option value="佚名">佚名</option>
          <option value="网友">网友</option>
        </select>
*</span>文章编辑：
        <input name="editor" type="text" class="but" id="editor" value="<%=session("adminname")%>" size="10" maxlength="20">
      文章来源：
      <input name="copyfrom" type="text" class="but" id="copyfrom" value="<%=webName%>" size="20" maxlength="255">
      <span class="style1">*</span></td>
    </tr>
    <tr>
      <td class="txt05">所属栏目：
        <select name="bigclass" class="but" id="bigclass" onChange="changelocation(document.myform.bigclass.options[document.myform.bigclass.selectedIndex].value)">
          <option value="">请选择所属大类</option>
		   <%do while not rsbig.eof %>
          <option value="<%=rsbig("bigclass")%>"><%=rsbig("bigclass")%></option>
		 <%rsbig.movenext
		   loop
		   rsbig.close
		   set rsbig=nothing
		   %>
        </select>
        <span class="style1">*</span>        <select name="smallclass" class="but" id="smallclass" >
          <option value="">请选择所属小类</option>
		  <%if rssmall.bof or rssmall.bof then%>
		  <option value="">没有所属小类</option>
		  <%else%>
		  <%do while not rssmall.eof %>
		  <option value="<%=rssmall("smallclass")%>"><%=rssmall("smallclass")%></option>
		  <% rssmall.movenext
		  loop
		  end if
		  end if
		  rssmall.close
		  set rssmall=nothing
		  %>
        </select>
		<span class="style1">*</span>		<%set rsspe=conn.execute("select * from special order by specialid desc")%>
      所属专题：
      <select name="special" class="but" id="special">
        <option value="">请选择所属专题</option>
		<%if rsspe.bof or rsspe.eof then%>
		<option value="">还没有专题</option>
		<%else%>
		<%do while not rsspe.eof %>
		<option value="<%=rsspe("special")%>"><%=rsspe("special")%></option>
		<%rsspe.movenext
		loop
		end if
		rsspe.close
		set rsspe=nothing
		call closeconn()
		%>
      </select></td>
    </tr>
    <tr>
      <td class="txt05">关键字：
        <input name="textkey" type="text" class="but" id="textkey" maxlength="50">
        <span class="style1">*</span>用于查找该文章　</td>
    </tr>
    <tr>
      <td class="txt05">转向链接地址：
      <input name="urlto" type="text" class="but" id="urlto" size="50" maxlength="255"></td>
    </tr>
    <tr>
      <td class="txt05">  文件上传： 
        <iframe class="TBGen" style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="300" height="20"></iframe>
（可以是图片SWF或附件）</td>
    </tr>
    <tr>
      <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="12%" class="txt05"><p>文章内容：<span class="style1">*</span></p>
            <p>最好保持默认的字体大小</p></td>
            <td width="88%"><textarea name="Content" style="display:none"></textarea> 
              <iframe ID="editor" src="../editor.asp" frameborder=1 scrolling=no width="700" height="465"></iframe> &nbsp;</td>
          </tr>
      </table></td>
    </tr>
    <tr>
      <td class="txt05">是否包含图片
        <input name="includepic" type="checkbox" id="includepic" value="yes">
        首页图片地址：
          <input name="defaultpic" type="text" class="but" id="defaultpic" size="40" maxlength="255">
          <br>请选择首页图片地址：<select name="DefaultPicList" class="but" id="DefaultPicList" onChange="defaultpic.value=this.value;">
            <option>请选择首页图片地址</option>
      </select><input name="uploadfiles" type="hidden" id="uploadfiles2">      </td></tr>
    <tr>
      <td class="txt05">选择分页方式：
        <select name="pageno" class="but" id="pageno">
          <option value="1">不分页</option>
          <option value="2">自动分页</option>
          <option value="3">手动分页</option>
            </select>
      手动分页请在编辑文章时插入<span class="txt04">pageNo</span>字符，注意<span class="txt04">大小写</span>,如是WORD文档或有图片，建议选择此项或选择不分页。</td>
    </tr>
    <tr>
      <td class="txt05">文章属性：
        <input name="ontop" type="checkbox" id="ontop" value="1">
      固顶　
      <input name="elite" type="checkbox" id="elite" value="2">
      推荐　
      <input name="hot" type="checkbox" id="hot" value="3" onclick="javascript:document.myform.hits.value=<%=ArticleHots%>">
      精华</td>
    </tr>
    <tr>
      <td class="txt05">文章级别：
        <select name="textclass" class="but" id="textclass">
          <option value="">请选择文章阅读级别</option>
          <option value="0">一般游客</option>
          <option value="1">注册用户</option>
          <option value="2">普通会员</option>
		  <option value="3">中级会员</option>
          <option value="4">高级会员</option>
          <option value="5">特级会员</option>
        </select>
        <span class="style1">*</span>文章点击数：
        <input name="hits" type="text" class="but" id="hits" value="0" size="10" maxlength="18"></td>
    </tr>
		<tr>
      <td height="30" class="txt05">版权信息：
        <select name="copyright" class="but" id="copyright">
          <option value="可以任意转载，但需保留<%=webtext%>">可以任意转载，但需保留<%=webtext%>信息</option>
          <option value="可以任意转载，但需保留原作者信息">可以任意转载，但需保留原作者信息</option>
          <option value="如转载需经作者同意">如转载需经作者同意</option>
          <option value="如转载需经<%=webtext%>">如转载需经<%=webtext%>同意</option>
		   <option value="如转载需经<%=webtext%>和原作者同意">如转载需经<%=webtext%>和原作者同意</option>		  
          <option value="本文来自网络，可以任意转载">本文来自网络，可以任意转载</option>
          <option value="本文来自网络，可以任意转载，但需保留出处">本文来自网络，可以任意转载，但需保留出处</option>
          <option value="可以任意转载">可以任意转载</option>
        </select>
        <font color="#FF6600">*</font>请确认该文章的版权
</td>
    </tr>
    <tr>
      <td class="txt05">是否允许评论：
      <input name="yescomment" type="checkbox" id="yescomment" value="yes"></td>
    </tr>
    <tr>
      <td class="txt05">通过审核：
      <input name="passed" type="checkbox" id="passed" value="ok" checked="checked">
      最后修改时间：
      <input name="edittime" type="text" class="but" id="edittime" value="<%=Date()%>" size="18" maxlength="20">
      保持时间的格式不要更改</td>
    </tr>
    <tr>
      <td align="center"><input name="Submit" type="submit" class="but" value="提交">
      <input name="Submit2" type="reset" class="but" value="重置"></td>
    </tr>
  </table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -