<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="head.inc"-->
<%
'=====================================================================
' 軟件名稱：新云網(wǎng)站管理系統(tǒng)
' 當(dāng)前版本：NewCloud Site Manager System Version 2.0.0
' 文件名稱：index.asp
' 更新日期：2004-11-20
'=====================================================================
' 產(chǎn)品咨詢：Tel：027-85777659，QQ：94022511，Email：web@newcloud.net
' 程序開發(fā)：新云軟件開發(fā)組
' 論壇支持：新云論壇(http://bbs.newasp.net)
' 官方網(wǎng)站：www.newasp.net  www.newasp.cn
'=====================================================================
' Copyright 2002-2005 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("會(huì)員管理首頁 - 歡迎 <font color=red>" & Newasp.membername & "</font> 登錄控制面板")
%>
<div align="center">
	<table border="0" width="743" id="table1" cellspacing="0" cellpadding="0">
		<tr>
			<td>
			<a href="http://download.pcstars.com.cn/down.asp?k=QCYJIIGV4CO6YUYTNAHX3TTL33X2EP3OMSSZVFL6TRFBNFXJYQFWUU5FTQ3PMLPJEQ5VG===&f=/KIS8.0.0.454sch.zip">
			<img border="0" src="/skin/djc/ad/kaba.jpg" alt="點(diǎn)擊圖片下載"></a></td>
		</tr>
	</table>
</div>
<table border=0 align=center cellpadding=3 cellspacing=1 class=Usertableborder width="550">
<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>推廣ID員或昵稱</b><b class=userfont2>：</b><%=Newasp.menbernickname%></td>
	<td class=Usertablerow2><b class=userfont2>真實(shí)姓名：</b><%=Rs("TrueName")%></td>
</tr>
<tr>
	<td class=Usertablerow1><b class=userfont2>賬戶余額：</b>￥<%=FormatNumber(Rs("usermoney"),,-1)%> 元</td>
	<td class=Usertablerow1><b class=userfont2>已經(jīng)消費(fèi)：</b>￥<%=FormatNumber(Rs("prepaid"),,-1)%> 元</td>
</tr>
<tr>
	<td class=Usertablerow2><b class=userfont2>可用點(diǎn)數(shù)：</b><%=Rs("userpoint")%> 點(diǎn)</td>
	<td class=Usertablerow2><b class=userfont2>用戶經(jīng)驗(yàn)：</b><%=Rs("experience")%></td>
</tr>
<tr>
	<td class=Usertablerow1><b class=userfont2>用戶魅力：</b><%=Rs("charm")%></td>
	<td class=Usertablerow1><b class=userfont2>注冊(cè)日期：</b><%=Rs("JoinTime")%></td>
</tr>
<tr>
	<td class=Usertablerow2><b class=userfont2>會(huì)員類型：</b><%If Rs("UserGrade") = 999 Then
				Response.Write "管理員"
			Else
				If Rs("UserClass") = 0 Then
					Response.Write "計(jì)點(diǎn)會(huì)員"
				ElseIf Rs("UserClass") = 1 Then
					Response.Write "計(jì)時(shí)會(huì)員"
				Else
					Response.Write "到期會(huì)員"
				End If
			End If%></td>
	<td class=Usertablerow2><b class=userfont2>到期時(shí)間：</b><%=Rs("ExpireTime")%></td>
</tr>
<tr>
	<td class=Usertablerow1><b class=userfont2>上次登錄時(shí)間：</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>登錄次數(shù)：</b><%=Rs("userlogin")%> 次</td>
	<td class=Usertablerow2>
　</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">會(huì)員充值</a></td>
</tr>

</table>
<%
Rs.Close:Set Rs = Nothing
%><!--#include file="foot.inc"-->