📄 lmpl.asp

📁 宁波娱乐在线城市,丰富的内容版块

💻 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("332|"&Request.Form("sLM1")&"|"&Request.Form("sLM2")&"|"&Request.Form("sLB"))
         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>
</HEAD>
<BODY background=../images/bjxt.gif>
<form name=fLMPL method="POST" action="lmpl.asp">
<span class="p9">　　　将栏目&nbsp;&nbsp;<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>
转移至 
<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="sLB" class="p9">
  <option value="0" selected>之上</option>
  <option value="1">之下</option>
</select>
<input type="submit" name="bQD" value="确定" class="TButton">
</span>
</form>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -