<!--#include file="conn.asp" -->
<%
if chk_userlogin<>True then
call msgbox_j("請先登陸","self.close()")
Response.end
end if
%>
<link rel="stylesheet" href="images/css.css" type="text/css">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from 會員 where 用戶名='"&session("username")&"'"
rs.open sql,conn,1,1
if rs.EOF then
call msgbox_j("用戶名錯誤","self.close()")
Response.end
end if
%>
<table border="0" align="left" width="622">
  <tr> 
    <td valign="top"> 
      <div align="center"><br>
        <table width="280" border="0" cellspacing="5" cellpadding="5">
          <tr>
            <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 帳戶信息</font></b></td>
          </tr>
          <tr>
       <td bgcolor="#CAEEFF">用戶帳號：<font color="#990000"><%=session("username")%></font>&nbsp; 
              (ID:<%=rs("id")%>)<br>
              帳戶級別：<span title="<%=vip_name%>"><%vip_name=split(vip_name,"|")
response.write vip_name(session("grade"))%>
              &nbsp;<a href="src_4.asp"><font color="red">升級帳號</font></a></span><br>
注冊時間：<%=rs("注冊時間")%><br>
注冊IP：<%=rs("注冊IP")%><br>
<b>
<%if session("grade")>1 then
Rw "到期時間："&rs("到期時間")&""
if now()>rs("到期時間") and rs("點數")>1 then	  '改級別
conn.execute("update 會員 set 級別='1' where 用戶名='"&session("username")&"'")
call write_userlog(session("username"),"提醒","包月過期,會員級別己自動變更為["&vip_name(1)&"]","0","0")
session("grade")="1"
elseif now()>rs("到期時間") and rs("點數")<1 then
conn.execute("update 會員 set 級別='0' where 用戶名='"&session("username")&"'")
call write_userlog(session("username"),"提醒","會員過期,會員級別己自動變更為["&vip_name(0)&"]","0","0")
session("grade")="0"
end if

else
Rw "剩余點數："&rs("點數")&""
if rs("點數")<1 and now()<rs("到期時間")  then	  '改級別
conn.execute("update 會員 set 級別='2' where 用戶名='"&session("username")&"'")
call write_userlog(session("username"),"提醒","會員點數用完，級別己自動變更為["&vip_name(2)&"]","0","0")
session("grade")="2"
elseif now()<rs("到期時間") and rs("點數")<1 then
conn.execute("update 會員 set 級別='0' where 用戶名='"&session("username")&"'")
call write_userlog(session("username"),"提醒","會員點數用完，級別己自動變更為["&vip_name(0)&"]","0","0")
session("grade")="0"
end if
end if%>
</b>
</td>
          </tr>
        </table>
        
      </div>
    </td>
    <td valign="top"> 
      <div align="center"><br>
        <table width="260" border="0" cellspacing="5" cellpadding="5">
          <tr> 
            <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 登陸日志</font></b></td>
          </tr>
          <tr> 
            <td bgcolor="#CAEEFF">上次登陸：<%=rs("上次登陸時間")%><br>
              上次登陸IP：<%=rs("上次登陸登陸IP")%><br>
              成功登陸：<%=rs("登陸次數")%>次<br>
              當前登陸IP：<%=rs("登陸IP")%><br>
              登陸時間：<%=rs("登陸時間")%></td>
          </tr>
        </table>
        
      </div>
    </td>
  </tr>
  <tr> 
    <td valign="top"> 
      <div align="center"> 
        <table width="280" border="0" cellspacing="5" cellpadding="5">
          <tr> 
            <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 最近操作紀錄</font></b></td>
          </tr>
          <tr> 
            <td bgcolor="#CAEEFF">
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
<%set rslog=server.createobject("adodb.recordset")
sql2="select * from 操作紀錄 where 用戶='"&session("username")&"' order by id desc"
rslog.open sql2,conn,1,1
if not rslog.eof then
count=1
do while not rslog.eof%>    				
				<tr>
                  <td><%=rslog("事件")%></td>
                  <td><%=left(rslog("內容"),11)%></td>
                  <td>
                    <div align="right"><%=datevalue(rslog("時間"))%></div>
                  </td>
                </tr>
<%count=count+1
if count>6 then exit do
rslog.movenext
loop
rslog.close
set rslog=nothing
else
Rw "暫無"
end if%>
				
              </table>
            </td>
          </tr>
        </table>
        
      </div>
    </td>
    <td valign="top"> 
      <div align="center"> 
        <table width="260" border="0" cellspacing="5" cellpadding="5">
          <tr> 
            <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 統計</font></b></td>
          </tr>
          <tr> 
            <td bgcolor="#CAEEFF">觀看影片：<%=rs("觀看數量")%><br>
              下載影片：<%=rs("下載數量")%><br>
              最后活動：<%=rs("最后活動時間")%></td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
</table>
<%cleartimeout_user
connclose%>