<%qx="11"%>
<!--#include file="../login/0.asp"-->
<!--#include file="../../mycartconn/conn.asp"-->
<!--#include file="../../mycartconn/function.asp"-->
<!--#include file="../../mycartconn/page.asp"-->
<link href="../../mycartconn/admin.css" rel="stylesheet" type="text/css">
<script language="javascript">
function show(link)
{
window.open(link,'','top=50,left=150,width=812,height=546,scrollbars=no')
}

function openChild(link) 
{ 

 var k = window.showModalDialog(link,window,"scroll:0;status:0;help:0;resizable:0;dialogWidth:420px;dialogHeight:280px"); 
 if(k == 1)//判断是否刷新 
 { 
  window.location.reload(); 
 } 
} 
</script>
<title>会员列表</title>
<TABLE width="650" align="center" cellpadding="0" cellspacing="0">
<TR>
	<TD height=5></TD>
</TR>
</TABLE>
<table width="650" align="center" cellpadding="0" cellspacing="0">
  <form name="form" method="post" action="huiyuan.asp"><tr> 
      <td height="25" align="center" valign="middle"> 会员姓名： 
        <input name="key" type="text" class="wenbenkuang" id="key" size="15" maxlength="15"><input name="Submit" type="submit" class="go-wenbenkuang" value="搜索">
      </td>
  </tr></form>
</table>
<BR>
<%
Select case request("abc")
   case "duanxin_ok"
   if request("bt")<>"" and request("nr")<>"" and request("name1")<>"" then
   conn.execute("Insert into duanxin(bt,nr,name1,name2,lx,DailiID)values('"&request("bt")&"','"&request("nr")&"','"&request("name1")&"','"&my_name&"',6,0)")
     Response.Write "<meta http-equiv=refresh content=2;url='?key="&request("key")&"&page="&request("page")&"'><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>您已成功地发出短信！！！</b><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;·恭喜您，您填写的短信已成功的发送！！"
   end if
   case "duanxin"%><br>
<table width="400" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC"><form name="form1" method="post" action="?abc=duanxin_ok">
  <tr bgcolor="#FFFFFF"> 
    <td height="25" colspan="2" bgcolor="#f1f1f1"><font color="#FF6600">&nbsp;&nbsp;-&gt; 
      站内短信通知</font></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="100" height="25" align="center">收 信 人</td>
    <td height="25"><%=request("name1")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="100" height="25" align="center">短信标题</td>
    <td height="25"><input name="bt" type="text" class="wenbenkuang" id="bt" size="40" maxlength="25"></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="100" height="25" align="center">短信内容</td>
    <td height="25"><textarea name="nr" cols="40" rows="5" class="wenbenkuang" id="nr"></textarea></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="25" align="center">&nbsp;</td>
    <td height="25"><input name="Submit" type="submit" class="go-wenbenkuang" value="发送短信">
      <input name="Submit" type="reset" class="go-wenbenkuang" value="重置">
        <input name="Submit2" type="button" class="go-wenbenkuang" value="返回上一页" onclick="javascript:window.history.go(-1)">
        <input name="name1" type="hidden" id="name1" value="<%=request("name1")%>">
        <input name="key" type="hidden" id="key" value="<%=request("key")%>">
        <input name="page" type="hidden" id="page" value="<%=request("page")%>"> </td>
  </tr></form>
</table>

<%
Case Else

Function getIcon_me(huiyuan)
	sql_t="select vip from huiyuan where huiyuan='"&huiyuan&"'"
	set rs_t=server.createobject("adodb.recordset")
	rs_t.open sql_t,conn,1,1
	If Not (rs_t.bof And rs_t.eof) Then
		select case cint(rs_t("vip"))
		case 0
			myalt="普通会员"
		case 1
			myalt="银牌VIP会员"
		case 2
			myalt="金牌VIP会员"
		case 3
			myalt="蓝钻VIP会员"
		case 4
			myalt="皇冠贵族"
		case else
			myalt=""
		end Select

		getIcon_me = "<img alt="&myalt&" src=http://www.hongdou999.com/images/grade/1" & (cint(rs_t("vip"))+1) & "_i.gif border=0 align=absmiddle>"
	Else
		getIcon_me=""
	End If
	rs_t.close
	Set rs_t=nothing
End Function



key=request("key")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from online where name<>'游客'"
if key<>"" then sql = sql & " and name like '%"&key&"%'"
rs.open sql,conn,1,1
if rs.eof then
response.write "<br>暂无"
end if
page1("15")%>
<table width="80%" align="center">
  <tr valign="middle"> 
	<td width="15%" align="center" bgcolor="#CCCCCC">会员账号</td>
	<td width="15%" align="center" bgcolor="#CCCCCC">注册IP</td>
	<td width="20%" align="center" bgcolor="#CCCCCC">注册时间</td>
	<td width="8%" align="center" bgcolor="#CCCCCC">存款</td>
	<td width="9%" align="center" bgcolor="#CCCCCC">验证</td>
	<td width="9%" align="center" bgcolor="#CCCCCC">锁定</td>
	<td width="8%" align="center" bgcolor="#CCCCCC">VIP</td>
	<td width="8%" align="center" bgcolor="#CCCCCC">编辑</td>
	<td width="8%" align="center" bgcolor="#CCCCCC">短信</td>
  </tr>
<%i=1
while not rs.eof and i<=rs.pagesize
	Set rs_conn= conn.execute("select id,huiyuan,ip,sj,zt,je2,vip from huiyuan where huiyuan = '"&rs("name")&"' order by id DESC")
%>
  <tr valign="middle"> 
    <td style="padding-left:10px" bgcolor="#f1f1f1"><a href="huiyuan.asp?id=<%=rs_conn("id")%>&key=<%=request("key")%>&page=<%=page%>&abc=xs&home=../huiyuan/huiyuan_on.asp"><%=rs("name")%></a></td>
    <td style="padding-left:10px" bgcolor="#f1f1f1"><%=rs_conn("ip")%></td>
    <td style="padding-left:10px" bgcolor="#f1f1f1"><%=rs_conn("sj")%></td>
    <td align="center" bgcolor="#f1f1f1"><%=rs_conn("je2")%></td>
    <td align="center" bgcolor="#f1f1f1"><%If rs_conn("zt")=0 Then Response.Write("<font color=red>未</font>") else Response.Write("已")%></td>
    <td align="center" bgcolor="#f1f1f1"><%If rs_conn("zt")<>2 Then Response.Write("正常") else Response.Write("<font color=red>锁定</font>")%></td>
	<td align="center" bgcolor="#f1f1f1"><%If rs_conn("vip")=0 Then Response.Write("否") else Response.Write(""&getIcon_me(rs_conn("huiyuan"))&"")%></td>
    <td align="center" bgcolor="#f1f1f1"><%if rs_conn("zt")<>0 then Response.Write("<a href=huiyuan.asp?abc=go&page="&page&"&id="&rs_conn("id")&"&lx="&request("lx")&"&key="&request("key")&" target=_blank>编辑</a>") else Response.Write"<font color=#999999>编辑</font>"%></td>
    <td align="center" bgcolor="#f1f1f1"><script language="javascript">
    function confirmdel(id,page){
       if (confirm("删除该会员不会把该会员已发布的信息全部删，请手工删除该会员在相应栏目中发布的信息！")) 
       window.location.href="huiyuan.asp?abc=del&id="+id+"&page="+page
     }  
</script> <a href="#" onclick="window.location='?name1=<%=rs_conn("huiyuan")%>&key=<%=request("key")%>&page=<%=request("page")%>&abc=duanxin'">联系</a></td>
  </tr>
  <%
i=i+1
 rs.MoveNext                                              
 wend 
%>
  <tr valign="middle"> 
    <td colspan="10" align="center"> <%page2("key="&request("key")&"&lx="&request("lx")&"&")
rs.close
set rs=nothing
%></td>
  </tr>
</table>
<%End Select
conn.close
Set conn=nothing%>