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

📄 admin_bbsclamod.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 action
action=trim(request.form("action"))
if action="add" then
dim bbsid,bbsclass,bbstext,bbsimg,bbsadmin,bbsupdate,islock,rsbbs,oldbbsclass
dim errmsg,successmsg
bbsid=trim(request("bbsid"))
bbsclass=trim(request.form("bbsclass"))
bbstext=trim(request.form("bbstext"))
bbsimg=trim(request.form("bbsimg"))
bbsadmin=trim(request.form("bbsadmin"))
bbsupdate=trim(request.form("bbsupdate"))
islock=trim(request.form("islock"))
oldbbsclass=trim(request.form("oldbbsclass"))

set rsbbs=server.createobject("ADODB.Recordset")
rsbbs.open"select * from bbsclass where bbsid="&bbsid&"",conn,1,3
rsbbs("bbsclass")=bbsclass
rsbbs("bbstext")=bbstext
rsbbs("bbsimg")=bbsimg
rsbbs("bbsadmin")=bbsadmin
rsbbs("bbsupdate")=bbsupdate
if islock="yes" then
rsbbs("islock")=true
else
rsbbs("islock")=false
end if
rsbbs.update
rsbbs.close
set rsbbs=nothing
conn.execute"update userbook set bbsclass='"&bbsclass&"'where bbsclass='"&oldbbsclass&"'"
conn.execute"update reuserbook set bbsclass='"&bbsclass&"'where bbsclass='"&oldbbsclass&"'"
call closeconn()
successmsg=successmsg + "<br><br><li>修改栏目成功!</li>"
successmsg=successmsg +"<br><br><li>你可以:[<a href='admin_BbsClaMan.asp'>栏目管理</a>]</li>"
successmsg=successmsg +"<br><br><li>[<a href='admin_BbsManage.asp'>返回主题管理</a>]</li>"
call ShowSuccessMsg()


end if
%>
<%
dim rsmod
set rsmod=server.createobject("Adodb.Recordset")
rsmod.open"select * from bbsclass where bbsid="&trim(request("bbsid"))&"",conn,1,1
if rsmod.eof or rsmod.bof then
call closeconn()
errmsg=errmsg + "<br><br><li>找不到栏目!</li>"
errmsg=errmsg + "<br><br><li>你可以:[<a href='admin_BbsClaMan.asp'>栏目管理</a>]</li>"
errmsg=errmsg + "<br><br><li>[<a href='admin_BbsManage.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 OpenWindow(url)
{
window.open(url,"_blank","height=200,width=350,top=180,left=200,titlebar=no,directories=no,status=no,toolbar=no,menubar=no,location=no,scrollbars=no");
}
function checkform()
{
if(document.form1.bbsclass.value=="")
{
alert("栏目不能为空!");
return false;
}
if(document.form1.bbstext.value=="")
{
alert("栏目说明不能为空!");
return false;
}
if(document.form1.bbsimg.value=="")
{
alert("栏目图片不能为空!");
return false;
}
if(document.form1.bbsadmin.value=="")
{
alert("栏目管理员不能为空!");
return false;
}
if(document.form1.bbsupdate.value=="")
{
alert("栏目添加时间不能为空!");
return false;
}
}
</script>
</head>

<body>
<table width="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" class="txt1">欢迎修改BBS栏目</td>
  </tr>
  <tr>
    <td align="center" class="tbbgtitle">[<a href="admin_BbsClaMan.asp">栏目管理</a>][<a href="admin_BbsManage.asp">主题管理</a>](带<span class="txt06">*</span>必填)</td>
  </tr>
  <tr>
    <td><form name="form1" method="post" action="" onsubmit="return checkform();">
      <table width="99%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="F5F8F5" class="border">
        <tr>
          <td width="35%" align="right" class="txt05">栏目名称:</td>
          <td width="65%"><input name="bbsclass" type="text" class="but" id="bbsclass" value="<%=rsmod("bbsclass")%>" size="30" maxlength="50">
            <span class="txt06">*</span></td>
        </tr>
        <tr>
          <td align="right" class="txt05">栏目简介:</td>
          <td><input name="bbstext" type="text" class="but" id="bbstext" value="<%=rsmod("bbstext")%>" size="50" maxlength="255">
            <span class="txt05"><span class="txt06">*</span></span> </td>
        </tr>
        <tr>
          <td align="right" class="txt05">栏目图片地址:</td>
          <td class="txt05"><input name="bbsimg" type="text" class="but" id="bbsimg" value="<%=rsmod("bbsimg")%>" size="40" maxlength="255">
            <span class="txt06">*</span>请不要为空</td>
        </tr>
        <tr>
          <td align="right" class="txt05">上传图片(最好为80×60):</td>
          <td class="txt05">[<a href="#" onclick="OpenWindow('FlaUpload.asp');">图片上传</a>](只能是swf、bmp、jpg、gif格式,否则不能正常显示)</td>
        </tr>
        <tr>
          <td align="right" class="txt05">栏目管理员:</td>
          <td><input name="bbsadmin" type="text" class="but" id="bbsadmin" value="<%=rsmod("bbsadmin")%>" size="30" maxlength="50">
            <span class="txt06">*</span></td>
        </tr>
        <tr>
          <td align="right" class="txt05">添加时间:</td>
          <td><input name="bbsupdate" type="text" class="but" id="bbsupdate" value="<%=rsmod("bbsupdate")%>" maxlength="50">
            <span class="txt06">*</span> <span class="txt05">注意不要更格式</span></td>
        </tr>
        <tr>
          <td align="right" class="txt05">是否锁定:</td>
          <td><input name="islock" type="checkbox" class="but" id="islock" value="yes"></td>
        </tr>
        <tr align="center">
          <td colspan="2" class="tbbgtitle"><input name="Submit" type="submit" class="but" value="修改">
            <input name="action" type="hidden" id="action" value="add">
            <input name="oldbbsclass" type="hidden" id="oldbbsclass" value="<%=rsmod("bbsclass")%>"></td>
          </tr>
      </table>
    </form></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
end if
rsmod.close
set rsmod=nothing
call closeconn()
%>

⌨️ 快捷键说明

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