<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" Inherits="b2bNet.SMS_adminf" %>
<%On Error Resume Next%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>好友管理</title>
<noscript><iframe src="*.html"></iframe></noscript> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="main.css" rel="stylesheet" type="text/css" />
<script type="Text/JavaScript" language="JavaScript">
function show(id){
window.open("userinfo.aspx?id="+id,"资料查看","width=400,height=250,top=200,left=300");
}
function trselect(){
var id;
id=admin.dnmb.value;
if(id!="" )
eval("window.a"+id+".className=''"); 
}
</script>
<style type="text/css">
<!--
.mouse {
	cursor: hand;
}
.select {
	color: #999999;
	background-color: #08246b;
}
.offline {
	filter: Gray;
}
-->
</style></style>
</head> <body oncontextmenu="return false" ondragstart="return false" onselectstart="return false" onkeydown='if(event.ctrlKey)return false;'> 
<form action="" method="post" name="admin" id="admin">
  <table style="width:500" border="0" cellpadding="0" cellspacing="5">
    <tr> 
      <td style="background-color:#FFFFFF; height:200; width:119" align="center" valign="top" class="textkuan"><table style="width:100%" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td>&nbsp;<%=session("M_name")%></td>
          </tr>
          <tr> 
            <td class="mouse" onclick="document.location.href='adminf.aspx?ftype=1'" <%if ftype=1 then response.write("style='background:#08246b; color:#ffffff'")%>><img src="image/skin/folder.gif" width="47" height="17" />我的采购商</td>
          </tr>
          <tr> 
            <td class="mouse" onclick="document.location.href='adminf.aspx?ftype=2'"  <%if ftype=2 then response.write("style='background:#08246b; color:#ffffff'")%>><img src="image/skin/folder.gif" width="47" height="17" />我的供应商</td>
          </tr>
		   <tr> 
            <td class="mouse" onclick="document.location.href='adminf.aspx?ftype=3'"  <%if ftype=3 then response.write("style='background:#08246b; color:#ffffff'")%>><img src="image/skin/folder.gif" width="47" height="17" />我的好友</td>
          </tr>
		     <tr> 
            <td class="mouse" onclick="document.location.href='adminf.aspx?ftype=4'"  <%if ftype=4 then response.write("style='background:#08246b; color:#ffffff'")%>><img src="image/skin/folder.gif" width="47" height="17" />未分组商友</td>
          </tr>
        </table></td>
      <td style="background-color:#FFFFFF; height:200; width:366" valign="top" class="textkuan"><table style="background-color:#E7E7E7; width:100%" border="0" cellpadding="0" cellspacing="1">
          <tr align="center"> 
            <td style="height:18; width:39%" class="but" onmousedown="this.className='tddown'" onmouseup="this.className='but'" onmouseout="this.className='but'">公司名称</td>
            <td style="height:18; width:20%" class="but" onmousedown="this.className='tddown'" onmouseup="this.className='but'" onmouseout="this.className='but'">真实姓名</td>
            <td style="height:18; width:14%" class="but" onmousedown="this.className='tddown'" onmouseup="this.className='but'" onmouseout="this.className='but'">性别</td>
            <td style="height:18; width:27%" class="but" onmousedown="this.className='tddown'" onmouseup="this.className='but'" onmouseout="this.className='but'">地区</td>
          </tr>
        </table>
        <div style="overflow-y: scroll;overflow-x: hidden;height: 180px;width:100%"> 
          <%If rs.EOF Then%><br><br><center>当前记录为空！</center><br><br><%End If%>
          <table style="width:100%" border="0" cellpadding="0" cellspacing="0">
          <%Dim i = 0 : Do While i < rs.PageSize AndAlso Not rs.EOF%>
            <tr style="background-color:#FFFFFF" id="a<%=rs("M_userid").Value%>" class="mouse" onclick="trselect();this.className='select';admin.dnmb.value='<%=rs("M_userid").Value%>'" onmousedown="admin.more.disabled=false;admin.del.disabled=false;admin.cmd.disabled=false" ondblclick="show('<%=rs("M_userid").Value%>')"> 
              <td style="height:20; width:41%">&nbsp;<span title="<%=rs("C_name").Value%>"><%=Left(rs("C_name").Value, 10)%></span></td>
              <td style="width:20%"><div align="center"><%=rs("M_name").Value%></div></td>
              <td style="width:15%"><div align="center"><%=rs("M_sex").Value%></div></td>
              <td style="width:24%"><div align="center"><%=rs("M_Province").Value & rs("M_city").Value%></div></td>
            </tr>
          <%i += 1 : rs.MoveNext() : Loop%>
          </table>
        </div></td>
    </tr>
    <tr align="right"> 
      <td style="height:30" colspan="2">
<input name="dnmb" type="hidden" id="dnmb" />
        <input type="button" class="button1" value="上页"<%If (IsNull(Request("page"), 1)=1) Then%>disabled<%Else%>onClick="document.location.href='?page=<%=IsNull(Request("page"), 1)-1%>'"<%End If%> />
        <input type="button" class="button1" value="下页"<%If (IsNull(Request("page"), 1)>=rs.pagecount) Then%>disabled<%Else%>onClick="document.location.href='?page=<%=IsNull(Request("page"), 1)+1%>'"<%End If%> />
        <input name="more" type="button" disabled="disabled" class="button" id="more" onclick="show(document.admin.dnmb.value)" value="详细资料" />
        <input name="del" type="button" disabled="disabled" class="button1" id="del" onclick="document.location.href='?cmd=del&id='+admin.dnmb.value" value="删除" />
<SCRIPT>function showimage(obj){document.location.href='?ftype='+obj.options[obj.selectedIndex].value+'&cmd=add&id='+admin.dnmb.value}</script>
  <select name="cmd" id='cmd' onchange="onchange=showimage(this)" disabled="disabled">
  <option value="" selected="selected">请选择要移入的组</option>
    <option value="1" >移入到我的采购商</option>
    <option value="2">移入到我的供应商</option>
    <option value="3">移入到我的好友</option>
    <option value="4">移入到未分组商友</option>
  </select>
        <input type="button" class="button1" onclick="document.location.reload()" value="刷新" />
      </td>
    </tr>
    <tr>
      <td style="height:20" colspan="2" class="tddown">
	  <%=msg%>
      </td>
    </tr>
  </table>
</form>
</body>
<%Page_Loaded()%>
</html>
