<!--#include file="../Include/Conn.jsp" -->
<!--#include file="../Include/const.jsp" -->
<!--#include file="../Include/char.jsp" -->
<!-- #include file=../bbs/inc/qqlevel.jsp -->
<!--#include file="IsLogin.jsp" -->
<%
 dim rs,m_Sql
 dim m_ID 
 m_ID = Request.Cookies("aspxnet")("CurUserID")
 m_username= Request.Cookies("aspxnet")("CurUsername")
 m_Sql = "SELECT F_LoginCount,F_Integral,F_MyImage,F_Grade,F_LastLoginTime,F_RegTime FROM T_Member WHERE F_ID=" & m_ID
 set rs1=server.createobject("adodb.recordset")
 rs1.open m_sql,conn
 'Set rs = conn.Execute(m_Sql)
 if rs1.Eof then
   Response.write "对不起，无此会员！"
   Response.end
 end if

  '更新兴趣爱好信息
 
 '个人形象图片
 Session("m_Integral") = rs1("F_Integral")
 m_MyImage = rs1("F_MyImage")
 session("m_MyImage") = m_MyImage

					sql_m="select count(f_id) as n_count from t_message where F_username_a='"&m_username&"' and F_accept=0"
					Set rs_m = conn.Execute(sql_m)
					m_count=rs_m("n_count")
					sql_m="select count(f_id) as n_count from t_message where F_username_a='"&m_username&"' and F_accept=0 and  F_active=0 "
					Set rs_m = conn.Execute(sql_m)
					m_newcount=rs_m("n_count")
					rs_m.close
					%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>发讯箱</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Page-Enter content=blendTrans(Duration=0.5)>
<META http-equiv=Page-Exit content=blendTrans(Duration=0.5)><LINK 
href="css/index.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1555" name=GENERATOR>

<SCRIPT language=JavaScript1.2>
<!--
function confirm_delete()
{
if (confirm("你确定要删除所选择的短讯吗？")){
		return true;
	}
	return false;
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
//-->
</SCRIPT>
<% if cint(m_newcount)>0 then %>
<bgsound src="img/mail.wav" loop="1">
<% end if %>
</HEAD>
<BODY><!--menu start-->
<DIV id=menu><SPAN>登陆帐号：<%m_TempUserName = Request.Cookies("aspxnet")("CurUserName")
				  if m_TempUserName = "" then Response.write "游客" else
				   Response.write ""&m_TempUserName&""
				  %> | <A 
href="Logout.jsp">退出</A></SPAN> <B>操作中心</B>
<DIV id=nav>
<DIV class=right><IMG src="img/nav_right.gif"></DIV>
<DIV class=left><IMG src="img/nav_left.gif"></DIV>
<UL>
  <LI><A href="Center_index.jsp">首 页</A> </LI>
  <LI><A href="friend_index.jsp">交友频道</A> </LI>
  <LI><A href="QQ_ployall.jsp">精彩活动</A> </LI>
  <LI><A href="../bbs/">论坛社区</A> </LI>
  <LI><A href="photo_default.jsp">网络相册</A> </LI>
  <LI><A href="QQ_index.jsp">小圈子</A> </LI>
  <LI><A href="../info/">分类广告</A> </LI>
  <LI><A href="../jubao/">折扣店</A> </LI>
  <LI><A href="../shop/">逛街购物</A> </LI></UL></DIV></DIV><!--menu end-->
<DIV id=main>
<DIV id=user>
<H3>欢迎您：<%m_TempUserName = Request.Cookies("aspxnet")("CurUserName")
				  if m_TempUserName = "" then Response.write "游客" else
				   Response.write ""&m_TempUserName&""
				  %></H3>
<DIV class=rim>
<DIV id=uinfo>
<DIV id=uimg align=center><%if session("m_MyImage")<>"" then %>
		  <img  src="<%=session("m_MyImage")%>" > 
		  <%else%><img  src="img/nophoto_man.gif"><%end if%></DIV>
<P>ID: <%m_TempUserName = Request.Cookies("aspxnet")("CurUserName")
				  if m_TempUserName = "" then Response.write "游客" else
				   Response.write ""&m_TempUserName&""
				  %></P>
<P><%
   sql_m = "SELECT OnlineTime FROM LeadBBS_User Where UserName='" & m_username & "'"
			Set Rstest = conn.Execute(sql_m)
%>
<script language=javascript>
			<!--
				document.write (""+qqlevel("<%=CLng(cCur(Rstest("OnlineTime"))/3600)%>")+"");
			//-->
			</script></P>
<HR>

<DIV id=usercon><A href="../bbs/" target=_blank><IMG height=20 
src="img/Center_left01.gif" width=27 border=0></A><A 
href="QQ_default.jsp" target=_blank><IMG height=21 
src="img/Center_left02.gif" width=21 border=0></A><A 
href="../blog/" target=_blank><IMG height=16 
src="img/Center_left03.gif" width=24 border=0></A><A 
href="#"><IMG 
src="img/ico4.gif"></A><A 
href="#" 
target=_blank><IMG src="img/ico5.gif" border=0></A> </DIV></DIV><%
   sql_m = "SELECT Points FROM LeadBBS_User Where UserName='" & m_username & "'"
			Set Rstest = conn.Execute(sql_m)
%>
<P class=uline><STRONG>用户金币：<%=rstest("Points")%></STRONG><BUTTON class=bot 
onclick="location.href='#a'">帐户冲值</BUTTON><BUTTON class=bot 
onclick="location.href='#a'"><B>VIP</B>冲值</BUTTON> </P>
<UL>
  <LI>·<A href="Center_userinfo.jsp">个人资料</A> </LI>
  <LI>·<A href="Center_msg.jsp">我的短信</A> </LI>
  <LI>·<A href="Center_contact.jsp">联系资料</A> </LI>
  <LI>·<A href="Center_wealth.jsp">金币兑换</A> </LI>
  <LI>·<A href="Center_editpassword.jsp">密码设置</A> </LI>
  <LI>·<A href="Center_ploy.jsp">我的活动</A> </LI></UL>
<DIV class=clear></DIV></DIV>
<H3>从这里开始</H3>
<DIV class=rim>
<DIV id=buildgroup>
<H4><A href="qq_ceaterclub.jsp" 
target=_blank><SPAN>建立小圈子</SPAN></A></H4>
<P>您可以在这里建立自己的小圈子，和更多的朋友一起互动。世界很小，圈子很大。您可以通过您的圈子认识更多志趣相投的朋友！</P></DIV>
<DIV id=invitefriend>
<H4><SPAN>邀请您的好友</SPAN></H4>
<P>您可以在这里建立自己的小圈子，和更多的朋友一起互动。世界很小，圈子很大。您可以通过您的圈子认识更多志趣相投的朋友！</P></DIV></DIV></DIV><!--contain-->
<DIV id=contain>
<DIV id=info>
<DIV id=infotop><IMG src="img/windows.gif">收件箱</DIV>
                <FORM name=message action="messagedel.jsp?type=send" method=post>
                   <%
					dim PerPage
					set rs_c=server.createobject("adodb.recordset")
					sql_c="select * from t_message where F_username_s='"&m_username&"' and F_send=0 order by f_regtime desc"
					rs_c.open sql_c,conn,1,1
					'flag="尚未处理"
                    PerPage=15
				
                   '假如没有数据时
                 ' If rs_c.eof and rs_c.bof then
                  ' response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
                 ' response.end
                 ' End if
					'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
                    text="0123456789"
                    Rs_c.PageSize=PerPage
					
                    for i=1 to len(request("page"))
                    checkpage=instr(1,text,mid(request("page"),i,1))
                    if checkpage=0 then
                    exit for
                    end if
                    next

                  If checkpage<>0 then
                  If NOT IsEmpty(request("page")) Then
                  CurrentPage=Cint(request("page"))
                  If CurrentPage < 1 Then CurrentPage = 1
                  If CurrentPage > Rs_c.PageCount Then CurrentPage = Rs_c.PageCount
                  Else
                  CurrentPage= 1
                  End If
                 If not Rs_c.eof Then Rs_c.AbsolutePage = CurrentPage end if
                 Else
                 CurrentPage=1
                 End if					
				%>
<H5><A title=收件箱 
href="Center_msg.jsp"><SPAN>收件箱</SPAN></A> <A title=发件箱 
href="Center_msgout.jsp"><SPAN>发件箱</SPAN></A> <A 
title=写短信 
href="Center_msgsend.jsp"><SPAN>写短信</SPAN></A></H5>
<DL>
  <DT>您的发件箱里存放着&nbsp;<B><%=Cstr(rs_c.RecordCount)%></B>&nbsp;条已经发送的短讯,共&nbsp;<B><%=Cstr(rs_c.pagecount)%></B>&nbsp;页/每页&nbsp;<B><%=PerPage%></B>&nbsp;条 
				
<%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
  <DD> <INPUT type=checkbox value=<%=rs_c("f_id")%> 
                  name=ArticleID> <A 
  title="<%=rs_c("f_title")%>[<%=rs_c("f_regtime")%>]" href="lookmessage.jsp?active=view&id=<%=rs_c("f_ID")%>"><%=rs_c("f_title")%></A>(<%=rs_c("f_regtime")%>) <% if rs_c("F_active") then %>
					  已读
					  <% else %>
                     <font color="#FF0000">未读</font> 
                        <% end if %> <%
i=i+1
if i >= Perpage then exit do
rs_c.movenext
loop
end if
%>
  <DT><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall> 
  选择本页所有短信<BUTTON class=bot2 onClick="return confirm_delete();" 
  type=submit>删除所选择的短讯</BUTTON> 
  <DIV class=page><% If currentpage > 1 Then  %>					  
					  &nbsp;<a href='Center_msgout.jsp?page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a>
					  &nbsp;<a href='Center_msgout.jsp?page=<%=Cstr(currentpage-1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">7</SPAN></a>
					  &nbsp;<% Else  %>
					  &nbsp;<SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN>
					  &nbsp;<SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">7</SPAN>
					 <% end if %>
					  <%
			  if rs_c.pagecount>8 then
			  n_star=currentpage
			  n_end=currentpage+7
			  else
			  n_star=1
			  n_end=rs_c.pagecount			  
			  end if
			  %>
              <% FOR n=n_star to n_end %>
					 <% if n>rs_c.pagecount then  exit for  end if%>
					  &nbsp;<a href='Center_msgout.jsp?page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a>
					  <%
					  next
					  %>
					  <% If currentpage < Rs_c.PageCount Then %>					 
					  &nbsp;<a href='Center_msgout.jsp?page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a>
					  &nbsp;<a href='Center_msgout.jsp?page=<%=Cstr(Rs_c.PageCount)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">:</SPAN></a>
					  <% else %>
					  &nbsp;<SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN>
					  &nbsp;<SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">:</SPAN>
			  		  <% end if %>  </DIV></DT></DL></FORM>
<DIV id=infobot></DIV></DIV></DIV></DIV>
<STYLE type=text/css>.STYLE1 {
	COLOR: #ff0000
}
</STYLE>

<DIV id=rchart>
<DIV id=chart>
<DIV id=charttop>
<H6>&nbsp; </H6>
<P>用户等级:<%if rs1("F_Grade") = 1 then Response.write "<font color=red><b>聚宝卡VIP会员</b></font>" else Response.write "普通会员"%>
                      <%if rs1("F_Grade") <> 1 then%>
                      → <a href="UserGrade.jsp"> <font color="#FF0000">升级为VIP会员</font> 
                      </a> 
                      <%end if%></P>
<P>用户注册时间:<%=rs1("F_RegTime")%></P>
<P id=mailone><a href="Center_msg.jsp">(<%=m_count%>/<font color="#FF0000"><%=m_newcount%>)</font>短信!</a></P></DIV>


<DIV id=chartbot></DIV></DIV>
</DIV>
</BODY></HTML>
