admin_contacts_inc.asp

内含全国3621个火车站,2204次列车时刻表

<%


'****************************************************
'名称:nowmenu
'功能:管理快捷菜单
'****************************************************
Sub nowmenu()
res "<h4><b>相关操作：</b>",1
res "<a href=""?action=continfo"">通讯录统计</a> | ",1
res "<a href=""?"">通讯录清理</a>",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub


Sub continfo()
%><table width="100%" cellspacing="1" cellpadding="0" class="info_tab2">
  		<tr align="center">
			<th width="5%">选</th>
			<th width="30%">用户帐号</th>
			<th width="20%">分类名称</th>
			<th width="10%">联系人数</th>
			<th></th>
			</tr>
	<%
	Sql = "SELECT a.user_id,Contacts_name,count(a.user_id) as user_count,a.id FROM Contacts_type as a,Contacts_info as b,admin_stu as c where c.id=b.user_id and type_id=a.id"&sqlinfos&" group by a.user_id,Contacts_name,a.id"
	strFileName="?action="&action&"&userid="&userid&"&d1="&UserName&"&d2="&UserName
	colnum="5"
	formaction="?action=delall"
	sqllist sql,colnum,strFileName,formaction 
	If outcom=True Then
	showContent
	showdelpages
	End If
	%>
	</table>
	
	<%
End Sub 

Sub searchinfo()
%><h3><FORM METHOD=get ACTION="">
	<fieldset style="padding: 2;border: #ccc 1px solid; width:99%;margin-left:5px;">
	<legend style="border: #ccc 1px solid;"><span style="margin-right:20px;">搜 索 相 关 信 息</span></legend>
	帐号:<INPUT TYPE="text" NAME="userid">&nbsp;&nbsp;姓名:<INPUT TYPE="text" NAME="UserName">&nbsp;<INPUT TYPE="hidden" NAME="action" value="continfo"><INPUT TYPE="submit" value="查询">
	<%If userid<>"" Then
			response.write "<BR>&nbsp;&nbsp;&nbsp;当前查询帐号:"&userid
			sqlinfos=" and c.stuid like '%"&userid&"%' "
		end if 
		If UserName<>"" Then
			response.write "<BR>&nbsp;&nbsp;&nbsp;当前查询姓名:"&UserName
			sqlinfos=sqlinfos&" and c.[name] like '%"&UserName&"%' "
		End If%>
　</fieldset>
</FORM>
<BR></h3>
<%
end Sub

sub showContent
	dim i
	i=0
	Do While Not rs.eof
		%>
	<tr>
	<td align="center"> <input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=rs(3)%>' style=" border: 0px"> 
			</td>
	<td><%=stus_names(rs(0))%></td>
	<td><%=rs(1)%></td>
	<td><%=rs(2)%></td>
	</tr>
		
	<% 
		i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
	loop	
end sub 
%>