📄 ltpl.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("325|"&Request.Form("sLT1")&"|"&Request.Form("sLT2")&"|"&Request.Form("sLB"))
         if GetPart(ret,1) <> "0" then
             ShowError 5,GetPart(ret,2)
         else
             ShowMessage 5,"论坛已被移动！"
         end if
    end if             
    LM = CommandEx("329|")
    if GetPart(LM(0),2) <> "0" then 
        if Request.QueryString("LM") = "" then
            LMID = GetPart(LM(1),1)
        else
            LMID = Request.QueryString("LM")
        end if        
        ret = CommandEx("320|"&LMID&"|1")
    else
        Response.End
    end if        

%>
<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 fLTPL_onsubmit() {
    if (fLTPL.sLT1.value == fLTPL.sLT2.value) {
        window.alert('对不起，请不要对相同论坛操作！');
        return(false);
    }    
    return(window.confirm('真的要移动吗？'));
}

function sLM_onchange() {
    location.replace('ltpl.asp?LM='+fLTPL.sLM.value);
}
//-->
</SCRIPT>
</HEAD>
<BODY background=../images/bjxt.gif>
<form name=fLTPL method="POST" action="ltpl.asp?LM=<%=LMID%>" LANGUAGE=javascript onsubmit="return fLTPL_onsubmit()">
<span class="p9">　　　栏　目&nbsp;&nbsp;<select class=p9 name=sLM LANGUAGE=javascript onchange="return sLM_onchange()">
<%
 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></span>
<br>
<br>
<span class="p9">　　　将论坛&nbsp;&nbsp;<select name="sLT1" class=p9>
<%
  for i=1 to UBound(ret)
      if GetPart(ret(i),1) = "" then
          exit for
      end if    
      Response.Write("<option value="&GetPart(ret(i),1)&">"&GetPart(ret(i),2)&"</option>")
  next    
   
   %>
</select>
转移至 
<select name="sLT2" class="p9">
<%
  for i=1 to UBound(ret)
      if GetPart(ret(i),1) = "" then
          exit for
      end if    
          Response.Write("<option value="&GetPart(ret(i),1)&">"&GetPart(ret(i),2)&"</option>")
  next    
   
   %>
</select>
<select name="sLB" class="p9">
  <option value="0">之上</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 + -