usermesr.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
	action=Trim(Request("action"))
	if action="del" then
		mSql="Delete from mesDetail where ID="&Trim(Request("ID"))
		conn.execute(mSql)
	end if
%>
<%
'限制添加权限管理员
if session("rank")=2 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE4 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td height="20" background="images/topbg.gif"><span class="STYLE4"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">站内短信管理</span></span></td>
  </tr>
  <tr> 
    <td height="168" bgcolor="#FFFFFF"> 
		<%
		mSql="select * from mesDetail order by ReplyTime desc"
		set mRs=conn.execute(mSql)
		if not (mRs.eof and mRs.bof) then
					while not mRs.eof 
		%>
		<table width="99%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
          <tr>
            <td width="11%" background="images/topbg.gif"><strong>用户名</strong></td>
            <td width="26%" bgcolor="#FFFFFF"><%
				UserID=""
				UserName=""
				mSql=""
				mSql="select UserID,UserName from [User] where UserID="&mRs("UserID")
				set tRs=conn.execute(mSql)
				if not (tRs.eof and tRs.bof) then
					UserID=tRs("UserID")
					UserName=tRs("UserName")
					end if
				response.write UserName
				tRs.close
				set tRs=nothing
			%></td>
            <td width="18%" background="images/topbg.gif"><strong>发布日期</strong></td>
            <td width="45%" bgcolor="#FFFFFF"><%response.write mRs("Replytime")%></td>
          </tr>
          <tr>
            <td background="images/topbg.gif"><strong>发布内容</strong></td>
            <td height="50" colspan="3" bgcolor="#FFFFFF">
			<%
			response.write mRs("ReplyContent")%>			</td>
          </tr>
          <tr>
            <td colspan="4" align="right" bgcolor="#FFFFFF"><a href="usermesr.asp?action=del&ID=<%response.write mRs("ID")%>"><img src="images/pic22.gif" width="17" height="15" border="0" align="absmiddle" />删除</a> <a href="#" onClick="window.open('addmes.asp?mesID=<%=mRs("ID")%>&second=true&UserID=<%=UserID%>','','width=580,scrollbars=yes,height=380')"><img src="images/pic19.gif" width="18" height="15" border="0" align="absmiddle" />回复</a></td>
          </tr>
        </table>
		<br>
		<%
				mRs.movenext
			wend
		end if
		mRs.close
		set mRs=nothing
		%>
</td>
  </tr>
</table>