admin_msg.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 295 行
ASP
295 行
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "default.asp"
end if
%>
<%
if request("action")="add" then
set rs=server.createobject("adodb.recordset")
        set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_message", conn, 1, 3
rs.addnew
rs("user_id")=trim(session("admin_name"))
rs("to_user")=trim(request("to_user"))
rs("subject")=trim(request("subject"))
rs("msg")=trim(request("msg"))
rs("idate")=now()
rs.update
rs.close
url="admin_msg.asp?a=list"
response.write "<br><br><br><center><font size=-1>成功发送,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
end if%>
<%
'开始删除操作
if request("action")="del" then
        id=request("id")
conn.execute "delete * from 56770_message where id=" & id
url="admin_msg.asp?a=list"
response.write "<br><br><br><center><font size=-1>成功删除,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
end if
%>
<%
'开始删除操作
if request("action")="delre" then
conn.execute "delete * from 56770_message where ifre=1 or (ifview=1 and now()-idate>30) or to_user='admin'"
url="admin_msg.asp?a=list"
response.write "<br><br><br><center><font size=-1>成功删除,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
end if
%>
<%
if request("action")="re" then
to_user=request("user_id")
user_id=session("admin_name")
subject=request("subject")
ifre=1
msg=replace(request("msg"), ">", "&gt;")
msg=replace(msg, "<", "&lt;")
msg=replace(msg, "'","’")
conn.execute "insert into 56770_message (subject,msg, idate, to_user, user_id)values('"&subject&"', '"&msg&"', '"&now()&"', '"&to_user&"', '"&user_id&"')"
conn.execute "update 56770_message set ifre='1' where id="&request("id")
url="admin_msg.asp?a=list"
response.write "<br><br><br><center><font size=-1>成功回复,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
end if
%>
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr bgcolor="#FFCC33">
<td height="27" background="images/admin_bg_1.gif" bgcolor="#FFFFFF">.:: 您可以在这里进行站内短消息相关操作</td>
</tr>
</table>
<%if request("a")="list" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr bgcolor="#B0CBE6">
<td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?a=add"><font color=red>发送站内短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?a=list"><font color=red>接收的短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?user_id=<%=session("admin_name")%>&a=list"><font color=red>发出的短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?action=delre"><font color=red>删除已读短信</font></a>]</td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr bgcolor="#B0CBE6" align="center">
<td bgcolor="#6699CC" width="7%">ID </td>
<td bgcolor="#6699CC" width="11%">发信ID</td>
<td bgcolor="#6699CC" width="11%">接受ID</td>
<td bgcolor="#6699CC" width="31%">短信标题</td>
<td bgcolor="#6699CC" width="20%">日期</td>
<td colspan="2" bgcolor="#6699CC">相应操作</td>
</tr>
<%
if request("user_id")<>"" then
   sql="select * from 56770_message where user_id='"&request("user_id")&"' order by id desc"
else
   sql="select * from 56770_message where to_user='管理员' order by id desc"
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if rs.eof then 
response.write""
else
if not isempty(request("page"))then
        pagecount=cint(request("page"))
else
        pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<tr bgcolor="#B0CBE6" align="center">
<td width="7%"><%=rs("id")%></td>
<td width="11%"><%=rs("user_id")%></td>
<td width="11%"><%=rs("to_user")%></td>
<td width="31%"><%=rs("subject")%></td>
<td width="20%"><%=formatdatetime(rs("idate"),vbshortdate)%></td>
<td width="10%">[<a href="admin_msg.asp?action=del&id=<%=rs("id")%>&page=<%=cstr(pagecount)%>"  onclick="checkclick('确定要删除吗？')">删除</a>]</td>
<td width="10%">
<%if rs("ifre")="0" then
response.write " [<a href=""admin_msg.asp?a=re&id="&rs("id")&" "">回复</a>]"
else
        response.write "[<font color=#FF0000>已回复</font>]"
end if
%>
</td>
</tr>
<%
rs.movenext
i=i+1
if i >= rs.pagesize then exit do
        loop
%>
<tr bgcolor="#D6DFF7">
<form action="admin_msg.asp?a=list" method="post">
<td height="35" colspan="7">
<div align="center"> 共 <b><%=rs.recordcount%></b> 条信息, 页次:<b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>, 
当前从第
<%
if pagecount <= 1 then
        response.write "<font color=red>1</font>"
else
        response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>
张开始。
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="admin_msg.asp?a=list&user_id=<%=request("user_id")%>&to_user=<%=request("to_user")%>&page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="admin_msg.asp?a=list&user_id=<%=request("user_id")%>&to_user=<%=request("to_user")%>&page=<%=cstr(pagecount-1)%>">上一页</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="admin_msg.asp?a=list&user_id=<%=request("user_id")%>&to_user=<%=request("to_user")%>&page=<%=cstr(pagecount-1)%>"> 上一页</a>
 <a href="admin_msg.asp?a=list&user_id=<%=request("user_id")%>&to_user=<%=request("to_user")%>&page=<%=cstr(pagecount+1)%>">
下一页</a>
<% end if%>
&nbsp; 直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="Go">
</div>
</td>
</form>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
end if
%>
<%
if request("a")="add" then
%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr bgcolor="#B0CBE6">
<td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?a=add"><font color=red>发送站内短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?a=list"><font color=red>接收的短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?user_id=<%=session("admin_name")%>&a=list"><font color=red>发出的短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?action=delre"><font color=red>删除已读短信</font></a>]</td></tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#6699CC" align="center">
<form action="admin_msg.asp" method="post" name="add">
<tr>
<td bgcolor="#B0CBE6" width="20%">用户ID</td>
<td bgcolor="#B0CBE6" width="80%"><input type="text" name="to_user" class="form" value="<%=request("user_id")%>"></td>
</tr>
<tr>
<td bgcolor="#B0CBE6" width="20%">标题：</td>
<td bgcolor="#C0D6EB" width="80%">
<input type="text" name="subject" class="form">
</td>
</tr>
<tr>
<td bgcolor="#B0CBE6" width="20%">内容：</td>
<td bgcolor="#C0D6EB" width="80%">
<textarea name="msg" cols="60" rows="6" class="form" >
</textarea>
</td>
</tr>

<tr align="center">
<td bgcolor="#B0CBE6" colspan="2">
<input type="submit" name="Submit" value="回复" onClick="checkclick('确定要发送吗？')">
<input type="hidden" name="action" value="add">
<input type="submit" name="Submit2" value="重置">
</td>
</tr>

</form>
</table>
<%end if%>
<%
if request("a")="re" then
id=request("id")
set rss=server.createobject("ADODB.Recordset")
sql="select * from 56770_message where id="&id
rss.open sql, conn, 1, 3
msg=rss("msg")
subject=rss("subject")
user=rss("user_id")
rss.close
set rss=nothing
%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr bgcolor="#B0CBE6">
<td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?a=add"><font color=red>发送站内短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?a=list"><font color=red>接收的短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?user_id=<%=session("admin_name")%>&a=list"><font color=red>发出的短信</font></a>]</td><td bgcolor="#6699CC" align="center" height="25">[<a href="admin_msg.asp?action=delre"><font color=red>删除已读短信</font></a>]</td></tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#6699CC" align="center">
<form action="admin_msg.asp" method="post" name="remsg">
<%
if id<>"" then
        set rs=server.createobject("ADODB.Recordset")
sql="select msg,subject, idate, to_user, user_id, ifre, ifview from 56770_message where id=" & id
rs.open sql, conn, 3, 3
rs("ifview")=1
rs.update
subject=rs("subject")
reuser="回复人："&rs("to_user")
user=rs("user_id")
user_id=rs("user_id")
to_user=rs("to_user")
msg=rs("msg")
idate=rs("idate")
rs.close
set rs=nothing
end if%>
<tr>
<td height="25" colspan="2">
<%=idate%>，<%=user%>给您发送的消息！
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#6699CC" align="center">
<tr>
<td bgcolor="#B0CBE6" width="20%">标题：</td>
<td bgcolor="#C0D6EB" width="40%">
<input type="text" name="subject" size="35" value="<% response.write"Re "&subject %>" >
</td>
<td bgcolor="#B0CBE6" width="20%">会员ID：</td>
<td bgcolor="#C0D6EB" width="20%">
<input type="text" name="to_user" value="<%=user_id%>" >
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#6699CC" align="center">
<tr>
<td bgcolor="#B0CBE6" width="20%">内容：</td>
<td bgcolor="#C0D6EB" width="80%">
<textarea name="msg" cols="60" rows="10">
RE>:




-----在 <%=idate%> 您来信中写道：----
<%=server.htmlencode(msg)%>
</textarea>
</td>
</tr>

<tr align="center">
<td bgcolor="#B0CBE6" colspan="2">
<input type="submit" name="Submit" value="回复" onClick="checkclick('确定要发送吗？')">
<input type="hidden" name="action" value="re">
<input type="submit" name="Submit2" value="重置">
<input type="hidden" name="user_id" value="<%=user%>">
<input type="hidden" name="id" value="<%=id%>">
</td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>
admin_msg.asp - 源码说明

本页面展示了「能进行网上购物的需求」中的 admin_msg.asp 源码文件，采用 ASP 编程语言编写，共 295 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与网上购物相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?