📄 jmlb.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="ADMINLib.asp"-->
<%
    Dim LB,PAGE,buf

    if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("<SCRIPT>alert ('对不起，您未注册，不能查看！');</SCRIPT>")
        Response.End
    end if

        if Request.QueryString("ACT") = "1" then
        
        
            for each i in Request.Form("cSC")
                buf = Command("117|"&i)
            next        
            ShowMessage 5,"用户已删除！"
        end if
    

if Request.QueryString("PAGE") = "" then
    PAGE = 1
else
    PAGE = Int(Request.QueryString("PAGE"))
end if

if Request.Form("sTJXZ") = "" then
    LB = 0
else
    LB = Request.Form("sTJXZ")
end if       

if Request.Form("tNC") = "" then
    ret = CommandEx("190|"&PAGE&"|"&LB)
    if GetPart(ret(0),1) <> "0" then
        ShowError 5,GetPart(ret(0),2)
        Response.End
    else
        if Int(GetPart(ret(0),2)) <> 0 then
            if Int(GetPart(ret(0),2)) mod 20 = 0 then
                TOTALPAGE = Int(GetPart(ret(0),2))/20
            else
                TOTALPAGE = Int(GetPart(ret(0),2))\20+1
            end if
        else
            TOTALPAGE = 1
        end if
    end if
else
    ret = CommandEx("190|"&PAGE&"|19|"&Request.Form("tNC"))
    if GetPart(ret(0),1) <> "0" then
        ShowError 5,GetPart(ret(0),2)
        Response.End
    else
        if Int(GetPart(ret(0),2)) <> 0 then
            if Int(GetPart(ret(0),2)) mod 20 = 0 then
                TOTALPAGE = Int(GetPart(ret(0),2))/20
            else
                TOTALPAGE = Int(GetPart(ret(0),2))\20+1
            end if
        else
            TOTALPAGE = 1
        end if
    end if
end if
          

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
.p9 {  font-family: "宋体"; font-size: 14px}
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: 22px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}
.TButton {  font-family: "宋体"; font-size: 14px;cursor:hand;width:66px;height:22px}
A:link{font-size:14px;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:14px;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:14px;COLOR: red; TEXT-DECORATION: underline}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function ShowPAGE(page) {
    fSCYH.action = 'jmlb.asp?PAGE='+page+'&LB='+fSCYH.sTJXZ.value;
    fSCYH.submit();
}

function bSC_onclick() {
    if (window.confirm('真的要删除会员吗？')) {
        fSCYH.action = 'jmlb.asp?ACT=1';
        fSCYH.submit();
    }
}

function bSS_onclick() {
    if (fSCYH.tNC.value == '') {
        window.alert('请输入搜索的昵称！')
    }
    else {
        fSCYH.action = 'jmlb.asp';
        fSCYH.submit();
    }
}

function sTJXZ_onchange() {
    fSCYH.tNC.value = '';
    fSCYH.action = 'jmlb.asp';
    fSCYH.submit();
}

function window_onload() {
    fSCYH.sTJXZ.selectedIndex = <%=LB%>;
    fSCYH.tNC.value = '<%=Request.Form("tNC")%>';
}

function ShowYHZLXG(nc)  {
    l = screen.width/2-450/2;
    t = screen.height/2-310/2;
    fYHZLXG = window.open('','fYHZLXG','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=450,height=310,left='+l+',top='+t);
    fYHZLXG.location.replace('../yhzlxg.asp?NC='+nc);
}

function ShowGRZL(nc) {
    l = screen.width/2-500/2;
    t = screen.height/2-250/2;
    window.open('../grzl.asp?NC='+nc,'fGRZL','scrollbar=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
}
//-->
</SCRIPT>
</HEAD>
<BODY background="../images/bg.gif" LANGUAGE=javascript onload="return window_onload()">
<form name=fSCYH method="POST">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="p9">
  <tr>
    <td align="right">总数：<%=GetPart(ret(0),2)%>&nbsp;&nbsp;&nbsp;&nbsp;第<%=PAGE%>页&nbsp;&nbsp;&nbsp;&nbsp;总计<%=TOTALPAGE%>页
    </td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#84B6DE" class="p9">
  <tr bgcolor=#CEE7FF class="p9"> 
    <td height="25" width="14%"> 
      <div align="center"><font color="#21517B">昵称</font></div>
    </td>
    <td height="25" width="10%"> 
      <div align="center"><font color="#21517B">性别</font></div>
    </td>
    <td height="25" width="12%"> 
      <div align="center"><font color="#21517B">注册时间</font></div>
    </td>
    <td height="25" width="12%"> 
      <div align="center"><font color="#21517B">最近登录</font></div>
    </td>
    <td height="25" width="10%"> 
      <div align="center"><font color="#21517B">经验</font></div>
    </td>
    <td height="25" width="10%"> 
      <div align="center"><font color="#21517B">魅力</font></div>
    </td>
    <td height="25" width="10%"> 
      <div align="center"><font color="#21517B">金钱</font></div>
    </td>
  </tr>
  <%
      for i=1 to Int(GetPart(ret(0),3))
          if GetPart(ret(i),1) = "" then
              exit for
          end if
          if i mod 2 = 0 then
              Response.Write("<tr bgcolor=#F7F7F7>")
          else
              Response.Write("<tr bgcolor=#efefef>")
          end if
          Response.Write("<td height=22 width=14% >&nbsp;<a href=javascript:ShowGRZL('"&GetPart(ret(i),1)&"')>"&GetPart(ret(i),1)&"</a></td>")
          select case GetPart(ret(i),2)
              case "0"
                  Response.Write("<td height=22 width=10% ><div align=center>男</div></td>")
              case "1"
                  Response.Write("<td height=22 width=10% ><div align=center>女</div></td>")
              case "2"
                  Response.Write("<td height=22 width=10% ><div align=center>保密</div></td>") 
          end select         
          Response.Write("<td height=22 width=12% ><div align=center>"&GetPart(ret(i),4)&"</div></td>")
          Response.Write("<td height=22 width=12% ><div align=center>"&GetPart(ret(i),5)&"</div></td>")
          Response.Write("<td height=22 width=10% align=center>"&GetPart(ret(i),6)&"</td>")
          Response.Write("<td height=22 width=10% align=center>"&GetPart(ret(i),7)&"</td>")
          Response.Write("<td height=22 width=10% align=center>"&GetPart(ret(i),8)&"</td></tr>")
       next
 %>
  <tr bgcolor=#CEE7FF> 
    <td height="30" colspan="9"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" class="p9">
        <tr>
          <td width="45%">
            <div align="center"><font color="#21517B">用户昵称： 
              <input type="text" name="tNC" size="15" class=p9>
              <input type="button" name="bSS" value="搜索" class="Tbutton" style="BACKGROUND-COLOR: #FFFFEF; BORDER: buttonhighlight 1px solid;COLOR: black" LANGUAGE=javascript onclick="return bSS_onclick()">
              </font></div>
          </td>
          <td width="15%">
            &nbsp;
          </td>
          <td width="40%">
            <div align="center" class="p9"><font color="#21517B">按各种条件搜索： 
              <select size=1 name="sTJXZ" class="p9" LANGUAGE=javascript onchange="return sTJXZ_onchange()">
                <option value="0" selected>所有</option>
                <option value="1">通行者</option>
                <option value="2">精 英</option>
				<option value="3">英雄</option>
                <option value="4">荣誉社员</option>
                <option value="5">超级社员</option>
                <option value="6">高级社员</option>
				<option value="7">荣誉公民</option>
                <option value="8">合法公民</option>
                <option value="9">社区居民</option>
				<option value="10">社区游民</option>
				<option value="11">社区恶人</option>
                <option value="12">男</option>
                <option value="13">女</option>
                <option value="14">保密</option>
                <option value="15">最近一个月未登录</option>
                <option value="16">最近三个月未登录</option>
                <option value="17">最近六个月未登录</option>
                <option value="18">最近一年未登录</option>
              </select>
              </font></div>
          </td>
        </tr>
      </table>
     </td>
  </tr>
</table>
<%
    Response.Write("<p align=center class=p9><a href=javascript:ShowPAGE(1)>首页</a>&nbsp;") 

    if PAGE <= 1 then
        Response.Write("<font color=#777777>上一页</font>&nbsp;")
    else
        Response.Write("<a href=javascript:ShowPAGE("&PAGE&"-1)>上一页</a>&nbsp;")
    end if
    if Int(PAGE) >= TOTALPAGE then
        Response.Write("<font color=#777777>下一页</font>")
    else
        Response.Write("<a href=javascript:ShowPAGE("&PAGE&"+1)>下一页</a>")
    end if

    Response.Write("&nbsp;<a href=javascript:ShowPAGE("&TOTALPAGE&")>尾页</a></p>")
%>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明

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