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"-->