📄 ltxg.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
        if Request.Form("bXG") = "修改" then
            ret = Command("116|"&Request.Form("tID")&"|"&Request.Form("tBZ"))
            if Int(Request.Form("cJB")) = 1 then  
                ret = Command("309|"&Request.Form("tID"))
            else
                ret = Command("137|"&Request.Form("tID"))
            end if        
        end if
        if Request.Form("bSC") = "删除" then
            ret = Command("308|"&Request.Form("tID"))
        end if   
    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}
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 sLM_onchange() {
    location.replace('ltxg.asp?LM='+sLM.value);
}

function ShowLTZL(id) {
     l = screen.width/2-450/2;
     t = screen.height/2-310/2;
     window.open('../ltgl.asp?ID='+id,'fLTGL','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=310,left='+l+',top='+t);
}

//-->
</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="10%"> 
      <div align="center"><font color="#FFFFFF">修改</font></div>
    </td>
    <td class="p9" height="18" width="10%"> 
      <div align="center"><font color="#FFFFFF">删除</font></div>
    </td>
    <td class="p9" height="18" width="5%"> 
      <div align="center"><font color="#FFFFFF">禁闭</font></div>
    </td>
    <td class="p9" height="18" width="30%"> 
      <div align="center"><font color="#FFFFFF">论坛名</font></div>
    </td>
    <td class="p9" height="18" width="25%"> 
      <div align="center"><font color="#FFFFFF">版主</font></div>
    </td>
    <td class="p9" height="18" width="10%"> 
      <div align="center"><font color="#FFFFFF">主题数</font></div>
    </td>
    <td class="p9" height="18" width="10%"> 
      <div align="center"><font color="#FFFFFF">访问数</font></div>
    </td>
  </tr>
<%
    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)
        if GetPart(ret(0),1) = "0" then
          for i=1 to UBound(ret)
              if GetPart(ret(i),1) = "" then
                  exit for
              end if    
              Response.Write("<form name=fLTXX method=POST action=ltxg.asp?LM="&LMID&">")
              if (i mod 2) = 0 then
                  Response.Write("<tr class=p9 bgcolor=#e0eefc>")
              else    
                  Response.Write("<tr class=p9 bgcolor=#FFFFFF>")
              end if  
              Response.Write("<td class=p9 height=18 width=10% ><div align=center class=p9><input type=submit name=bXG class=TButtonSubmit value=修改></div></td>")
      
              Response.Write("<td width=10%  align=middle><input type=submit name=bSC class=TButtonSubmit value=删除></td>")
              if GetPart(ret(i),9) = "3" then
                  Response.Write("<td width=5%  align=middle><input type=checkbox name=cJB value=1 class=Tcheckbox checked></td>")
              else
                  Response.Write("<td width=5%  align=middle><input type=checkbox name=cJB value=1 class=Tcheckbox></td>")
              end if
              Response.Write("<td width=30% ><A href=javascript:ShowLTZL("&GetPart(ret(i),1)&")>"&GetPart(ret(i),2)&"</A></td>")
              Response.Write("<td width=25% align=center><input name=tBZ value="&GetPartEx(GetPart(ret(i),4)," ",1)&" class=p9><input type=hidden name=tID value='"&GetPart(ret(i),1)&"'></td>")
              Response.Write("<td width=10% align=center>"&GetPart(ret(i),5)&"</td>")
              Response.Write("<td width=10% align=center>"&GetPart(ret(i),6)&"</td>")
              Response.Write("</tr></form>")
          next    
      end if
   end if   
 %>     
  <tr bgcolor="#336699"> 
    <td class="p9" height="30" colspan="7">
 <table width="100%" border="0" cellpadding="2" cellspacing="0" class=p9>
  <tr>
    <td width="50%">
    <font color=white>栏目选择：</font><select name="sLM" class="p9" 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>    
    </td>
    <td width="50%">
    <input type="reset" name="bCT" value="重填" class="TButton" style="BACKGROUND-COLOR: #336699; BORDER: buttonhighlight 1px solid;COLOR: white">
    </td>
  </tr>
</table>
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -