📄 user_info.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="mytop.asp"-->
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<%
regdate=formatdatetime(rsuser("regdate"),2)
stopdate=rsuser("stopdate")
%>
<html><head>
<link href="css/user.css" rel="stylesheet" type="text/css">
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%
set rs=conn.Execute("select * from [message] where touser='"&Request.Cookies("9cool_username")&"' and readed=0")
if not rs.eof = true then%>
<script src=inc/Messenger.js></script><script>javascript:getMsg(" 9Cool Messenger"," <a style=cursor:hand href=# onclick=\"javascript:open('message.asp?menu=view&id=<%=rs("id")%>','','width=320,height=170')\">您有新的短信，请注意查收！</a>");</script>
<%end if%>
<table width=778 align="center" cellpadding=4 cellspacing=1 class="a2">
<tr align="center" class="a1">
<td colspan="2">帐户信息</td>
</tr>
<tr class="a3">
<td width="191">用户名：</td>
<td width="557"><b><%=Request.Cookies("9cool_username")%></b></td>
</tr>
<tr class="a4">
<td>推广代码：</td>
<td><input name="agent" type="text" id="agent" value="<%=siteurl%>index.asp?id=<%=Request.Cookies("9cool_username")%>" size="40" onClick="this.select();window.clipboardData.setData('text',this.value);alert('已经复制代码到剪贴板')"></td>
</tr>
<tr class="a4">
<td>帐户金额：</td>
<td class=num>￥<%=rsuser("money")%>元</td>
</tr>
<tr class="a3">
<td>帐户积分：</td>
<td class=num><%=rsuser("point")%>点</td>
</tr>
<tr class="a4">
<td>用户类别：</td>
<td class=num><% select case rshost("type")
case "free"
Response.Write "免费用户"
case "vip"
Response.Write "付费用户"
End select
%></td>
</tr>
<tr class="a3">
<td>空间类型：</td>
<td><span class="num"><%=rshost("name")%></span></td>
</tr>
<tr class="a4">
<td>空间容量：</td>
<td><%=rsuser("space")%>M</td>
</tr>
<tr class="a3">
<td>使用期限：</td>
<td>
<%
if stopdate<>"" then
Response.Write(""&formatdatetime((regdate),1)&"——"&formatdatetime((stopdate),1)&"")
else
Response.Write "无限制"
end if
%></td>
</tr>
<tr class="a4">
<td>注册日期：</td>
<td><%=rsuser("regdate")%></td>
</tr>
<tr class="a4">
<td>登陆时间：</td>
<td><%=rsuser("logindate")%></td>
</tr>
<tr class="a3">
<td>登陆次数：</td>
<td><%=rsuser("logins")%></td>
</tr>
<tr class="a4">
<td>登录IP：</td>
<td><%=rsuser("loginip")%></td>
</tr>
<tr class="a3">
<td>网站名称：</td>
<td><%=rsuser("sitename")%></td>
</tr>
<tr class="a4">
<td>网站域名：</td>
<td><a href="<%=rshost("userurl")%>/<%=Request.Cookies("9cool_username")%>" target="_blank"><%=rshost("userurl")%>/<%=Request.Cookies("9cool_username")%></a></td>
</tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -