admin_smusicdel.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<!--#include file="function.asp"-->
<%CheckAdmin2%>
<!--#include file="conn.asp"-->
<%
action=trim(Request.QueryString ("action"))
if action="" then
	sql="delete from SendMusic where id="&request("ID")
	conn.execute(sql)
elseif action="deldate" then
	thisdate=date()
	selectdate=trim(Request.Form ("selectdate"))
	if selectdate="" then selectdate=0
	selectdate=int(selectdate)
	conn.execute("delete * from SendMusic where datediff('d',datevalue(dateandtime),#"& thisdate &"#)>"& selectdate)
elseif action="delweek" then
	thisdate=date()
	conn.execute("delete * from SendMusic where datediff('d',datevalue(dateandtime),#"& thisdate &"#)>7")
elseif action="delmonth" then
	thisdate=date()
	conn.execute("delete * from SendMusic where datediff('d',datevalue(dateandtime),#"& thisdate &"#)>30")
end if	
conn.close
set conn=nothing
page=request("page")
response.redirect "admin_SMusicMana.asp?page="& page
%>