📄 lmhb.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
ret = Command("345|"&Request.Form("sLM1")&"|"&Request.Form("sLM2"))
if GetPart(ret,1) <> "0" then
ShowError 5,GetPart(ret,2)
else
ShowMessage 5,"栏目已合并!"
end if
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}
.TButton { font-family: "宋体"; font-size: 9pt;cursor:hand;width:66px;height:22px}
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}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function bQD_onclick() {
if (window.confirm('真的要合并吗?(该操作不可恢复)')) {
fLMHB.submit();
}
}
//-->
</SCRIPT>
</head>
<body background=../images/bjxt.gif>
<form name=fLMHB method="POST" action="lmhb.asp">
<span class="p9"> 将栏目 <select name="sLM2" class=p9>
<%
for i=1 to Int(GetPart(LM(0),2))
if LM(i) = "" then exit for
Response.Write("<OPTION value="&GetPart(LM(i),1)&" "&IIF(GetPart(LM(i),1)=LMID,"selected","")&">"&GetPart(LM(i),2)&"</OPTION>")
next
%>
</select>
合并到
<select name="sLM1" class="p9">
<%
for i=1 to Int(GetPart(LM(0),2))
if LM(i) = "" then exit for
Response.Write("<OPTION value="&GetPart(LM(i),1)&" "&IIF(GetPart(LM(i),1)=LMID,"selected","")&">"&GetPart(LM(i),2)&"</OPTION>")
next
%>
</select>
<input type="button" name="bQD" value="确定" class="TButton" LANGUAGE=javascript onclick="return bQD_onclick()">
</span>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -