www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > template_a/page_admin_user_list.html.asp

    <!-- #include file="page_admin_user_header.html.asp" -->             
<!-- ##### 主栏目开始 ##### --->
<%Call ActionView(CONST_ACTION_FUNC)%>
<div id="main_menu">
	<table id="main_menu_title" width="100%"  border="0" cellspacing="2" cellpadding="0">
		<tr>
			<td class="main_menu_img"><a><div id="menu_img_add" name="menu_img_add" class="img_add"><span class="alt">[ +/- img ]</span></div></a></td>
		  <td class="main_menu_buttom" id="menu_search" name="main_menu_buttom">
				<a onclick="ShowMainSearch()" href="#">条件搜索</a>
			</td>
		  <td class="main_menu_buttom" id="main_menu_buttom" name="main_menu_buttom">
			</td>
			<td class="main_menu_buttom" id="menu_batch" name="main_menu_buttom">
			
			</td>
			<td class="main_menu_buttom" id="main_menu_buttom" name="main_menu_buttom">
			
			</td>
		  <td>&nbsp;</td>
		</tr>
	</table>

<div id="main_menu_content">
<div id="main_menu_search" style="display:block;">
	<form method="post" action="">
	<table width="100%"  border="0" cellspacing="4" cellpadding="0">
	<tr>
		<td width="20%">查询通配符:</td>
		<td colspan="3">用*代替要模糊查询的部分,如查询c开头的校友,可以填写c*,然后提交查询</td>
	</tr>
	<tr>
		<td width="20%">注册名:</td>
		<td width="30%">
			<input type="text" name="iptAccount" class="text" value="<%=Request("iptAccount")%>" />		</td>
		<td width="20%">姓名:</td>
		<td width="30%">
			<input type="text" name="iptRealName" class="text" value="<%=Request("iptRealName")%>" />		</td>
	</tr>
	
	<tr>
		<td width="20%">班级:</td>
		<td width="30%">
			<input type="text" name="iptClass" class="text" value="<%=Request("iptClass")%>" />		</td>
		<td width="20%">QQ号:</td>
		<td width="30%">
			<input type="text" name="iptQQ" class="text" value="<%=Request("iptQQ")%>" />		</td>
	</tr>

	<tr>
		<td width="20%">邮箱:</td>
		<td width="30%">
			<input type="text" name="iptEmail" class="text" value="<%=Request("iptEmail")%>" />		</td>
		<td width="20%">电话:</td>
		<td width="30%">
			<input type="text" name="iptTele" class="text" value="<%=Request("iptTele")%>" />		</td>
	</tr>

	<tr>
		<td width="20%">工作行业:</td>
		<td width="30%">
			<input type="text" name="iptWork" class="text" value="<%=Request("iptWork")%>" />		</td>
		<td width="20%">工作单位:</td>
		<td width="30%">
			<input type="text" name="iptWorkShop" class="text" value="<%=Request("iptWorkShop")%>" />		</td>
	</tr>

	<tr>
		<td width="20%">性别:</td>
		<td width="30%">
			<select name="selSex">
				<%
				Dim strS : strS = Request("selSex")
				If strS <> "" Then
				%>
					<option value="<%=strS%>"><%=strS%></option>
				<%
				End If
				%>
				<option value="">所有</option>
				<option value="男">男</option>
				<option value="女">女</option>
			</select></td>
		<td width="20%">入学年份:</td>
		<td width="30%">
			<input type="text" name="iptEnroll" class="text" value="<%=Request.Form("iptEnroll")%>" />		</td>
	</tr>

	<tr>
		<td width="20%">用户身份:</td>
		<td width="30%">
			<select name="selAuthen">
				<%
				Dim strA : strA = Request("selAuthen")
				Dim strAA
				If strA = "0" Then
					strAA = "正式用户"
				ElseIf  strA = "8" Then
					strAA = "未批准用户"
				Else
					strAA = "具有贴吧总版主身份的正式用户"
				End If
				If strA <> "" Then
				%>
					<option value="<%=strA%>"><%=strAA%></option>
				<%
				End If
				%>
				<option value="">所有</option>
				<option value="0">正式用户</option>
				<option value="8">未批准用户</option>
				<option value="1">具有贴吧总版主身份的正式用户</option>
			</select></td>
		<td width="20%"></td>
		<td width="30%">
		</td>
	</tr>

	<tr>
			<td>&nbsp;</td>
			<td>&nbsp;</td>
			<td><input id="submit" name="submit" type="submit" value="搜索"  /></td>
			<td><input type="reset" name="reset" value="重来" /></td>
	</tr>
	</form>
</table>
</div>
</div>
</div>

<div id="main_content">
	<div id="main_content_title">
		<div class="note">用户列表</div>	
	</div>
	<div id="main_content_list">	
		<table class="main" width="100%"  border="0" cellspacing="1" cellpadding="0">
		<form name="vbfrom" id="vbform" action="admin_user_del.asp" method="post">
		<input  name="med" type="hidden" value="del" />
			<tr id="main_list_index">
				<td width="2%" align="center">
					<input class="checkbox" onclick="CheckAll(this.form,this)" id="topcheckall" name="topcheckall" type="checkbox" value="" /></td>
				<td width="5%">序号</td>
				<td  width="10%">注册名</td>
				<td  width="10%">姓名</td>
				<td >班级</td>
				<td>工作行业</td>
				<td >访问次数</td>
				<td>最近登陆</td>
				<td width="6%">身份</td>
				<td width="6%">贴吧</td>
				<td width="5%">密码</td>
				<td width="5%">详细</td>      			
			</tr>
			<% 
If IsObject(TAG_objRS) Then 
Dim i : i = 0 
Do While Not TAG_objRS.Eof %>

			<tr onmouseover="LineMouseOver(this)" onmouseout="LineMouseOut(this,<%=i+1%>)" onmousedown="LineMouseDown(this,<%=i+1%>)" class="<%=TrStyleSet(i)%>">
				<td align="center">
				<input name="selId" type="checkbox" class="form_checkbox" id="selId" value="<%=TAG_objRS("USER_ID")%>" /></td>
				<td><%=i+1%></td>
				<td><%=TAG_objRS("USER_ACCOUNT")%></td>
				<td><%=TAG_objRS("USER_REALNAME")%></td>
				<td><%=TAG_objRS("USER_CLASS")%></td>
				<td><%=TAG_objRS("USER_WORK")%></td>
				<td><%=TAG_objRS("USER_LOGIN_COUNT")%></td>
				<td><%=TAG_objRS("USER_LAST_TIME")%></td>
				<td><%
					If TAG_objRS("USER_AUTHEN") = 8 Then
						Response.Write "<font color=red>未批准</font>"
					Else
						Response.Write "正式"
					End If
					%></td>
				<td><%
					If TAG_objRS("USER_AUTHEN") = 1 Then
						Response.Write "<font color=red>总版主</font>"
					Else
						Response.Write "非总版主"
					End If
					%></td>
				<td><a href="admin_user_passmdy_form.asp?UserAccount=<%=TAG_objRS("USER_ACCOUNT")%>&intUserId=<%=TAG_objRS("USER_ID")%>">修改</a></td>
				<!-- <td><%=GetUserAuthLogic(TAG_objRS("USER_AUTHEN"))%></td> -->
				<td align="center"><a class="setting" href="admin_user_detail.asp?intUserId=<%=TAG_objRS("USER_ID")%>">详细</a></td>				 
			</tr>		
			
<% 
	i = i + 1 
	If i >= TAG_intPerPage Then  Exit Do 
	TAG_objRS.MoveNext
Loop
If IsObject(TAG_objRS) Then

	TAG_objRS.Close() 
	Set TAG_objRS = Nothing 
End If
End If
%>	
<input type="hidden" name="intPageNow" value="<%=TAG_intPageNow%>"  />

			<tr class="selectall">
				<td colspan="12">
					<input class="checkbox" onclick="CheckAll(this.form,this)" id="bottomcheckall" name="bottomcheckall" type="checkbox" value="" /> 全选
					<input type="button" value="删除用户" class="submit" onclick="return CheckSelChkBox(this.form,'你确认删除所选用户?');" />
					&nbsp;<input type="button" value="批准用户" class="submit" onclick="vbform.med.value='acc';return CheckSelChkBox(this.form,'你批准所选用户为正式成员?');" />
					&nbsp;<input type="button" value="设为贴吧总版主" class="submit" onclick="vbform.med.value='master';return CheckSelChkBox(this.form,'你设所选用户为贴吧总版主?');" />
					&nbsp;<input type="button" value="解除设为贴吧总版主" class="submit" onclick="vbform.med.value='unmaster';return CheckSelChkBox(this.form,'你解除所选用户为贴吧总版主?');" />
				</td>
			</tr>
			<tr class="selectall">
				<td colspan="12">
					<a class="setting"  href="admin_user_statistics.asp?method=board" onclick="return confirm('您确认进行该操作吗?');" />[重新统计用户留言数]</a>
					&nbsp;<a class="setting"  href="admin_user_statistics.asp?method=album" onclick="return confirm('您确认进行该操作吗?');" />[重新统计用户相册数]</a>
					&nbsp;<a class="setting" href="admin_user_statistics.asp?method=forum" onclick="return confirm('您确认进行该操作吗?');" />[重新统计用户发贴数]</a>
					&nbsp;<a class="setting" href="admin_user_statistics.asp?method=level" onclick="return confirm('您确认进行该操作吗?');" />[重新统计用户积分]</a>
				</td>
			</tr>
		</form>
		</table>		    
	</div>
	<div id="main_content_foot">
		<div class="pagination"><%=TAG_strPageNav%></div>
	</div>
</div>

<!-- ##### 主栏目结束 ##### -->   
<!-- #include file="page_admin_footer.html.asp" -->