src_1.asp

来自「有关遗传算法的例子」· ASP 代码 · 共 142 行

<!--#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%>