<%qx="11"%>
<!--#include file="../login/0.asp"-->
<!--#include file="../../mycartconn/conn.asp"-->
<!--#include file="../../mycartconn/page.asp"-->
<link href="../../mycartconn/admin.css" rel="stylesheet" type="text/css">
<title>会员列表</title>
<table width="650" align="center" cellpadding="0" cellspacing="0">
  <form name="form" method="post" action="?"><tr> 
      <td height="25" align="center" valign="middle"> 会员签名&会员名称搜索： 
        <input name="key" type="text" class="wenbenkuang" id="key" size="20" maxlength="20">
      <input name="Submit" type="submit" class="go-wenbenkuang" value="OK，搜索">
      </td>
  </tr></form>
</table>
<%
Select case request("abc")
   case "del"
       conn.execute("Update huiyuan set txt='因该签名不符合要求，被管理员屏蔽' where id="&request("id")&"")
	  Response.redirect "?key="&request("key")&"&page="&request("page")&""
   case "duanxin_ok"
   if request("bt")<>"" and request("nr")<>"" and request("name1")<>"" then
   conn.execute("Insert into duanxin(bt,nr,name1,name2,lx)values('"&request("bt")&"','"&request("nr")&"','"&request("name1")&"','"&my_name&"',5)")
     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"%>
<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 "xs"
      set rs = conn.execute("select * from huiyuan where id="&request("id")&"")%>
<br>
<table width="500" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td height="22" colspan="2" bgcolor="#f1f1f1"> &nbsp;<font color="#FF6600">&nbsp;-&gt; 
      ID:<%=rs("id")%> 会员详细信息</font></td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td width="100" height="22" align="center">会员账号</td>
    <td width="400" height="22">&nbsp;<%=rs("huiyuan")%></td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td width="100" height="22" align="center">会员密码</td>
    <td width="400" height="22">&nbsp;<%=rs("password")%></td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td width="100" height="22" align="center">真实姓名</td>
    <td width="400" height="22">&nbsp;<%=rs("name")%>[<%=rs("xb")%>]</td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td width="100" height="22" align="center">联系电话</td>
    <td width="400" height="22">&nbsp;<%=rs("tel")%></td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td width="100" height="22" align="center">联系信箱</td>
    <td width="400" height="22">&nbsp;<%=rs("mail")%></td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td width="100" height="22" align="center">联系地址</td>
    <td width="400" height="22">&nbsp;<%=rs("dz")%>&nbsp;[邮编：<%=rs("yb")%>]</td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td height="22" align="center">拥有财富</td>
    <td height="22">&nbsp;<%=rs("je2")%>元</td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td height="22" align="center">注册时间</td>
    <td height="22">&nbsp;<%=rs("sj")%>&nbsp;[IP：<%=rs("ip")%>]</td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td height="22" align="center">最后登陆</td>
    <td height="22">&nbsp;<%=rs("sj2")%>&nbsp;[共登陆<%=rs("js")%>次]</td>
  </tr>
  <tr valign="middle" bgcolor="#FFFFFF"> 
    <td height="22" colspan="2" align="center"><input name="Submit2" type="button" class="go-wenbenkuang" value="返回上一页" onclick="javascript:window.history.go(-1)">
      &nbsp;[<a href="?name1=<%=rs("huiyuan")%>&key=<%=request("key")%>&page=<%=request("page")%>&abc=duanxin">发送站内短信</a>]</td>
  </tr>
</table>
<%rs.close
case else
Set rs= Server.CreateObject("ADODB.Recordset")
if request("key")<>"" then
sql="select id,huiyuan,txt,sj3 from huiyuan where txt like '%"&request("key")&"%' or huiyuan like '%"&request("key")&"%' order by sj3 DESC"
else
sql="select id,huiyuan,txt,sj3 from huiyuan where txt<>'' order by sj3 DESC"
end if
rs.open sql,conn,1,1
if rs.eof then
response.write "<br>暂无"
end if
page1("15")%>
<table width="650" align="center">
  <tr valign="middle"> 
    <td width="120" align="center" bgcolor="#CCCCCC">会员账号</td>
    <td align="center" bgcolor="#CCCCCC">会员个性签名</td>
    <td width="150" align="center" bgcolor="#CCCCCC">修改时间</td>
    <td width="75" align="center" nowrap bgcolor="#CCCCCC">删除签名</td>
  </tr>
<%i=1
while not rs.eof and i<=rs.pagesize%>
  <tr valign="middle"> 
    <td width="120" align="center" bgcolor="#f1f1f1"><a href="?id=<%=rs("id")%>&key=<%=request("key")%>&page=<%=page%>&abc=xs"><%=rs("huiyuan")%></a></td>
    <td width="300" bgcolor="#f1f1f1"><%=rs("txt")%></td>
    <td width="150" align="center" nowrap bgcolor="#f1f1f1"><%=rs("sj3")%></td>
    <td width="75" align="center" bgcolor="#f1f1f1"><a href="?id=<%=rs("id")%>&key=<%=request("key")%>&page=<%=page%>&abc=del">屏蔽</a></td>
  </tr>
<%i=i+1
rs.MoveNext                                              
wend%>
  <tr valign="middle"> 
    <td colspan="5" align="center">
<%page2("key="&request("key")&"&")
rs.close
set rs=nothing%></td>
  </tr>
</table>
<%End Select
conn.close
set conn=nothing
%>