www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/common/admin_Contacts_inc.asp
<% '**************************************************** '名称: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"> 姓名:<INPUT TYPE="text" NAME="UserName"> <INPUT TYPE="hidden" NAME="action" value="continfo"><INPUT TYPE="submit" value="查询"> <%If userid<>"" Then response.write "<BR> 当前查询帐号:"&userid sqlinfos=" and c.stuid like '%"&userid&"%' " end if If UserName<>"" Then response.write "<BR> 当前查询姓名:"&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 %>