📄 message.asp
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%
dim body
if request("action")="del" then
call del()
elseif request("action")="delall" then
call delall()
elseif request("action")="delchk" then
call delchk()
else
call sendmsg()
end if
if body <> "" then
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF"><%=body%></TD>
</TR>
</TABLE>
<%
end if
conn.close
set conn=nothing
sub sendmsg()
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4">
<tr>
<TD bgcolor="#D1E3BF" align=center><B>短消息管理</b></td>
</tr>
<form action="message.asp?action=del" method=post>
<tr bgcolor="#FFFFFF">
<td align="center">
批量删除:用户<input type="text" name="username" size="20">发送的短消息
</td>
</tr>
<tr bgcolor="#F5F5F5">
<td align="center">
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
</form>
<form action="message.asp?action=delall" method=post>
<tr bgcolor="#FFFFFF">
<td align="center">
批量删除:<select name="delDate">
<option value=7>一个星期前</option>
<option value=30>一个月前</option>
<option value=60>两个月前</option>
<option value=180>半年前</option>
<option value="all">所有信息</option>
</select>的短消息(<input type="checkbox" name="isread" value="yes">包括未读短消息)
</td>
</tr>
<tr bgcolor="#F5F5F5">
<td align="center">
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
</form>
<form action="message.asp?action=delchk" method=post>
<tr bgcolor="#FFFFFF">
<td align="center" >
批量删除:在<select name="selaction">
<option value=1>标题</option>
<option value=2>内容</option>
</select>
中含有关键字<input type="text" name="keyword" size=20>的短消息
</td>
</tr>
<tr bgcolor="#F5F5F5">
<td align="center">
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
<TR bgcolor="#DDDDDD" height="3"><TD></TD></TR>
</form>
</TABLE>
<%
end sub
sub del()
if request("username")="" then
body=body+"<li>"+"请输入要批量删除的用户名"
exit sub
end if
Set rs = Conn.Execute("select userid from sf_user where username = '" & request("username") & "'")
if not rs.bof and not rs.eof then
userid = rs("userid")
else
body=body+"<li>"+"该用户不存在"
exit sub
end if
rs.close
sql="delete from sf_privatemessage where fromuserid= "& userid &""
conn.Execute(sql)
body="操作成功!"
end sub
sub delall()
dim selflag
if request("isread")="yes" then
selflag=""
else
selflag=" and messageread = 1"
end if
select case request("delDate")
case "all"
sql="delete from sf_privatemessage where id>0 "&selflag
case 7
sql="delete from sf_privatemessage where datediff('d',dateline,Now())>7 "&selflag
case 30
sql="delete from sf_privatemessage where datediff('d',dateline,Now())>30 "&selflag
case 60
sql="delete from sf_privatemessage where datediff('d',dateline,Now())>60 "&selflag
case 180
sql="delete from sf_privatemessage where datediff('d',dateline,Now())>180 "&selflag
end select
conn.Execute(sql)
body="操作成功!"
end sub
sub delchk()
if request.form("keyword")="" then
body=body+"<li>"+"请输入关键字"
exit sub
end if
if request.form("selaction")=1 then
conn.execute("delete from sf_privatemessage where title like '%"&replace(request.form("keyword"),"'","")&"%'")
body="操作成功!"
elseif request.form("selaction")=2 then
conn.execute("delete from sf_privatemessage where message like '%"&replace(request.form("keyword"),"'","")&"%'")
body="操作成功!"
else
body=body+"<li>"+"未指定相关参数"
exit sub
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -