www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/user/main.asp
<!--#include file="config.asp"--> <!--#include file="check.asp"--> <!--#include file="head.inc"--> <% '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewCloud Site Manager System Version 2.0.0 ' 文件名称:index.asp ' 更新日期:2006-11-20 '===================================================================== ' 产品咨询:Tel:027-85777659,QQ:94022511,Email:web@newcloud.net ' 程序开发:新云软件开发组 ' 论坛支持:新云论坛(http://bbs.newasp.net) ' 官方网站:www.newasp.net www.newasp.cn '===================================================================== ' Copyright 2003-2007 newasp.net - All Rights Reserved. ' newasp is a trademark of newasp.net '===================================================================== Dim Rs,SQL SQL = "SELECT * FROM NC_User WHERE username='" & Membername & "'" Set Rs = Newasp.Execute(SQL) If Rs("usermsg") > 0 Then Response.Write "<bgsound src=""images/mail.wav"" border=0>" End If Call InnerLocation("会员管理首页 - 欢迎 <font color=red>" & Newasp.membername & "</font> 登录控制面板") %> <table border=0 align=center cellpadding=3 cellspacing=1 class=Usertableborder> <tr> <th colspan=2>用户控制面板 -- 首页</th> </tr> <tr> <td width="50%" class=Usertablerow1><b class=userfont2>用户名称:</b><font color=red><%=Newasp.membername%></font></td> <td width="50%" class=Usertablerow1><b class=userfont2>用户身份:</b><font color=red><%=Newasp.membergroup%></font></td> </tr> <tr> <td class=Usertablerow2><b class=userfont2>用户昵称:</b><%=Newasp.menbernickname%></td> <td class=Usertablerow2><b class=userfont2>真实姓名:</b><%=Rs("TrueName")%></td> </tr> <tr> <td class=Usertablerow1><b class=userfont2>账户余额:</b>¥<%=FormatNumber(Rs("usermoney"),,-1)%> 元</td> <td class=Usertablerow1><b class=userfont2>已经消费:</b>¥<%=FormatNumber(Rs("prepaid"),,-1)%> 元</td> </tr> <tr> <td class=Usertablerow2><b class=userfont2>可用点数:</b><%=Rs("userpoint")%> 点</td> <td class=Usertablerow2><b class=userfont2>用户经验:</b><%=Rs("experience")%></td> </tr> <tr> <td class=Usertablerow1><b class=userfont2>用户魅力:</b><%=Rs("charm")%></td> <td class=Usertablerow1><b class=userfont2>注册日期:</b><%=Rs("JoinTime")%></td> </tr> <tr> <td class=Usertablerow2><b class=userfont2>会员类型:</b><%If Rs("UserGrade") = 999 Then Response.Write "管理员" Else If Rs("UserClass") = 0 Then Response.Write "计点会员" ElseIf Rs("UserClass") = 1 Then Response.Write "计时会员" Else Response.Write "到期会员" End If End If%></td> <td class=Usertablerow2><b class=userfont2>到期时间:</b><%=Rs("ExpireTime")%></td> </tr> <tr> <td class=Usertablerow1><b class=userfont2>上次登录时间:</b><%=Request.Cookies("newasp_net")("LastTimeDate")%></td> <td class=Usertablerow1><b class=userfont2>上次登录IP:</b><%=Request.Cookies("newasp_net")("LastTimeIP")%></td> </tr> <tr> <td class=Usertablerow2><b class=userfont2>登录次数:</b><%=Rs("userlogin")%> 次</td> <td class=Usertablerow2> <% If Rs("UserClass") > 0 Then Response.Write "<b class=userfont2>友情提示:</b>" If DateDiff("D", CDate(Rs("ExpireTime")), Now()) < 0 Then Response.Write "您的账号使用时限还有 <font color=red><b>" Response.Write DateDiff("D", Now(), CDate(Rs("ExpireTime"))) Response.Write "</b></font> 天" Else Response.Write "<font color=red>您的账号已过期,请联系管理员!</font>" End If End If %> </td> </tr> <tr> <td class=Usertablerow1><a href="usersms.asp">我的收件箱 <% If Rs("usermsg") > 0 Then Response.Write "(<b class=userfont1>" & Rs("usermsg") & "</b>)" Else Response.Write "(<font color=""#808080"">" & Rs("usermsg") & "</font>)" End If %> </a></td> <td class=Usertablerow1><a href="changepsw.asp">修改密码</a> | <a href="changeinfo.asp">修改资料</a> | <a href="addmoney.asp">会员充值</a></td> </tr> </table> <% Rs.Close:Set Rs = Nothing %> <!--#include file="foot.inc"-->