main.asp

小游戏网站演示www.4399.io 拥有4万条游戏数据

<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="head.inc"-->
<%
'=====================================================================
' 软件名称：四博cms网站管理系统 2008 sp3
' 当前版本：newcloud site manager system version 2.0.0
' 文件名称：index.asp
' 更新日期：2006-11-20
'=====================================================================
' 产品咨询：tel：[phone]，qq：19988567，email：[e-mail]
' 程序开发：新云软件开发组
' 论坛支持：新云论坛(http://bbs.gnet.com.cn)
' 官方网站：www.gnet.com.cn  www.newasp.cn
'=====================================================================
' copyright 2003-2007 gnet.com.cn - all rights reserved.
' newasp is a trademark of gnet.com.cn
'=====================================================================
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"-->