www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_Contacts_set.asp
<!--#include file="../conn.asp"--> <!--#include file="../inc/inc.asp"--> <!--#include file="inc/inc.asp"--> <!--#include file="common/admin_Contacts_inc.asp"--> <% HTMLother= script("cert_date","../js") res w3chead(HTMLother),1 Login_Judge nowtit="通讯录" powerid=113 Dim d1,userid,UserName Dim sqlinfos action=che(request("action")) id=che(request("id")) types = che(request("types")) d1 = che(request("d1")) userid = che(request("userid")) UserName = che(request("UserName")) If action="del" Then Select Case types Case "a" sqlinfos="datediff('d',addtime,'"&d1&"') > 0" Case "b" sqlinfos="datediff('d',addtime,'"&d1&"') < 0" Case "c" sqlinfos="user_id<>0 " End Select sqldel "Contacts_info",sqlinfos rightmsg "?","" ElseIf action="delall" Then isn id,"id",1 sqldel "Contacts_info","type_id in ("&id&")" isn id,"id",1 sqldel "Contacts_type",id rightmsg "?action=continfo","已成功删除指定记录!" ElseIf action="" Then Ispower powerid & "2" restit nowtit,infotit(0) nowmenu %> <SCRIPT LANGUAGE="JavaScript"> <!-- function gotodate(x,y){ location.href="?action=del&types="+y+"&d1="+x; } //--> </SCRIPT> <table width="100%" cellspacing="1" cellpadding="0" class="info_tab"> <tr> <td class="art_info2 zq" width="30%">删除所有通讯录信息</td> <td class="art_info2"> <INPUT TYPE="button" onclick="gotodate('<%=Date()%>','c')" value="执行操作"></td></tr> <tr> <td class="art_tit zq" colspan=2><B>分类清理</B> </td></tr> <tr> <td class="art_info2 zq">清除指定日期之前的信息:</td> <td class="art_info2"> <input type="text" name="d1" readonly style="width:80px;" onclick="setday(this)" value="<%=Date()%>"> <INPUT TYPE="button" onclick="gotodate(d1.value,'a')" value="执行操作"></td></tr> <tr> <td class="art_info2 zq">清除指定日期之后的信息:</td> <td class="art_info2"> <input type="text" name="d2" readonly style="width:80px;" onclick="setday(this)" value="<%=Date()%>"> <INPUT TYPE="button" onclick="gotodate(d2.value,'b')" value="执行操作"> </td></tr> </table> <% ElseIf action="continfo" Then Ispower powerid & "1" restit nowtit,infotit(0) nowmenu const MaxPerPage=10 searchinfo continfo End If res footer(1),0 %>