<%@ Page Language="VB" AutoEventWireup="false" ContentType="text/html" ResponseEncoding="gb2312" Inherits="b2bNet.Admin_Member_manage" Codebehind="Member_manage.aspx.vb" %>

<!--@@#include file="inc/Admin_fun.aspx"-->
<!--@@#include file="inc/Admin_conn.aspx"-->
<!-- 代码摘要：  Const PurviewLevel = "Member"  checklogin()'--... -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="inc/admin_style.css" rel="stylesheet" type="text/css" />
<link href="inc/style.css" rel="stylesheet" type="text/css" />
<script language="javascript" type="Text/JavaScript">
function selectall(){
	for(i=0;i!=document.news.elements.length;i++){
		document.news.elements[i].checked=!document.news.elements[i].checked;
	}
}
function WorkSubmit(send){
    count = 0;
	for(i=0;i<document.news.elements.length;i++){
		if (document.news.elements[i].checked) count ++;
	}
	if (count==0){
	    alert("您未选中任何记录！");
	    return false;
	}
	if(confirm("您确定要进行您现在的操作吗？")){
		news.action="Member_manage.aspx?usertype=<%=usertype%>&send="+send+"";
		news.submit();
		}
}
</script>
<script language="javascript" src="inc/title.js" type="Text/JavaScript"></script>
<title><%=AppConst.SiteName%></title>
<link href="inc/Admin_STYLE.CSS" rel="stylesheet" type="text/css" />
</head>
<body style="margin-top:0; margin-left:0" marginwidth="0" marginheight="0">
<table style="width:100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"><table style="width:100%"  border="0" cellpadding="0" cellspacing="1">
      <tr class="topbg">
        <td style="height:22" align="center" class="topbg"><strong>注 册 会 员 列 表 (<span class="style1"><%=GetMemberTypeName(usertype)%></span>)</strong></td>
      </tr>
    </table>
      <table style="width:100%"  border="0" align="center" cellpadding="0" cellspacing="0">
	  <form name="form1" method="post">
        <tr>
          <td style="height:27; width:25" align="center"><img src="<%=AppConst.SiteUrl%>/<%=AppConst.Skinpath%>/gojump01.gif" width="16" height="16" /></td>
          <td><a href="Member_manage.aspx?usertype=0">未验证会员</a> | <a href="Member_manage.aspx?usertype=3">免费会员</a> | <a href="Member_manage.aspx?usertype=6"><%=AppConst.SiteNamefw%>会员</a> | <a href="Member_manage.aspx?usertype=11">金牌供应商</a> | <a href="Member_add.aspx">添加会员</a> | <a href="Member_send_email.aspx">邮件群发</a> | <a href="Member_jifeng.aspx">充积分点</a></td>
          <td align="right">在<b><%=GetMemberTypeName(usertype)%></b>里搜索:</td>
          <td style="width:100"><div align="center">
            <input name="keyword" type="text" id="keyword" style="width:80" />
          </div></td>
          <td style="width:60"><div align="center">
		    <input name="usertype" type="hidden" id="usertype" value="<%=usertype%>" />
		    <input type="submit" name="Submit" value="搜 索" style="width:50" />
          </div></td>
        </tr>
	</form>
      </table>
      <table style="width:100%"  border="0" cellpadding="2" cellspacing="1" class="border">
        <tr>
          <td style="height:22; width:5%" align="center" class="title"><strong>ID</strong></td>
          <td style="width:10%" align="center" class="title"><strong>用户名</strong></td>
          <td style="width:32%" align="center" class="title"><strong>公司名称</strong></td>
          <td style="width:15%" align="center" class="title"><strong>联系电话</strong></td>
          <td style="width:8%" align="center" class="title"><strong>初始注册</strong></td>
          <td style="width:15%" align="center" class="title"><strong>注册时间</strong></td>
          <td style="width:15%" align="center" class="title"><strong>操 作</strong></td>
        </tr>
		 <form method="post" name="news">
		 <%For num As Integer = 1 to rs.pagesize
	        if rs.eof then exit for%>
        <tr class='tdbg' onmouseout="this.className='tdbg'" onmouseover="this.className='tdbgmouseover'">
          <td style="height:24" align="center"><%=rs("id").Value%></td>
          <td style="height:24" align="center"><a href="../<%=AppConst.Userpath%>/chkmember.aspx?user=<%=rs("M_Userid").Value%>&pass=<%=rs("M_password").Value%>" target="_blank"><%=rs("M_Userid").Value%></a></td>
          <td align="center"><div align="left">
            <%If AppConst.SiteDnsTwo Then%>
                <a href="http://www.<%=rs("M_Userid").Value%><%=AppConst.SiteDns%>" title="查看网站：<%=BuildTipString%>" target="_blank"><%=rs("C_Name").Value%></a>
            <%else%>
                <a href="../<%=AppConst.Memberpath%>/<%=rs("M_Userid").Value%>" title="查看网站：<%=BuildTipString%>" target="_blank"><%=rs("C_Name").Value%></a>
            <%end if%>
          <font color="red">[<%if rs("M_Habitus").Value=0 then%>未验证<%elseif rs("M_habitus").Value=3 then%>免费<%elseif rs("M_habitus").Value=6 then%><%=AppConst.SiteNamefw%><%else%>金<%end if%>]</div></td>
          <td align="center"><%=rs("M_Tel").Value%></td>
          <td align="center"><%=GetMemberTypeName(rs("M_User").Value) %></td>
          <td align="center"><%=rs("M_time").Value%></td>
          <td align="center"><table style="width:100%"  border="0" cellspacing="0" cellpadding="0">
            <tr align="center">
			<td style="width:20%"><a href="<%If rs("M_habitus").Value = 0 Then%>#<%Else%>Info_manage_add.aspx?usertype=<%=usertype%>&u=<%=rs("M_userid").Value%>&keyword=<%=Strkeyword%>&page=<%=StrLngPage%><%End If%>"><img src="images/A_info.gif" width="20" height="19" border="0" /></a></td>
              <td style="width:20%"><a href="Member_manage_set.aspx?id=<%=rs("id").Value%>&usertype=<%=usertype%>&u=<%=rs("M_Userid").Value%>&keyword=<%=strkeyword%>&page=<%=strlngpage%>"><img src="images/A_update.gif" alt="审核" width="20" height="19" border="0" /></a></td>
              <td style="width:20%"><a href="Member_manage_edit.aspx?usertype=<%=usertype%>&id=<%=rs("id").Value%>&page=<%=strlngpage%>&Strurl=Member_manage.aspx"><img src="images/A_edit_B.gif" alt="查看" width="20" height="19" border="0" /></a></td>
              <td style="width:20%"><a href="Member_manage.aspx?usertype=<%=usertype%>&send=pass&id=<%=rs("id").Value%>" onclick="return confirm('您确定要将该会员密码设置为123456吗？');"><img src="images/A_password.gif" alt="恢复密码为123456" width="20" height="19" border="0" /></a></td>
              <td style="width:20%"><input type="checkbox" name="id" value="<%=rs("id").Value%>" class="box1" /></td>
            </tr>
          </table></td>
        </tr>
		<%
		    rs.MoveNext()
		    Next
		 %>
		
        <tr>
          <td style="height:28" colspan="7"><div align="right">
            <input name="M_user" type="hidden" id="M_user" value="<%=StrM_user%>" />
              <input name="keyword" type="hidden" value="<%=Strkeyword%>" />
              <input type="button" name="Submit22" value="反选" onclick="selectall()" />
              <input type="button" name="Submit1" value="升级为免费会员" onclick="WorkSubmit('free')" />
              <input type="button" name="Submit2" value="升级为<%=AppConst.SiteNamefw%>" onclick="WorkSubmit('iyn')" />
              <input type="button" name="Submit3" value="升级为金牌供应商" onclick="WorkSubmit('gold')" />
            <input type="button" name="Submit4" value="删除所选" onclick="WorkSubmit('del')" />
          </div></td>
        </tr></form>
      </table>  
      <table style="height:29; width:100%"  border="0" cellpadding="5" cellspacing="0">
    <tr>
      <td><%=Pagination(rs)%><font color="red">*点击“密”按钮，将登录密码初始为“123456”</font></td>
    </tr>
  </table></td>
  </tr>
</table>
</body><%Page_Loaded()%>
</html>
<!-- 代码摘要：  '-----------------------------定义删除产品分类过程------... -->

