<%qx="11"%>
<!--#include file="../login/0.asp"-->
<!--#include file="../../mycartconn/conn.asp"-->
<!--#include file="../../mycartconn/function.asp"-->
<!--#include file="../../mycartconn/page.asp"-->
<!--#include file="../../mycartconn/my.asp"-->
<!--#include file="../../mycartconn/md5.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="750" align="center" cellpadding="0" cellspacing="0">
  <form name="form" method="post" action="?"><tr> 
      <td height="25" align="center" valign="middle"> 会员、姓名、地址、email、电话： 
        <input name="key" type="text" class="wenbenkuang" id="key" size="15" maxlength="15"><input name="lx" type="radio" value="0" checked>所有会员<input type="radio" name="lx" value="1">锁定会员<input type="radio" name="lx" value="2">未审会员<input type="radio" name="lx" value="3">请求认证&nbsp;<select name="vipdj" style="height:16px"><option value="">级别</option><option value="1">银牌</option><option value="2">金牌</option><option value="3">钻石</option><option value="4">皇冠</option></select>&nbsp;<input name="Submit" type="submit" class="go-wenbenkuang" value="搜索">
      </td>
  </tr></form>
</table>
<%
Select case request("abc")
   case "go"
   set rs = conn.execute("select huiyuan,password,DailiID,userid,nickname from huiyuan where id="&request("id")&"")
   Response.Cookies(my_url)("huiyuan")=rs("huiyuan")
   Response.Cookies(my_url)("usernick")=rs("nickname")
   Response.Cookies(my_url)("userid")=rs("userid")
   Response.Cookies(my_url)("hypwd")=rs("password")
   Response.Cookies(my_url)("DailiID")=rs("DailiID")
   rs.close
   set rs=nothing
   Response.Redirect "../../mymolihe.asp"
   Response.end
   case "del"
	  sql_t="select huiyuan from huiyuan where id="&request("id")&""
	  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
	    conn.execute("Delete playlistType where huiyuan='"&rs_t(0)&"'")        '删除用户playlistType
	    conn.execute("Delete mylist where huiyuan='"&rs_t(0)&"'")        '删除用户Mylist
        conn.execute("Delete blog_user where huiyuan='"&rs_t(0)&"'")        '删除用户BLOG
        conn.execute("Delete blog_lb where huiyuan='"&rs_t(0)&"' and lx=0")        '删除系统生成的BLOG目录
        conn.execute("Delete photo_xc where huiyuan='"&rs_t(0)&"' and (lbid=100 or lbid=101)")        '删除系统相册
        conn.execute("Delete blog where huiyuan='"&rs_t(0)&"' and bt='Hi！亲爱的朋友，欢迎您的光临'")        '删除系统生成的第一篇日记
        conn.execute("Delete video_ml where huiyuan='"&rs_t(0)&"' and lbid=1")        '删除视频系统目录
        conn.execute("Delete url_ml where huiyuan='"&rs_t(0)&"'")        '删除网址收藏默认三个分类
        conn.execute("Delete contact_ml where huiyuan='"&rs_t(0)&"'")        '删除网址通讯录默认四个分类
	  End If
	  rs_t.close
	  Set rs_t=Nothing
	  conn.execute("Delete huiyuan 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,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><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 "pass"
if request("password")<>"" then
conn.execute("Update huiyuan set password='"&md5(request("password"))&"' where id="&request("id")&"")
width="500"
my_bt="系统提示："
my_nr="<meta http-equiv='refresh' content='3; url=?'>会员"&request("id")&"密码重置成功，谢谢！新密码为 <font color=red>"&request("password")&"</font>"
my()
end if
case "xs"
    gotoUrl="../huiyuan/huiyuan.asp"
    home=request("home")
    If home<>"" Then gotoUrl=home
    mylocation="window.location='"&gotoUrl&"?key="&request("key")&"&page="&page&"&abc="&request("myabc")&"'"
    If home="history" Then 
		mylocation="javascript:history.go(-1);"
	End If

	set rs = conn.execute("select * from huiyuan where id="&request("id")&"")%>
	<br>
	<table width="65%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC"><form name="form" method="post" action="?abc=pass">
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" colspan="3" bgcolor="#f1f1f1"> &nbsp;<font color="#FF6600">&nbsp;-&gt; 
		  ID:<%=rs("id")%> 会员详细信息</font>　　<%if rs("zt")<>0 then Response.Write("<a href=?abc=go&page="&page&"&id="&rs("id")&"&lx="&request("lx")&"&key="&request("key")&" target=_blank>[编辑]</a>") else Response.Write"<font color=#999999>[编辑]</font>"%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td width="15%" height="22" align="center">会员账号</td>
		<td width="65%" height="22">&nbsp;<%=rs("huiyuan")%></td>
		<td width="20%" rowspan=5>
            <TABLE style="BORDER-RIGHT: #efefef 2px solid; BORDER-BOTTOM: #efefef 2px solid" height=130 cellSpacing=1 cellPadding=0 width=130 align=center bgColor=#cccccc border=0>
              <TBODY>
              <TR>
                <TD vAlign=center align=middle bgColor=#ffffff><DIV style="display:table-cell;text-align:center;vertical-align:middle"><A href="<%=blog_url%>home.asp?user=<%=rs("huiyuan")%>" target=_blank><IMG src="/tp/userface/<%=rs("img")%>" onerror="this.src='/tp/userface/face/man_n.jpg';" onload="if (this.width>100) this.width=100" border=0> 
            </A></DIV></TD>
			  </TR>
			  </TBODY>
			</TABLE>
		</td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td width="15%" height="22" align="center">会员密码</td>
		<td width="65%" height="22" style="padding-left:10px">
		  <input name="password" type="text" class="wenbenkuang" id="password" value="<%=rs("password")%>" size="32" maxlength="32"> 
		  <input name="id" type="hidden" id="id" value="<%=request("id")%>">
		  <input name="Submit3" type="submit" class="go-wenbenkuang" value="修改该会员密码"> 
		  <br>
		  (密码已被系统用MD5方式32位不可逆加密，要修改请直接输入新密码)</td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">真实姓名</td>
		<td height="22">&nbsp;<%=rs("name")%>&nbsp;<%=getSex(rs("huiyuan"))%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">昵　　称</td>
		<td height="22">&nbsp;<%=rs("nickname")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">籍　　贯</td>
		<td height="22">&nbsp;<%=rs("sf")%>-<%=rs("city")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">所在地区</td>
		<td height="22" colspan=2>&nbsp;<%=rs("gzd_sf")%>-<%=rs("gzd_city")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">出生年月</td>
		<td height="22" colspan=2>&nbsp;<%=rs("nyr")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">婚姻状况</td>
		<td height="22" colspan=2>&nbsp;<%=getUserValue("hyzk",rs("hyzk"))%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">月 收 入</td>
		<td height="22" colspan=2>&nbsp;<%=getUserValue("ysr",rs("ysr"))%></td>
	  </tr>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">学　　历</td>
		<td height="22" colspan=2>&nbsp;<%=getUserValue("xl",rs("xl"))%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">身　　高</td>
		<td height="22" colspan=2>&nbsp;<%=rs("sg")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">体　　重</td>
		<td height="22" colspan=2>&nbsp;<%=rs("tz")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">联系电话</td>
		<td height="22" colspan=2>&nbsp;<%=rs("tel")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">手机号码</td>
		<td height="22" colspan=2>&nbsp;<%=rs("mobi")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">联系信箱</td>
		<td height="22" colspan=2>&nbsp;<%=rs("mail")%>　　　　　　　<input name="button11" type="button" class="go-wenbenkuang" value="  　　重发激活信  "  onclick="javascript:show(&quot;resendmail.asp?id=<%=rs("id")%>&quot;);"></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">联系地址</td>
		<td height="22" colspan=2>&nbsp;<%=rs("dz")%>&nbsp;[邮编：<%=rs("yb")%>]</td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">拥有财富</td>
		<td height="22" colspan=2>&nbsp;<%=rs("je2")%>元</td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">魅 力 值</td>
		<td height="22" colspan=2>&nbsp;<%=rs("ml")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">认证星级</td>
		<td height="22" colspan=2>&nbsp;<%=getstar(rs("rz_sp"),rs("rz_sf"),rs("rz_hy"),rs("rz_xl"),rs("rz_sr"))%>&nbsp;&nbsp;<%
		If rs("rz_sp")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=1&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求照片认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_sp")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=1&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过照片认证]</font></a>&nbsp;&nbsp;"
		End If
		
		If rs("rz_sf")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=2&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求身份认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_sf")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=2&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过身份认证]</font></a>&nbsp;&nbsp;"
		End If

		If rs("rz_xl")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=3&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求学历认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_xl")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=3&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过学历认证]</font></a>&nbsp;&nbsp;"
		End If

		If rs("rz_hy")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=4&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求婚姻认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_hy")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=4&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过婚姻认证]</font></a>&nbsp;&nbsp;"
		End If

		If rs("rz_sr")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=5&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求收入认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_sr")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=5&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过收入认证]</font></a>&nbsp;&nbsp;"
		End If

		If rs("rz_fc")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=6&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求房产认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_fc")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=6&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过房产认证]</font></a>&nbsp;&nbsp;"
		End If

		If rs("rz_qc")=2 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=7&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=red>[请求汽车认证]</font></a>&nbsp;&nbsp;"
		elseif rs("rz_qc")=1 Then 
			response.write "<a href='huiyuan_rz.asp?id="&rs("id")&"&abc=rz&lx=7&key="&request("key")&"&page="&page&"&home="&request("home")&"'><font color=blue>[通过汽车认证]</font></a>&nbsp;&nbsp;"
		End If
		%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF">
		<td height="22" align="center">身份级别</td>
		<td height="22" colspan=2>&nbsp;<%=getIcon_noxb(rs("huiyuan"))%><%=getvipinfo(rs("vip"))%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">会员等级</td>
		<td height="22" colspan=2>&nbsp;<%=getdjico(rs("huiyuan"))%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">人气指数</td>
		<td height="22" colspan=2>&nbsp;<%=rs("rq")%></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">档案状态</td>
		<td height="22" colspan=2>&nbsp;<%=getzt(rs("zt"))%></td>
	  </tr>
	 <!--
	  <tr valign="middle" bgcolor="#FFFFFF">
		<td height="22" align="center">网上开店</td>
		<td height="22" colspan=2>< %set yz = conn.execute("select id,zt,name from user_name where huiyuan='"&rs("huiyuan")&"' order by id asc")
	if yz.eof then
	Response.Write("&nbsp;未申请")
	else
	i=1
	do while not yz.eof
	Response.Write "&nbsp;"&i&"、<a href=/user/index.asp?userid="&yz(0)&" target=_blank>"&yz(2)&"</a>&nbsp;&nbsp;[状态："
	Select case yz(1)
	   case "0"
			Response.Write("<font color=#ff0000>未审核</font>")
	   case "1"
			Response.Write("<font color=#ff6600>试营业</font>")
	   case "2"
			Response.Write("营业中")
	   case "3"
			Response.Write("<font color=#ff0000><del>已过期</font>")
	   case "4"
			Response.Write("<del>已作废")
	End Select
	Response.Write "]<br>"
	i=i+1
	yz.movenext
	loop
	end if
	yz.close:set yz=nothing% ></td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF">
		<td height="22" align="center">企业黄页</td>
		<td height="22" colspan=2>< %set yz = conn.execute("select id,zt,mc from qy_info where huiyuan='"&rs("huiyuan")&"' order by id asc")
	if yz.eof then
	Response.Write("&nbsp;未申请")
	else
	i=1
	do while not yz.eof
	Response.Write "&nbsp;"&i&"、<a href=/info/xiangxi.asp?id="&yz(0)&" target=_blank>"&yz(2)&"</a>&nbsp;&nbsp;[状态："
	if yz(1)=0 then Response.Write("<font color=#ff0000>未审</font>") else Response.Write("营业中")
	Response.Write "]<br>"
	i=i+1
	yz.movenext
	loop
	end if
	yz.close:set yz=nothing% ></td>
	  </tr>
	  -->
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">注册时间</td>
		<td height="22" colspan=2>&nbsp;<%=rs("sj")%>&nbsp;[IP：<%=rs("ip")%>]</td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" align="center">最后登陆</td>
		<td height="22" colspan=2>&nbsp;<%=rs("sj2")%>&nbsp;[IP：<%=rs("ip2")%>]&nbsp;[共登陆<%=rs("js")%>次]</td>
	  </tr>
	  <tr valign="middle" bgcolor="#FFFFFF"> 
		<td height="22" colspan="3" align="center"><input name="Submit2" type="button" class="go-wenbenkuang" value="返回上一页" onclick="<%=mylocation%>"> 
		  <input name="Submit4" type="button" class="go-wenbenkuang" value="锁定该会员账号" onclick="window.location='?abc=zt&page=1&zt=2&id=<%=rs("id")%>&lx=0&key=<%=rs("huiyuan")%>'"> 
		  <input name="Submit5" type="button" class="go-wenbenkuang" value="发送站内短信" onclick="window.location='?name1=<%=rs("huiyuan")%>&key=<%=request("key")%>&page=<%=request("page")%>&abc=duanxin'"></td>
	  </tr><form>
	</table>
	<%rs.close
case "zt"
	conn.execute("Update huiyuan set zt="&request("zt")&" where id="&request("id")&"")
	Response.redirect "?page="&request("page")&"&lx="&request("lx")&"&vipdj="&request("vipdj")&"&key="&request("key")&""
case Else
	Function getstar_me(sp,sf,hy,xl,sr,fc,qc)
		Dim starcount1
		If CInt(sp)=2 Then sp=0
		If CInt(sf)=2 Then sf=0
		If CInt(hy)=2 Then hy=0
		If CInt(xl)=2 Then xl=0
		If CInt(sr)=2 Then sr=0
		If CInt(fc)=2 Then fc=0
		If CInt(qc)=2 Then qc=0
		rz_memo=""
		If CInt(sp)=1 Then rz_memo=rz_memo&"照片认证　"
		If CInt(sf)=1 Then rz_memo=rz_memo&"身份认证　"
		If CInt(hy)=1 Then rz_memo=rz_memo&"婚姻认证　"
		If CInt(xl)=1 Then rz_memo=rz_memo&"学历认证　"
		If CInt(sr)=1 Then rz_memo=rz_memo&"收入认证　"
		If CInt(fc)=1 Then rz_memo=rz_memo&"房产认证　"
		If CInt(qc)=1 Then rz_memo=rz_memo&"汽车认证　"

		starcount1=CInt(sp)+CInt(sf)+CInt(hy)+CInt(xl)+CInt(sr)+CInt(fc)+CInt(qc)
		getstar_me = "<span title='"&rz_memo&"'>"&CStr(starcount1)&"项</span>"
		If CInt(starcount1)=0 Then getstar_me="未认证"
	End Function

	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=/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


	Set rs= Server.CreateObject("ADODB.Recordset")
	key=request("key")
	vipdjshow=""
	vipdj=request("vipdj")
	If vipdj<>"" Then vipdjshow=" and vip="&vipdj&""
	if request("lx")="0" then
		sql="select id,huiyuan,userid,ip,sj,zt,je2,vip,rz_sp,rz_sf,rz_xl,rz_hy,rz_sr,rz_fc,rz_qc from huiyuan where (huiyuan like '%"&key&"%' or name like '%"&key&"%' or nickname like '%"&key&"%' or dz like '%"&key&"%' or mail like '%"&key&"%' or tel like '%"&key&"%' or ip2 like '%"&key&"%')"&vipdjshow&" order by id DESC"
	elseif request("lx")="1" then
		sql="select id,huiyuan,userid,ip,sj,zt,je2,vip,rz_sp,rz_sf,rz_xl,rz_hy,rz_sr,rz_fc,rz_qc from huiyuan where zt=2 and (huiyuan like '%"&key&"%' or name like '%"&key&"%' or nickname like '%"&key&"%' or dz like '%"&key&"%' or tel like '%"&key&"%' or ip2 like '%"&key&"%')"&vipdjshow&" order by id DESC"
	elseif request("lx")="2" then
		sql="select id,huiyuan,userid,ip,sj,zt,je2,vip,rz_sp,rz_sf,rz_xl,rz_hy,rz_sr,rz_fc,rz_qc from huiyuan where zt=0 and (huiyuan like '%"&key&"%' or name like '%"&key&"%' or nickname like '%"&key&"%' or dz like '%"&key&"%' or tel like '%"&key&"%' or ip2 like '%"&key&"%')"&vipdjshow&" order by id DESC"
	elseif request("lx")="3" then
		sql="select id,huiyuan,userid,ip,sj,zt,je2,vip,rz_sp,rz_sf,rz_xl,rz_hy,rz_sr,rz_fc,rz_qc from huiyuan where (huiyuan like '%"&key&"%' or name like '%"&key&"%' or nickname like '%"&key&"%' or dz like '%"&key&"%' or tel like '%"&key&"%' or ip2 like '%"&key&"%') and (rz_sp=2 or rz_sf=2 or rz_hy=2 or rz_xl=2 or rz_sr=2 or rz_fc=2 or rz_qc=2)"&vipdjshow&" order by id DESC"
	else
		sql="select id,huiyuan,userid,ip,sj,zt,je2,vip,rz_sp,rz_sf,rz_xl,rz_hy,rz_sr,rz_fc,rz_qc from huiyuan where id>0"&vipdjshow&" order by id DESC"
	end If
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<br>暂无"
	end if
	page1("20")%>
	<table width="80%" align="center">
	  <tr valign="middle"> 
		<td width="14%" align="center" bgcolor="#CCCCCC">会员账号</td>
		<td width="14%" align="center" bgcolor="#CCCCCC">注册IP</td>
		<td width="19%" align="center" bgcolor="#CCCCCC">注册时间</td>
		<td width="7%" align="center" bgcolor="#CCCCCC">盒子</td>
		<td width="7%" align="center" bgcolor="#CCCCCC">验证</td>
		<td width="7%" align="center" bgcolor="#CCCCCC">锁定</td>
		<td width="8%" align="center" bgcolor="#CCCCCC">VIP</td>
		<td width="8%" align="center" bgcolor="#CCCCCC">认证</td>
		<td width="7%" align="center" bgcolor="#CCCCCC">编辑</td>
		<td width="7%" align="center" bgcolor="#CCCCCC">删除</td>
	  </tr>
	<%i=1
	while not rs.eof and i<=rs.pagesize
		dateEndimg=""
		If rs("vip")>0 Then
			set rst = conn.execute("select top 1 * from vip where huiyuan='"&rs("huiyuan")&"' order by id desc")
			If Not (rst.bof And rst.eof) Then
				dateEnd=rst("sj")+rst("yxq")
				If dateDiff("d",now(),dateEnd)<0 Then
					dateEndimg="<img src='images/over.gif' border=0>"
				elseIf dateDiff("d",now(),dateEnd)<=7 Then
					dateEndimg="<img src='images/07.gif' border=0>"
				elseIf dateDiff("d",now(),dateEnd)<=30 Then
					dateEndimg="<img src='images/30.gif' border=0>"
				End if
			End If
			rst.close
			Set rst=Nothing
		End If

		sqlt="select * from A_slide where huiyuan='"&rs("huiyuan")&"'"
		Set rst= Server.CreateObject("ADODB.Recordset")
		rst.open sqlt,conn,1,1
		If Not (rst.bof And rst.eof) Then
			mycount=rst.recordcount
		Else
			mycount="<font color=red>0</font>"
		End If
		rst.close
		Set rst=nothing
	%>
	  <tr valign="middle"> 
		<td bgcolor="#f1f1f1" style="padding-left:10px"><a href="?id=<%=rs("id")%>&key=<%=request("key")%>&page=<%=page%>&abc=xs"><%=rs("huiyuan")%></a></td>
		<td bgcolor="#f1f1f1" style="padding-left:10px"><%=rs("ip")%></td>
		<td bgcolor="#f1f1f1" style="padding-left:10px"><%=rs("sj")%></td>
		<td align="center" bgcolor="#f1f1f1"><a href="../mofahe/index.asp?action=manage&key=<%=rs("huiyuan")%>"><%=mycount%> 个</a></td>
		<td align="center" bgcolor="#f1f1f1"><%If rs("zt")=0 Then Response.Write("<a href=?abc=zt&page="&page&"&zt=1&id="&rs("id")&"&lx="&request("lx")&"&key="&request("key")&"><font color=red>未</font></a>") else Response.Write("已")%></td>
		<td align="center" bgcolor="#f1f1f1"><%If rs("zt")<>2 Then Response.Write("<a href=?abc=zt&page="&page&"&zt=2&id="&rs("id")&"&lx="&request("lx")&"&key="&request("key")&">正常</a>") else Response.Write("<a href=?abc=zt&page="&page&"&zt=1&id="&rs("id")&"&lx="&request("lx")&"&key="&request("key")&"><font color=red>锁定</font></a>")%></td>
		<td align="center" bgcolor="#f1f1f1"><%If rs("vip")=0 Then Response.Write("<a href=""javascript:openChild('vip.asp?huiyuan="&rs("huiyuan")&"');"">否</a>") else Response.Write("<a href=""javascript:openChild('vip.asp?huiyuan="&rs("huiyuan")&"');"">"&getIcon_me(rs("huiyuan"))&"</a>"&dateEndimg)%></td>
		<td align="center" bgcolor="#f1f1f1"><%If (CInt(rs("rz_sp"))=2 Or CInt(rs("rz_sf"))=2 Or CInt(rs("rz_hy"))=2 Or CInt(rs("rz_xl"))=2 Or CInt(rs("rz_sr"))=2 Or CInt(rs("rz_fc"))=2 Or CInt(rs("rz_qc"))=2) Then Response.Write("<a href=?id="&rs("id")&"&key="&request("key")&"&page="&page&"&abc=xs><font color=red>新请求</font></a>") Else Response.Write("<a href=?id="&rs("id")&"&key="&request("key")&"&page="&page&"&abc=xs>"&getstar_me(rs("rz_sp"),rs("rz_sf"),rs("rz_hy"),rs("rz_xl"),rs("rz_sr"),rs("rz_fc"),rs("rz_qc"))&"</a>")%></td>
		<td align="center" bgcolor="#f1f1f1"><%if rs("zt")<>0 then Response.Write("<a href=?abc=go&page="&page&"&id="&rs("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="?abc=del&id="+id+"&page="+page
		 }  
	</script> <%response.write "<a href='javascript:confirmdel("&rs("id")&","&page&")'>删除</a>"%></td>
	  </tr>
	  <%
	i=i+1
	 rs.MoveNext                                              
	 wend 
	%>
	  <tr valign="middle"> 
		<td colspan="10" align="center"> <%page2("key="&request("key")&"&lx="&request("lx")&"&vipdj="&request("vipdj")&"&")
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	%></td>
	  </tr>
	</table>
<%End Select
conn.close
Set conn=nothing%>