📄 lmxg.asp
字号:
<!--#include file="ADMINLib.asp"-->
<%
if (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) or (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") then
Response.Write("对不起,您不是管理员!")
Response.End
end if
if Request.ServerVariables("Request_Method") = "POST" then
select case Int(Request.QueryString("ACT"))
case 1
ret = Command("330|"&Request.QueryString("ID")&"|"&Request.Form("tXX")&"|"&IIF(Int(Request.Form("cBZ")) = 1,"1","0"))
if GetPart(ret,1) <> "0" then
ShowError 5,GetPart(ret,2)
else
ShowMessage 5,"栏目信息已修改!"
end if
case 2
ret = Command("331|"&Request.Form("tXX"))
if GetPart(ret,1) <> "0" then
ShowError 5,GetPart(ret,2)
else
ShowMessage 5,"栏目已添加!"
end if
end select
end if
LM = CommandEx("329|")
%>
<html>
<head>
<title>栏目修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p9 { font-family: "宋体"; font-size: 9pt}
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}
.TButton { font-family: "宋体"; font-size: 9pt;cursor:hand;width:66px;height:22px}
.TButtonSubmit { font-family: "宋体"; font-size: 9pt;cursor:hand;width:50px;height:18px}
A:link{font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:9pt;COLOR: red; TEXT-DECORATION: underline}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function bTJ_onclick() {
if (fLMTJ.tXX.value == '') {
window.alert('请输入栏目名称!');
return;
}
if(window.confirm('您真的要添加该栏目吗?')) {
fLMTJ.submit();
}
}
//-->
</SCRIPT>
</head>
<body background=../images/bjxt.gif>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class=p9>
<tr>
<td>请修改栏目名称或允许论坛申请标记后,点“修改”按钮。
</td>
</tr>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#777777">
<tr bgcolor="#336699">
<td class="p9" height="18" width="20%">
<div align="center"><font color="#FFFFFF">修改</font></div>
</td>
<td class="p9" height="18" width="40%">
<div align="center"><font color="#FFFFFF">允许论坛申请</font></div>
</td>
<td class="p9" height="18" width="40%">
<div align="center"><font color="#FFFFFF">栏目名称</font></div>
</td>
</tr>
<%
for i=1 to Int(GetPart(LM(0),2))
if LM(i) = "" then exit for
Response.Write("<tr bgcolor=#ffffff>")
Response.Write("<form name=fLMXG method=POST action=lmxg.asp?ACT=1&ID="&GetPart(LM(i),1)&">")
Response.Write("<td class=p9 height=20 width=20% >")
Response.Write("<div align=center><input type=submit name=bXG class=TButtonSubmit value=修改></div></td>")
Response.Write("<td class=p9 height=20 width=4% ><div align=center><input type=checkbox name=cBZ value=1 class=Tcheckbox "&IIF(GetPart(LM(i),3)="1","checked","")&"></div></td>")
Response.Write("<td class=p9 height=20 width=40% >")
Response.Write("<div align=center><input type=text class=p9 size=35 name=tXX value='"&GetPart(LM(i),2)&"' ></div></td></form></tr>")
next
%>
<tr bgcolor="#336699">
<td class="p9" height="30" colspan="3">
<table width="100%" border="0" cellpadding="2" cellspacing="0" class=p9>
<tr>
<form name=fLMTJ method=POST action=lmxg.asp?ACT=2>
<td align=center>
<font color=white>请输入栏目名称:</font><input type="text" name=tXX class=p9>
<input type="button" name="bTJ" value="添加" class="TButton" style="BACKGROUND-COLOR: #336699; BORDER: buttonhighlight 1px solid;COLOR: white" LANGUAGE=javascript onclick="return bTJ_onclick()">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -