📄 admin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<%
call hacker()
if session("admin")<>"axsj" then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
call adminjj()
adminname=session("adminname")
adminsuper=session("adminsuper")
%>
<% '系统占用的空间
sub othersize(names)
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath("images")
ml=left(path,(instrrev(path,"\")-1))&"\"&names
set d=fso.getfolder(ml)
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=formatnumber(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
sub allsize()
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath("index.asp")
ml=left(path,(instrrev(path,"\")-1))
set d=fso.getfolder(ml)
mlsize=d.size
size=mlsize
dx=size & " Byte"
if size>1024 then
size=(Size/1024)
dx=size & " KB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
dx=formatnumber(size,2) & " GB"
end if
response.write dx
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("images")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*150)
Drawbar=barsize
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Sitename%>-后台管理系统</title>
<link href="index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="4" colspan="2" background="images/index_11.gif"></td>
</tr>
<tr>
<td width="200" align="center" valign="top">
<% '调用左边框架
call adminleft()%>
<p> </p> </td>
<td width="580" align="center" valign="top" bgcolor="#EDFFFF"><table width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align="left" bgcolor="#4F9DD6"> ※ 占用空间情况:(全部：
<%allsize()%>)</td>
<td width="50%" align="left" bgcolor="#4F9DD6"> ※ 主机环境变量</td>
</tr>
<tr>
<td align="left"> 论坛占用空间: <img src="images/bar.gif" width="<%=Drawbar("bbs")%>" height="10" />
<%othersize("bbs")%></td>
<td align="left"> 服务器的域名: <%=Request.ServerVariables("server_name")%></td>
</tr>
<tr>
<td align="left"> 数 据 库 占 用: <img src="images/bar.gif" width="<%=Drawbar("axdaba")%>" height="10" /> <%othersize("axdaba")%></td>
<td align="left"> 服务器的IP地址: <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td align="left"> 图片目录占用: <img src="images/bar.gif" width="<%=Drawbar("images")%>" height="10" />
<%othersize("images")%></td>
<td align="left"> 服务器操作系统: <%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td align="left"> 上传图片占用: <img src="images/bar.gif" width="<%=Drawbar("up/pic")%>" height="10" />
<%othersize("up/pic")%></td>
<td align="left"> 服务器解译引擎: <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td align="left"> 资源下载占用: <img src="images/bar.gif" width="<%=Drawbar("up/down")%>" height="10" />
<%othersize("up/down")%></td>
<td align="left"> 服务器软件的名称及版本: <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td align="left"> 上传logo占用: <img src="images/bar.gif" width="<%=Drawbar("up/logo")%>" height="10" />
<%othersize("up/logo")%></td>
<td align="left"> 服务器CPU数量: <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td align="left"> 上传文章附件: <img src="images/bar.gif" width="<%=Drawbar("up/book")%>" height="10" />
<%othersize("up/book")%></td>
<td align="left"> 服务器Application数量: <%=Application.Contents.Count%> 个</td>
</tr>
<tr>
<td align="left"> 上传新闻附件: <img src="images/bar.gif" width="<%=Drawbar("up/news")%>" height="10" />
<%othersize("up/news")%></td>
<td align="left"> 服务器Session数量: <%=Session.Contents.Count%> 个</td>
</tr>
<tr>
<td align="left"> 全部上传附件: <img src="images/bar.gif" width="<%=Drawbar("up")%>" height="10" />
<%othersize("up")%></td>
<td align="left"> 脚本连接超时时间: <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr>
<td align="left" bgcolor="#4F9DD6"> ※ 组件名称</td>
<td align="left" bgcolor="#4F9DD6"> ※ 支持与版本</td>
</tr>
<tr>
<td colspan="2" align="left"><table width="100%" align="left">
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%><%
Dim theInstalledObjects(16)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "Scripting.FileSystemObject"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "SoftArtisans.FileManager"
theInstalledObjects(11) = "JMail.Message"
theInstalledObjects(12) = "CDONTS.NewMail"
theInstalledObjects(13) = "Persits.MailSender"
theInstalledObjects(14) = "LyfUpload.UploadFile"
theInstalledObjects(15) = "Persits.Upload.1"
theInstalledObjects(16) = "w3.upload"
For i=0 to 16
Response.Write "<TR class=bg><TD align='left'> " & theInstalledObjects(i) & "<font color=888888> "
select case i
case 7
Response.Write "(FSO 文本文件读写)"
case 8
Response.Write "(ACCESS 数据库)"
case 9
Response.Write "(SA-FileUp 文件上传)"
case 10
Response.Write "(SA-FM 文件管理)"
case 11
Response.Write "(JMail 邮件发送)"
case 12
Response.Write "(WIN虚拟SMTP 发信)"
case 13
Response.Write "(ASPEmail 邮件发送)"
case 14
Response.Write "(LyfUpload 文件上传)"
case 15
Response.Write "(ASPUpload 文件上传)"
case 16
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td height=20 align='left'>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -