bbrhome.asp

. 缓存处理技术

<!-- #include file="top_Cnbbr.asp" -->
<!-- #include file="chksession.asp" -->

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<%
  sql="select * from users where regid="& Request.Cookies(super_user)("uid")
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if Rs.Eof then Call AlertInfo("出错了，用户不存在或者还没有登陆！","index.asp",1)

Response.Write Cnbbr_head
     With Response
 	.Write "<table border=0 cellpadding=0 cellspacing=0 width="""& Sys_BodyCenterWidth &""" align=center class=td>" & Vbcrlf
 	.Write "  <tbody>"& Vbcrlf
 	.Write "   <tr>"& Vbcrlf
 	.Write "    <td align=left valign=top width=150>"& Vbcrlf
	 Disp_CnbbrCenterLeft
 	.Write "    </td>"& Vbcrlf
 	.Write "    <td align=left valign=top>"& Vbcrlf

	Dim rsm,NewMsg
	set rsm=server.createobject("adodb.recordset")
	sql="select msg.msgid,msg.content,msg.reply,msg.writerid,auctions.aucid as aucid2,auctions.aucitemtitle from msg left join auctions on auctions.aucid = msg.aucid where ownerid="&rs("regid")&" and msgstatus=0"
	rsm.open sql,conn,1,1
	CnbbrConnTimes
	if RsM.Eof then
	   NewMsg=0
	else
	   NewMsg=Rsm.RecordCount
	End if
	rsm.close
	set rsm=nothing

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||BBRhome.asp|[menu]|查看系统当前个人信息"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)


	.Write "<table border=0 cellpadding=0 cellspacing=0 width=""100%"">" & Vbcrlf
	.Write "  <tbody>" & Vbcrlf
	.Write "   <tr>" & Vbcrlf
	.Write "     <td height=30 align=center>" & Vbcrlf
	.Write "	<br><br>&nbsp;&nbsp;欢迎您光临"& SYS_WEBNAME &" <b>个人管理中心</b>，希望您的耕耘能给您丰厚的回报！" & Vbcrlf
	.Write "	<br><br>&nbsp;&nbsp;您在使用过程中有任何问题可向管理员来信：<a href=mailto:"& SYS_WEBEmail &">"& SYS_WEBEmail &"</a>" & Vbcrlf
	.Write "     </td>" & Vbcrlf
	.Write "   </tr>" & Vbcrlf
	.Write "  </tbody>" & Vbcrlf
	.Write "</table>" & Vbcrlf

	.Write "<table cellpadding=0 cellspacing=1 width=40% align=center border=0 class=tablebg>" & Vbcrlf
	.Write "  <tr class=titletd>" & Vbcrlf
	.Write "   <td align=""center"" colspan=""2"" height=""30""><b>个人当前信息查询</b></td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">用 户 名：</td><td align=""left"">"& Request.Cookies(super_user)("uname") &"</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">注册邮箱：</td><td align=""left"">"& rs("regemail") &"</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">现有资金：</td><td align=""left""><span class=fontcolor_2> "& FormatNumber(Rs("bbrmoney"),2,-1) &" </span>个"& SYS_WEBMONEY &"</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">新短消息：</td><td align=""left""><a href=""cnbbrmsg_receive.asp""><span class=fontcolor_2> "& NewMsg &" </span></a>条新信息</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">信用积分：</td><td align=""left""><span class=fontcolor_2> "& rs("credit") &" </span>点</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">信用等级：</td><td align=""left"">"&Disp_UserCredit(rs("regid"),rs("credit"),0)&"</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""40%"" align=""center"">认证状态：</td><td align=""left"">" & Disp_UserIDCard(rs("degrade"),0) &"</td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "  <tr height=28 class=td>" & Vbcrlf
	.Write "   <td width=""100%"" align=""center"" colspan=""2""><a href=""usercredit.asp?bbrid="& rs("regid") &"""><img src=""skins/"& Skins_Folder &"/BBRDispCredit.gif"" border=""0"" alt=""查看个人信用详情""></a> &nbsp; <a href=""CnbbrPay.asp""><img src=""skins/"& Skins_Folder &"/BBR_PayForAccount.gif"" border=""0"" alt=""系统帐户充值""></a></td>" & Vbcrlf
	.Write "  </tr>" & Vbcrlf
	.Write "</table>" & Vbcrlf

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

Response.Write Cnbbr_Bottom 
%>