<!--#include file="../Include/Conn.jsp" -->
<!--#include file="../Include/const.jsp" -->
<!--#include file="../Include/md5.jsp" -->
<!-- #include file=../bbs/inc/qqlevel.jsp -->
<!--#include file="IsLogin.jsp" -->
<%
 dim rs,m_Sql
 dim m_ID 
 mUserID = Request.Cookies("aspxnet")("CurUserID")
  m_username= Request.Cookies("aspxnet")("CurUsername")
 m_ID = Request.Cookies("aspxnet")("CurUserID")
 m_Sql = "SELECT * FROM T_Member WHERE F_ID=" & m_ID
 Set rs = conn.Execute(m_Sql)
 if rs.Eof then
   Response.write "对不起，无此会员！"
   Response.end
 end if
 Session("m_Integral") = rs("F_Integral")
 m_MyImage = rs("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
					
 sql_m = "SELECT Points FROM LeadBBS_User Where UserName='" & m_username & "'"
			Set Rstest = conn.Execute(sql_m)
				
%>
<!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></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=mainone>
<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=wealth>
<H3>金币兑换</H3>
<DIV class=rim>
<H4>您现在共有金币<%=Rstest("Points")%>个</H4>
<TABLE cellSpacing=0 cellPadding=0 width=485 border=0>
                <TBODY>
                  <TR> 
                    <td height="27" align=center bgcolor="#F2F2F2" ><strong>奖品清单</strong></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td> 
      <table width="100%" border="0">
        <tr align="center"> 
          <td height="24">兑换奖品项目</td>
          <td height="24">需要金币（个）</td>
		  <td height="24">剩下数量</td>
          <td height="24">操作</td>
        </tr>
        <%
	set cnhw=server.CreateObject("adodb.recordset")
	cnhw.open "select * from T_jp where xianshi=1",conn,1,1
	while not cnhw.eof%>
        <tr>
          <td height="24"><div align="center"><%=cnhw("jpname")%></div></td>
          <td align="center" height="24"><%=cnhw("point")%></td>
		   <td align="center" height="24"><%=cnhw("count")%></td>
          <td align="center" height="24"><a href="jifen.jsp?id=<%=cnhw("jpid")%>&action=add">选择此项</a></td>
        </tr>
        <%
	cnhw.movenext
	wend
	cnhw.close
	set cnhw=nothing%>
      </table>
    </td>
  </tr>
  <%
	set cnhw=server.CreateObject("adodb.recordset")
	cnhw.open "select * from T_action_jp where username='"&m_username&"' and zhuangtai=7",conn,1,1
	if cnhw.recordcount>0 then%>
  <tr align="center"> 
    <td height="28" bgcolor="#F2F2F2"><strong>您已选择的奖品清单</strong></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td> 
      <table width="100%" border="0">
        <tr align="center"> 
          <td height="24">奖品名称</td>
          <td height="24">使用金币（个）</td>
        </tr>
        <%
	while not cnhw.eof%>
        <tr>
          <td height="24">
            <div align="center">
              <%
	set bjx1=server.CreateObject("adodb.recordset")
	bjx1.open "select * from T_jp where jpid="&cnhw("jpid"),conn,1,1
	if bjx1.recordcount=1 then
	response.write ""&bjx1("jpname")&""
	end if
	bjx1.close
	set bjx1=nothing%>
            </div></td>
          <td align="center" height="24"><%=cnhw("point")%></td>
        </tr>
        <%
	cnhw.movenext
	wend%>
      </table>
    </td>  <%end if
	cnhw.close
	set cnhw=nothing%>
                  </TR>
                </TBODY>
              </TABLE>
</DIV></DIV></DIV></BODY></HTML>
