⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ncgl.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("bZJ") = "增加 >" then
            ret = Command("132|"&Request.Form("tGLNC"))
        else
            ret = Command("133|"&Request.Form("sGLMD"))
        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}
.TButton {  font-family: "宋体"; font-size: 9pt;cursor:hand;HEIGHT: 22px; WIDTH: 66px}
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=fNCGL method="POST" action="ncgl.asp">
<table width="80%" border="0" cellpadding="0" cellspacing="0" align="center">
  <tr>
    <td class="p9" width="30%"> 
      <p align="center">请输入过滤昵称:</p>
      <p align="center"> 
        <input type="text" name="tGLNC" maxlength="10" size="20" class=p9>
      </p>
    </td>
    <td width="30%"> 
      <p align="center"> 
         <input type="submit" class="TButton" name="bZJ" value="增加 >" >
      </p>
      <p align="center"> 
         <input type="submit" class="TButton" name="bSC" value="< 删除" >
      </p>
    </td>
    <td width="40%"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="p9" height="20">
            <div align="left"><span class="p9">过滤名单列表:</span></div>
          </td>
        </tr>
        <tr> 
          <td class="p9">
            <select name="sGLMD" size="15" class="p9" multiple style="width:200px">
                   <%
                       ret = CommandEx("131|")
                       if GetPart(ret(0),1) = "0" then
                           for i=1 to Int(GetPart(ret(0),2))
                               if ret(i) = "" then exit for
                               Response.Write("<OPTION value='"&ret(i)&"'>"&ret(i)&"</OPTION>")
                           next
                       end if        
                   %>
            
            </select>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="80%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr><td class=p9>会员注册时所使用的昵称将不能包含过滤名单中的名字。</td></tr>
</table>
</form>
</body>
</html>

⌨️ 快捷键说明

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