📄 admin_classsmaadd.asp

📁 大榕树网络文章管理系统
💻 ASP
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="admin_Function.asp"-->
<%
dim smalladd,bigclass,smallclass,smallintr,smanager,rssma,SuccessMsg,errmsg
smalladd=trim(request.form("smalladd"))
bigclass=trim(request.form("bigclass"))
smallclass=trim(request.form("smallclass"))
smallintr=trim(request.form("smallintr"))
smanager=trim(request.form("smanager"))
if smalladd="add" then
set rssma=conn.execute("select * from smallclass where smallclass='"&smallclass&"'")
if rssma.bof or rssma.bof then
conn.execute"insert into smallclass (smallclass,bigclass,smanager,smallintr) values('"&smallclass&"','"&bigclass&"','"&smanager&"','"&smallintr&"')"
rssma.close
set rssma=nothing
call closeconn()
SuccessMsg=SuccessMsg + "<br><br><li>小类栏目添加成功！</li>"
SuccessMsg=SuccessMsg + "<br><br><li>你可以：［<a href='admin_ClassSmaAdd.asp'>继续添加</a>］［<a href='admin_ClassMan.asp'>返回栏目管理面板</a>］</li>"
call ShowSuccessMsg()
else
rssma.close
set rssma=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>小类栏目已存在，请换个名称再试试！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='javascript:onclick=history.go(-1)'>返回</a>］［<a href='admin_ClassMan.asp'>返回栏目管理面板</a>］</li>"
call ShowErrMsg()
end if
end if
%>
<%
dim rsbig
set rsbig=server.createobject("ADODB.Recordset")
rsbig.open"select * from bigclass order by bigclassid desc",conn,1,1
if rsbig.eof or rsbig.bof then
rsbig.close
set rsbig=nothing
errmsg=errmsg + "<br><br><li>还没有大类栏目，请先添加大类栏目！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_ClassMan.asp'>返回栏目管理面板</a>］</li>"
call ShowErrMsg()
else
%>
<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>
function checkform()
{
if (document.form1.bigclass.value=="")
{
alert("请选择所属大类栏目！");
return false;
}
if (document.form1.smallclass.value=="")
{
alert("小类栏目不能为空！");
return false;
}
if (document.form1.smanager.value=="")
{
alert("管理员不能为空！");
return false;
}
}
</script>
</head>

<body>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" class="txt1">欢迎添加小类栏目</td>
  </tr>
  <tr>
    <td align="center" class="txt05">［<a href="admin_ClassMan.asp">返回栏目管理面板</a>］</td>
  </tr>
  <tr>
    <td><form name="form1" method="post" action="" onsubmit="return checkform();">
      <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="4">
        <tr>
          <td width="50%" align="right" class="txt05">所属大类栏目：</td>
          <td width="50%"><select name="bigclass" class="but" id="bigclass">
            <option>请选择所属的大类栏目</option>
			<%do while not rsbig.eof %>
			<option value="<%=rsbig("bigclass")%>"><%=rsbig("bigclass")%></option>
			<%
			 rsbig.movenext
			 loop
			 end if
			 rsbig.close
			 set rsbig=nothing
			 call closeconn()
			 %>
          </select></td>
        </tr>
        <tr>
          <td align="right" class="txt05">小类栏目名称：</td>
          <td><input name="smallclass" type="text" class="but" id="smallclass" maxlength="30"></td>
        </tr>
        <tr>
          <td align="right" class="txt05">简介：</td>
          <td><input name="smallintr" type="text" class="but" id="smallintr" size="40" maxlength="100"></td>
        </tr>
        <tr>
          <td align="right" class="txt05">管理员：</td>
          <td><input name="smanager" type="text" class="but" id="smanager" maxlength="50"></td>
        </tr>
        <tr align="center">
          <td colspan="2" class="txt05"><input name="Submit" type="submit" class="but" value="添加">&nbsp;
            <input name="Submit2" type="reset" class="but" value="重置">
            <input name="smalladd" type="hidden" id="smalladd" value="add"></td>
        </tr>
      </table>
    </form></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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