admin_contacts_set.asp

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

<!--#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">&nbsp;<INPUT TYPE="button" onclick="gotodate('<%=Date()%>','c')" value="执行操作"></td></tr>
		<tr>
		<td class="art_tit zq" colspan=2><B>分类清理</B>
		&nbsp;</td></tr>
		<tr> 
		<td class="art_info2 zq">清除指定日期之前的信息：</td>
		<td class="art_info2">&nbsp;<input type="text" name="d1" readonly style="width:80px;" onclick="setday(this)" value="<%=Date()%>">&nbsp;<INPUT TYPE="button" onclick="gotodate(d1.value,'a')" value="执行操作"></td></tr>
		<tr> 
		<td class="art_info2 zq">清除指定日期之后的信息：</td>
		<td class="art_info2">&nbsp;<input type="text" name="d2" readonly style="width:80px;" onclick="setday(this)" value="<%=Date()%>">&nbsp;<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
%>