cnbbrmsg_send.asp

. 缓存处理技术

<!--#include file="top_cnbbr.asp"-->
<!--#include file="chksession.asp"-->
<!--#include file="inc/mypage.asp"-->

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<!--#include file="cnbbrmsg_menu.asp"-->

<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
Response.Write Cnbbr_Head
  With Response
	.Write "<table width="""& Sys_BodyCenterWidth &""" border=""0"" cellspacing=""0"" cellpadding=""0""  align=""center"" class=""td"">" & Vbcrlf
	.Write "  <tr>" & Vbcrlf
	.Write "   <td width=""150"" align=""left"" valign=""top"" class=td>" & Vbcrlf
	 Disp_CnbbrCenterLeft
	.Write "   </td>" & Vbcrlf
	.Write "   <td align=""left"" valign=""top"" class=td>" & Vbcrlf

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||###|[menu]|站内短信||[menu]||cnBBRMsg_Send.asp|[menu]|发件箱"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

	.Write "<table border=0 cellpadding=1 cellspacing=1 width=""98%"" align=center>" & Vbcrlf
	.Write " <tr class=td>" & Vbcrlf
	.Write "  <td align=center>"& Vbcrlf
	Cnbbr_MSGMenu 
	.Write "</td>" & Vbcrlf
	.Write " </tr>" & Vbcrlf
	.Write " <tr class=td>" & Vbcrlf
	.Write " <td align=center>" & Vbcrlf

Dim MP
set MP= New mypage
set rs = MP.Execute("select msg.msgid,msg.aucid,msg.msgtitle,msg.content,msg.writedate,msg.writerid,msg.ownerid,msg.reply,msg.msgstatus,auctions.aucid as aucid,auctions.aucitemtitle from msg left join auctions on auctions.aucid = msg.aucid where msg.writerid="& Request.Cookies(super_user)("uid") &" and Sender_DelMsg=0 order by Msg.WriteDate Desc",conn,jsPerPage)
CnbbrConnTimes
if rs.eof then
   HelpTitle="出错了！"
   HelpInfo="对不起，系统没有找到你发送的站内短信息！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""CnbbrMSG_Write.asp"">撰写新信息</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""CnbbrMSG_Receive.asp"">查看收件箱</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   HelpList=HelpList & "</Ul>" & Vbcrlf
   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
else
	.Write " <table align=center cellpadding=0 cellspacing=1 width=100% border=0 class=tablebg>" & Vbcrlf
	.Write "  <form name=form1 action=""del.asp"" method=post>" & Vbcrlf
	.Write "       <tr><td width=100% class=td colspan=6><input name=deltrue type=button value=""确定删除"" OnClick=""return DelTrue(this.form,'del.asp')"">&nbsp;&nbsp;<marquee width=498 DIRECTION=left SCROLLDELAY=90 SCROLLAMOUNT=1 align=right>请节约每一分空间，及时删除无用的留言信息，谢谢！</marquee></td></tr>" & Vbcrlf
	.Write "       <tr class=titletd>" & Vbcrlf
	.Write "        <td width=3% align=center><input type=""checkbox"" name=""chkAll"" value=""on"" onClick=""CheckAll(this.form)""></td>" & Vbcrlf
	.Write " 	<td width=15% align=center>收件人</td>" & Vbcrlf
	.Write " 	<td width=32% align=center>留言主题</td>" & Vbcrlf
	.Write " 	<td width=27% align=center>商品名称</td>" & Vbcrlf
	.Write " 	<td width=10% align=center>日期</td>" & Vbcrlf
	.Write " 	<td width=8% align=center>状态</td>" & Vbcrlf
	.Write "       </tr>" & Vbcrlf

   Do While Not rs.eof

	.Write"<tr class=td>"& vbcrlf
	.Write"<td align=center><input name=id type=checkbox value="& rs("msgid") &"></td>" & vbcrlf
	.Write"<td align=center>"& Vbcrlf

	if Rs("Ownerid")=0 then
	   .Write "系统消息"
	else
	   .Write"<a href=displayuser.asp?uid="& Rs("Ownerid") &">"
   	   Dim RsUser
	   sql="select regusername from users where regid="& rs("Ownerid")
	   set rsuser=conn.execute(sql)
	   CnbbrConnTimes
	   if rsuser.eof then
	     .Write "无此用户"
	   else
	     .Write rsuser("regusername")
	   end if
	end if
	.Write"</a>"& Vbcrlf
	.Write"</td>"& vbcrlf
	.Write"<td align=left><a href=displaymsg.asp?msgid="& rs("msgid") &">"& rs("msgtitle") &"</a></td>"& vbcrlf
	.Write"<td align=left><a href=aucinfo.asp?aucid="& rs("aucid") &">"& rs("aucitemtitle") &"</a></td>"& vbcrlf
	.Write"<td align=center>"& rs("writedate") &"</td>"& vbcrlf
	.Write"<td align=center>"
	if rs("msgstatus")=0 then .Write"未读"
	if rs("msgstatus")=1 then .Write"已读"
	if rs("msgstatus")=2 then .Write"<a href=""DisplayMsg.asp?MsgID="& Rs("Reply") &""">已回复</a>"
	.Write"</td>"& vbcrlf
	.Write"</tr>"

   rs.movenext
   Loop

	.Write "  <input name=act type=hidden value=ly>"& vbcrlf
	.Write "  </form>"& vbcrlf
	.Write "</table>" & vbcrlf
	.Write "<table cellpadding=0 cellspacing=1 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
	.Write "<tr class=td><td width=100% align=center>"
	.Write MP.PageDispaly()
	.Write "</td></tr>" & vbcrlf
	.Write "</table>" & vbcrlf


End if

	.Write "     </td>" & Vbcrlf
	.Write "    </tr>" & Vbcrlf
	.Write "   </table>" & Vbcrlf
	.Write "   </td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "</table>" & Vbcrlf
  End With

Response.Write Cnbbr_Bottom
%>