.　缓存处理技术

				
				
				
				
				
				
				
				
				
								Response.Write Cnbbr_Head
				  With Response
					.Write "" & Vbcrlf
					.Write "  " & Vbcrlf
					.Write "   " & Vbcrlf
					 Disp_CnbbrCenterLeft
					.Write "   " & Vbcrlf
					.Write "   " & 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 "" & Vbcrlf
					.Write " " & Vbcrlf
					.Write "  "& Vbcrlf
					Cnbbr_MSGMenu 
					.Write "" & Vbcrlf
					.Write " " & Vbcrlf
					.Write " " & Vbcrlf
					.Write " " & 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="" & Vbcrlf
				   HelpList=HelpList & "撰写新信息" & Vbcrlf
				   HelpList=HelpList & "查看收件箱" & Vbcrlf
				   HelpList=HelpList & "返回上页" & Vbcrlf
				   HelpList=HelpList & "" & Vbcrlf
				   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
				else
					.Write " " & Vbcrlf
					.Write "  " & Vbcrlf
					.Write "         请节约每一分空间，及时删除无用的留言信息，谢谢！" & Vbcrlf
					.Write "       " & Vbcrlf
					.Write "        " & Vbcrlf
					.Write " 	收件人" & Vbcrlf
					.Write " 	留言主题" & Vbcrlf
					.Write " 	商品名称" & Vbcrlf
					.Write " 	日期" & Vbcrlf
					.Write " 	状态" & Vbcrlf
					.Write "       " & Vbcrlf
				
				   Do While Not rs.eof
				
					.Write""& vbcrlf
					.Write"" & vbcrlf
					.Write""& Vbcrlf
				
					if Rs("Ownerid")=0 then
					   .Write "系统消息"
					else
					   .Write""
				   	   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""& Vbcrlf
					.Write""& vbcrlf
					.Write""& rs("msgtitle") &""& vbcrlf
					.Write""& rs("aucitemtitle") &""& vbcrlf
					.Write""& rs("writedate") &""& vbcrlf
					.Write""
					if rs("msgstatus")=0 then .Write"未读"
					if rs("msgstatus")=1 then .Write"已读"
					if rs("msgstatus")=2 then .Write"已回复"
					.Write""& vbcrlf
					.Write""
				
				   rs.movenext
				   Loop
				
					.Write "  "& vbcrlf
					.Write "  "& vbcrlf
					.Write "" & vbcrlf
					.Write "" & vbcrlf
					.Write ""
					.Write MP.PageDispaly()
					.Write "" & vbcrlf
					.Write "" & vbcrlf
				
				
				End if
				
					.Write "     " & Vbcrlf
					.Write "    " & Vbcrlf
					.Write "   " & Vbcrlf
					.Write "   " & Vbcrlf
					.Write "  " & Vbcrlf
					.Write "" & Vbcrlf
				  End With
				
				Response.Write Cnbbr_Bottom
				%>