📄 admin_sysset.asp

📁 本程序是一款比较完善的图书租赁系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ChkAdmin.asp"-->
<%
Dim DBPath,DBSize
Dim BusinessCount,Returned,RentTimeout,RentCount,RentBooked
Dim UserCount,LockedUserCount,AdminCount
Dim MovieCount,MovieunRent
Dim SysOwner,SysCopyright,SysAbout,SysContact
'数据库路径
DBPath=Server.MapPath(db)
'数据库大小
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.GetFile(DBPath)
DBSize=objFile.Size
Set objFile=Nothing
Set objFSO=Nothing

Set objRS=Server.CreateObject("ADODB.RecordSet")
'所有交易笔数
strSQL="SELECT * FROM [Tenancy]"
objRS.Open strSQL,objConn,1,3
BusinessCount=objRS.RecordCount
objRS.Close
'正在进行的交易
strSQL="SELECT TAC_ID_N FROM [Tenancy] WHERE TAC_Status_N=3"
objRS.Open strSQL,objConn,1,3
Rent=objRS.RecordCount 
objRS.Close
'已完成的交易
strSQL="SELECT TAC_ID_N FROM [Tenancy] WHERE TAC_Return_B=True"
objRS.Open strSQL,objConn,1,3
Returned=objRS.RecordCount
objRS.Close
'超期的交易
strSQL="SELECT TAC_ID_N FROM [Tenancy] WHERE TAC_Timeout_B=True"
objRS.Open strSQL,objConn,1,3
RentTimeout=objRS.RecordCount
objRS.Close
'预订的交易
strSQL="SELECT TAC_ID_N FROM [Tenancy] WHERE TAC_Status_N=4"
objRS.Open strSQL,objConn,1,3
RentBooked=objRS.RecordCount 
objRS.Close
'用户总人数
strSQL="SELECT UI_ID_N FROM [UserInfo]"
objRS.Open strSQL,objConn,1,3
UserCount=objRS.RecordCount
objRS.Close
'被锁定的用户人数
strSQL="SELECT UI_ID_N FROM [UserInfo] WHERE UI_IsLocked_B=True"
objRS.Open strSQL,objConn,1,3
LockedUserCount=objRS.RecordCount
objRS.Close
'管理员人数
strSQL="SELECT UI_ID_N FROM [UserInfo] WHERE UI_IsAdmin_B=True"
objRS.Open strSQL,objConn,1,3
AdminCount=objRS.RecordCount
objRS.Close
'影片总数
strSQL="SELECT VI_ID_N FROM [VideoInfo]"
objRS.Open strSQL,objConn,1,3
MovieCount=objRS.RecordCount
objRS.Close
'未租出的影片数
strSQL="SELECT VI_ID_N FROM [VideoInfo] WHERE VI_Status_N=1"
objRS.Open strSQL,objConn,1,3
MovieunRent=objRS.RecordCount
objRS.Close
'系统信息
strSQL="SELECT * FROM [SysInfo]"
objRS.Open strSQL,objConn,1,3
SysOwner=objRS("SI_Owner_S")
SysCopyright=objRS("SI_Copyright_S")
SysAbout=objRS("SI_About_S")
SysContact=objRS("SI_Contact_S")
objRS.Close

'释放资源，关闭数据库链接
Set objRS=Nothing
CloseDatabase
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>察看系统设置</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=97% height=25% ID="Table1">
<tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=center>察看系统信息</th></tr>
<tr><td class=TableBody2 colspan=2><b>数据库</b></td></tr>
<tr><td class=TableBody2 align=right width=15% >数据库路径：</td><td class=TableBody1 align=left><%=DBPath%></td></tr>
<tr><td class=TableBody2 align=right width=15% >数据库大小：</td><td class=TableBody1 align=left><%=DBSize%> bytes</td></tr>
<tr><td class=TableBody2 colspan=2><b>租赁信息</b></td></tr>
<tr><td class=TableBody2 align=right width=15% >所有交易：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=BusinessCount%></font></b> 笔交易</td></tr>
<tr><td class=TableBody2 align=right width=15% >预订的的交易：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=RentBooked%></font></b> 笔交易被预订</td></tr>
<tr><td class=TableBody2 align=right width=15% >进行的交易：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=Rent%></font></b> 笔交易正在进行，其中 <b><font color=red><%=RentTimeout%></font> </b>笔超期</td></tr>
<tr><td class=TableBody2 align=right width=15% >完成的交易：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=Returned%></font></b> 笔交易完成</td></tr>
<tr><td class=TableBody2 colspan=2><b>用户信息</b></td></tr>
<tr><td class=TableBody2 align=right width=15% >用户人数：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=UserCount%></font></b> 个用户，其中 <b><font color=red><%=AdminCount%></font> </b>个为管理员</td></td></tr>
<tr><td class=TableBody2 align=right width=15% >被锁定用户：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=LockedUserCount%></font></b> 个用户被锁定</td></tr>
<tr><td class=TableBody2 colspan=2><b>影片信息</b></td></tr>
<tr><td class=TableBody2 align=right width=15% >总影片数：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=MovieCount%></font></b> 部影片</td></tr>
<tr><td class=TableBody2 align=right width=15% >未租影片数：</td><td class=TableBody1 align=left>共有 <b><font color=red><%=MovieunRent%></font></b> 部影片未租</td></tr>
<tr><td class=TableBody2 colspan=2><b>系统信息</b></td></tr>
<tr><td class=TableBody2 align=right width=15% >系统使用者：</td><td class=TableBody1 align=left> <b><font color=red><%=SysOwner%></font></b> </td></tr>
<tr><td class=TableBody2 align=right width=15% >系统版权拥有者：</td><td class=TableBody1 align=left> <b><font color=red><%=SysCopyright%></font></b> </td></tr>
<tr><td class=TableBody2 align=right width=15% >系统描述：</td><td class=TableBody1 align=left> <b><font color=red><%=SysAbout%></font></b> </td></tr>
<tr><td class=TableBody2 align=right width=15% >联系人：</td><td class=TableBody1 align=left> <b><font color=red><%=SysContact%></font></b> </td></tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -