📄 right.asp
字号:
<!--#include file="User_conn.asp"-->
<%
Dim UserHS,U_Simple
Set UserHS = New Art_User
IF Cbool(UserHS.UserLoginChecked)=false then
Response.Write "<script>top.location.href ='login.asp' ;</script>"
Response.end
End If
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员管理后台</title>
<link href="Images/css.css" rel="stylesheet" type="text/css">
</head>
<style type="text/css">
li{ list-style:none; float:left; padding:0 20px}
</style>
<body topMargin=0>
<TABLE width="98%" border="0" cellPadding="2" align="center" cellSpacing="1" class="table">
<TBODY>
<TR>
<TD align="middle" class="bg_tr"><%=setting("sitename")%>会员管理中心</TD>
</TR>
</TBODY>
</TABLE>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td rowspan="2" valign="top">
<table height="25" width="60%" border="0"><tr>
<td width="15%">会员公告： </td>
<td width="90%"><marquee direction="left" scrollamount="3" width="100%" onMouseOut=this.start() onMouseOver=this.stop()><script language="javascript" src="../js-gg.asp?id=0&ttt=3&ty=1"></script></marquee></td>
</tr></table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tbody>
<tr class="title">
<td colspan="3" class="bg_tr">我 的 基 本 信 息</td>
</tr>
<tr class="tdbg">
<td width="300" rowspan="5" align="center"><%
Dim UserFaceSrc:UserFaceSrc=UserHS.UserFace
if userfacesrc="" or isnull(userfacesrc) then userfacesrc="Images/gbook/pic/pic(00).gif"
if ucase(left(userfacesrc,4))<>"http" then userfacesrc="../" & userfacesrc
%>
<img src="<%=UserFaceSrc%>" border="1" width="85" height="85">
</td>
<td height="22" align="center">会 员 名：</td>
<td align="left"><%= UserHS.UserName%></td>
</tr>
<tr class="tdbg">
<td height="22" align="center">会员类型：</td>
<td align="left">个人会员</td>
</tr>
<tr class="tdbg">
<td height="22" align="center"><span class="style6">会 员 组：</span></td>
<td align="left"><%= UserHS.G_Name%></td>
</tr>
<tr class="tdbg">
<td height="22" align="center">本次登录：</td>
<td align="left"><%= UserHS.LoginTime%></td>
</tr>
<tr class="tdbg">
<td width="194" height="22" align="center">登 录 IP：</td>
<td width="472" align="left"><%= UserHS.LoginIP%></td>
</tr>
<tr class="tdbg">
<td height="22" align="center"><input name="button" type="button" class="Button" onClick="javascript:location.href='Edit_User.asp'" value="修改我的资料"></td>
<td align="center">登录次数：</td>
<td align="left"> <%= UserHS.LoginNumber%>次 </td>
</tr>
<tr class="tdbg">
<td colspan="3" align="left"> </td>
</tr>
</tbody>
</table>
<table width="100%" style="margin-top:5px" border="0" align="center" cellpadding="3" cellspacing="1"class="table">
<tbody>
<tr class="title">
<td colspan="4" class="bg_tr">快 速 通 道</td>
</tr>
<tr class="tdbg">
<td height="22" align="center" nowrap><A href="User_Article.Asp?action=add" target="main">添加文章</A></td>
<td align="center" nowrap>添加图片</td>
<td align="center" nowrap>添加软件</td>
<td align="center" nowrap>发布供求信息</td>
</tr>
<tr class="tdbg">
<td height="22" align="center" ><a href="Message_User.asp?action=new">发送短信</a></td>
<td align="center" ><A class="treemenu" href="Recharge_user.asp?Action=Recharge" target="main">充值卡充值</A></td>
<td align="center" ></td>
<td align="center" ></td>
</tr>
</tbody>
</table>
<table width="100%" style="margin-top:5px" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tbody>
<tr class="title">
<td colspan="4" class="bg_tr">信 息 统 计</td>
</tr>
<tr class="tdbg">
<td colspan="4" nowrap>我的文章：<%=conn.execute("select count(id) from news where adduser='" & UserHS.username & "'")(0)%> 篇
我的图片：0 副
我的软件：0 个 </td>
</tr>
<tr class="tdbg">
<td colspan="4" nowrap>评论条数：<%=conn.execute("select count(id) from NewsPL where Anonymous=0 and username='"& UserHS.UserName &"'")(0)%> 篇
</td>
</tr>
</tbody>
</table></td>
</tr>
</table>
</body>
</html>
<% Set UserHS = Nothing:call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -