📄 admin_classbigmon.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="admin_Function.asp"-->
<%
dim bigclassid,newbigclass,newbmanager,newbigintr,rsbig,bigmon,oldbig,SuccessMsg,errmsg
bigclassid=trim(request("bigclassid"))
if bigclassid="" then
call closeconn()
response.redirect("admin_ClassMan.asp")
end if
bigmon=trim(request.form("bigmon"))
newbigclass=trim(request.form("newbigclass"))
newbmanager=trim(request.form("newbmanager"))
newbigintr=trim(request.form("newbigintr"))
oldbig=trim(request.form("oldbig"))
if bigmon="monbig" then
set rsbig=conn.execute("select * from bigclass where bigclass='"&newbigclass&"'")
if rsbig.eof or rsbig.bof then
conn.execute"update bigclass set bigclass='"&newbigclass&"',bigintr='"&newbigintr&"',bmanager='"&newbmanager&"' where bigclassid="&bigclassid&""
conn.execute"update smallclass set bigclass='"&newbigclass&"' where bigclass='"&oldbig&"'"
conn.execute"update article set bigclass='"&newbigclass&"' where bigclass='"&oldbig&"'"
rsbig.close
set rsbig=nothing
call closeconn()
SuccessMsg=SuccessMsg + "<br><br><li>栏目更改成功！</li>"
SuccessMsg=SuccessMsg + "<br><br><li>你可以：［<a href='admin_ClassMan.asp'>返回栏目管理面板</a>］</li>"
call ShowSuccessMsg()
else
rsbig.close
set rsbig=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>栏目更改失败！</li>"
errmsg=errmsg + "<br><br><li>相同的栏目存在！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_ClassMan.asp'>返回栏目管理面板</a>］</li>"
call ShowErrMsg()
end if
end if
%>
<%
dim rs
set rs=server.createobject("ADODB.Recordset")
rs.open"select * from bigclass where bigclassid="&bigclassid&"",conn,1,1
%>
<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.newbigclass.value=="")
{
alert("大类栏目不能为空！");
return false;
}
if(document.form1.newbmanager.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="admin_ClassBigMon.asp?bigclassid=<%=rs("bigclassid")%>" onsubmit="return checkform();">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td align="right" class="txt05">大类栏目ID号：</td>
<td><%=rs("bigclassid")%> </td>
</tr>
<tr>
<td width="45%" align="right" class="txt05">大类栏目名称：</td>
<td width="55%"><input name="newbigclass" type="text" class="but" id="newbigclass" value="<%=rs("bigclass")%>" maxlength="30"></td>
</tr>
<tr>
<td align="right" class="txt05">大类简介：</td>
<td><input name="newbigintr" type="text" class="but" id="newbigintr" value="<%=rs("bigintr")%>" size="40" maxlength="100"></td>
</tr>
<tr>
<td align="right" class="txt05">管理员名称：</td>
<td><input name="newbmanager" type="text" class="but" id="newbmanager" value="<%=rs("bmanager")%>" maxlength="50"></td>
</tr>
<tr align="center">
<td colspan="2" class="txt05"><input name="Submit" type="submit" class="but" value="修改">
<input name="bigmon" type="hidden" id="bigmon" value="monbig">
<input name="oldbig" type="hidden" id="oldbig" value="<%=rs("bigclass")%>"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -