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

📄 admin_articlemod.asp

📁 大榕树网络文章管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=5
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/webconfig.asp" -->
<%
dim articleid,armod,rsarid
articleid=trim(request("articleid"))
armod=trim(request("armod"))
if armod="" then
response.redirect("admin_ArticleMan.asp")
response.end()
else  if armod="artmod" then
set rsarid=server.createobject("ADODB.Recordset")
rsarid.open "select * from article where articleid="&articleid&"",conn,1,3
if rsarid.eof or rsarid.bof then
response.write"链接错误或文章不存在!"
response.write"【<a href='javascript:onclick=history.go(-1)'>返回</a>】"
response.end()
else
dim bigclass,bigclassid,smallclass,smallclassid,special,rsbig,rssmall,rsspe,count
set rsbig=conn.Execute("select * from bigclass order by bigclassid desc")
if rsbig.bof or rsbig.eof then
response.write"还没有大类栏目,不能发表文章!"
response.write"【<a href='admin_BigAdd.asp'>添加大类栏目</a>】"
response.end()
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_ArticleModSave.asp?articleid=<%=rsarid("articleid")%>" onSubmit="return CheckForm();" >
  <table width="100%" border="1" align="center" 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" value="<%=rsarid("title")%>" size="40" maxlength="255">
        <span class="style1">*</span>上传时间:
      <input name="updatetime" type="text" class="but" id="updatetime" value="<%=rsarid("updatetime")%>" size="18" maxlength="20">
      <span class="style1">*</span></td>
    </tr>
    <tr>
      <td class="txt05">文章作者:
        <input name="author" type="text" class="but" id="author" value="<%=rsarid("author")%>" size="15" maxlength="50">
        <span class="style1">*</span>文章编辑:
      <input name="editor" type="text" class="but" id="editor" value="<%=rsarid("editor")%>" size="10" maxlength="20">
      文章来源:
      <input name="copyfrom" type="text" class="but" id="copyfrom" value="<%=rsarid("copyfrom")%>" 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>

⌨️ 快捷键说明

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