📄 desktop.asp
字号:
<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
' 登录桌面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/DBControl.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<%
Dim Cfg, Db, FLib, Admin
Set Cfg = New Config
Set Db = New DBControl
Set FLib = New FunctionLib
Set Admin = New Manager
If Not Admin.Logined Then
FLib.Alert "对不起，你已经超时间或未登录","./",1
Response.End
End If
Db.Open()
Dim Rs, Sql
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="31%" height="267" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="right" valign="bottom"><font color="#006699">管理员信息</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td>
<%
Sql = "SELECT TOP 1 * FROM view_manager WHERE title='" & Admin.UserName & "'"
Set Rs = Db.ExeCute(Sql)
%>
<table width="100%" height="179" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="26%" align="right"><strong>系统版本:</strong></td>
<td width="74%"><%=Cfg.SysName & " " & Cfg.SysVersion%></td>
</tr>
<tr>
<td align="right"><strong>用 户 名:</strong></td>
<td width="74%"><%=Rs("title")%></td>
</tr>
<tr>
<td align="right"><strong>隶属角色:</strong></td>
<td><%=Rs("role_title")%></td>
</tr>
<tr>
<td align="right"><strong>登录次数:</strong></td>
<td><%=Rs("login_total")%></td>
</tr>
<tr>
<td rowspan="2" align="right" valign="top"><strong>本次登录:</strong></td>
<td><%=FormatNullVal(Rs("last_logintime"), "-")%></td>
</tr>
<tr>
<td><%=FormatNullVal(Rs("last_loginip"), "-")%></td>
</tr>
<tr>
<td rowspan="2" align="right" valign="top"><strong>上次登录:</strong></td>
<td><%=FormatNullVal(Rs("last_logintime2"), "-")%></td>
</tr>
<tr>
<td><%=FormatNullVal(Rs("last_loginip2"), "-")%></td>
</tr>
<tr>
<td align="right" valign="top"> </td>
<td align="right">[<a href="Manager_Mdy.asp?Work=MdyPwd&title=<%=Admin.UserName%>">修改密码</a>][<a href="Login_Process.asp?Work=LoginOff">登出系统</a>]</td>
</tr>
</table></td>
</tr>
</table>
<%
Rs.Close()
Set Rs = Nothing
Sql = "SELECT TOP 10 * FROM login_log ORDER BY id DESC"
Set Rs = Db.ExeCute(Sql)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="16" align="right" valign="bottom"> </td>
</tr>
<tr>
<td height="16" align="right" valign="bottom"><font color="#006699">最近登录</font></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td align="center"><table width="300" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="120"><font color="#999999">管理员</font></td>
<td width="176"><font color="#999999">登录时间 </font></td>
</tr>
</table>
<table width="300" border="0" cellpadding="0" cellspacing="0">
<%
While Not Rs.Eof
%>
<tr>
<td width="120" height="20"><%=Rs("title")%></td>
<td width="176"><%=Rs("login_time")%></td>
</tr>
<%
Rs.MoveNext()
Wend
%>
</table>
</td>
</tr>
</table>
<%
Rs.Close()
Set Rs = Nothing
%>
</td>
<td width="69%" align="center" valign="top">
<table width="75%" height="349" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><font size="5"> </font><font size="4">内容区</font></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Function FormatNullVal(val, str)
If val = "" OR IsNull(val) Then
FormatNullVal = str
Else
FormatNullVal = val
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -