📄 adminweb.asp
字号:
<!--#include file="check.asp" -->
<%
Function CheckStr(byVal ChkStr) '检查无效字符
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\r\n){3,}"
Str=re.Replace(Str,"$1$1$1")
Set re=Nothing
Str = Replace(Str,"'","''")
Str = Replace(Str, "select", "select")
Str = Replace(Str, "join", "join")
Str = Replace(Str, "union", "union")
Str = Replace(Str, "where", "where")
Str = Replace(Str, "insert", "insert")
Str = Replace(Str, "delete", "delete")
Str = Replace(Str, "update", "update")
Str = Replace(Str, "like", "like")
Str = Replace(Str, "drop", "drop")
Str = Replace(Str, "create", "create")
Str = Replace(Str, "modify", "modify")
Str = Replace(Str, "rename", "rename")
Str = Replace(Str, "alter", "alter")
Str = Replace(Str, "cast", "cast")
CheckStr=Str
End Function
Response.Buffer = true
%>
<!--#include file="mdb/conn.asp" -->
<!--#include file="config.asp" -->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="img/styles.css" rel="stylesheet" type="text/css" />
</head>
<body bgcolor="<%=bgcolor%>" text="#000000"><div align="center">
<table border="0" width="780" height="727" bgcolor="#CCCCCC" >
<tr>
<td height="102" width="950">
<!--#include file="top.asp" -->
<br><!--#include file="admintop.asp" -->
</td>
</tr>
<tr>
<td height="615" width="950" align="top" valign="top" >
<table width="800" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF" class="siderbar_head">网站基本信息</td>
</tr>
<tr> <td bgcolor="#FFFFFF" class="siderbar_head">
网站名称：<%=title%> 网站地址：<%=homeurl%></td>
</tr>
</table><table width="800" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF" class='header'><%=title%> 系统信息.....</td>
</tr
<tr>
<td bgcolor="#FFFFFF" align="center" class="smalltxt"><b><%=title%> | Copying Right 2006 © <a href="<%=homeurl%>" target="_blank"><%=homeurl%></a></b></td>
</tr>
</table><table width="800" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" bgcolor="#FFFFFF" class='header'><%=SiteName%> 服务器基本信息</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class='header'>■ 当前文件夹信息
<%
function cSize(tSize)
if tSize>=1073741824 then
cSize=int((tSize/1073741824)*1000)/1000 & " GB"
elseif tSize>=1048576 then
cSize=int((tSize/1048576)*1000)/1000 & " MB"
elseif tSize>=1024 then
cSize=int((tSize/1024)*1000)/1000 & " KB"
else
cSize=tSize & "B"
end if
end function
set fsoobj=server.CreateObject("Scripting.FileSystemObject")
dPath = server.MapPath("./")
set dDir = fsoObj.GetFolder(dPath)
set dDrive = fsoObj.GetDrive(dDir.Drive)
%>
网站文件夹: <%=dPath%>
<table bgcolor="#FFFFFF" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="98%" align="center">
<tr height="18" align="center" class="backs">
<td width="75">已用空间</td>
<td width="75">可用空间</td>
<td width="75">文件夹数</td>
<td width="75">文件数</td>
<td width="150">创建时间</td>
</tr>
<tr height="18" align="center">
<td><%=cSize(dDir.Size)%></td>
<td></td>
<td><%=dDir.SubFolders.Count%></td>
<td><%=dDir.Files.Count%></td>
<td><%=dDir.DateCreated%></td>
</tr>
</td></tr>
</td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="40%" nowrap> 服务器时间：<%=Now()%></td>
<td bgcolor="#FFFFFF" width="60%"> 服务器空间占用：<%=GetTotalSize(Request.ServerVariables("APPL_PHYSICAL_PATH"),"Folder")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器类型：<%=Request.ServerVariables("OS")%></td>
<td bgcolor="#FFFFFF"> 服务器IP地址：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td bgcolor="#FFFFFF"> 站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器名</td><td> <%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器IP</td><td> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器端口</td><td> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> IIS版本</td><td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 脚本超时时间</td><td> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 本文件路径</td><td> <%=Request.ServerVariables("PATH_TRANSLATED")%></td>
</tr>
<%getsysinfo() '获得服务器数据%>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器CPU数量</td><td> <%=okCPUS%> 个</td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器CPU详情</td><td> <%=okCPU%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td align=left> 服务器操作系统</td><td> <%=okOS%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><b>当前正在使用的这台服务器组件安装情况</b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 虚拟 SMTP 发信：<%=CheckObjInstalled("CDONTS.NewMail")%></td>
<td bgcolor="#FFFFFF"> asp mail发信 ：<%=CheckObjInstalled("Persits.MailSender")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> SA 的图像读写组件：<%=CheckObjInstalled("SoftArtisans.ImageGen")%></td>
<td bgcolor="#FFFFFF"> Dimac 的图像读写组件：<%=CheckObjInstalled("W3Image.Image")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 虚拟 SMTP 发信：<%=CheckObjInstalled("CDONTS.NewMail")%></td>
<td bgcolor="#FFFFFF"> asp mail发信 ：<%=CheckObjInstalled("Persits.MailSender")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> Dimac 文件上传：<%=CheckObjInstalled("w3.upload")%></td>
<td bgcolor="#FFFFFF"> ASPUpload 文件上传：<%=CheckObjInstalled("Persits.Upload.1")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 刘云峰的文件上传组件：<%=CheckObjInstalled("LyfUpload.UploadFile")%></td>
<td bgcolor="#FFFFFF"> SoftArtisans 文件管理：<%=CheckObjInstalled("SoftArtisans.FileManager")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> SA-FileUp 文件上传：<%=CheckObjInstalled("SoftArtisans.FileUp")%></td>
<td bgcolor="#FFFFFF"> <font color=red><b>ASPJPEG</b></font>：<%=CheckObjInstalled("Persits.Jpeg")%>(本站正常运行必须的组件)</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 数据库使用：<%=CheckObjInstalled("adodb.connection")%></td>
<td bgcolor="#FFFFFF"> Jmail组件支持：<%=CheckObjInstalled("JMail.SMTPMail")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> GflSDK组件支持：<%=CheckObjInstalled("GflAx190.GflAx")%></td>
<td bgcolor="#FFFFFF"> EasyMail邮件支持：<%=CheckObjInstalled("easymail.Mailsend")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 无组件上传－ADODB.Stream：<%=CheckObjInstalled("Scripting.Dictionary")%></td>
<td bgcolor="#FFFFFF"> 无组件上传－Scripting.Dictionary ：<%=CheckObjInstalled("Scripting.Dictionary")%></td>
</tr>
</table>
<%
sub getsysinfo()
on error resume next
Set WshShell = server.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
okOS = cstr(WshSysEnv("OS"))
okCPUS = cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
okCPU = cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
if isnull(okCPUS) then
okCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
elseif okCPUS="" then
okCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
end if
if Request.ServerVariables("OS")="" then okOS=okOS & "(可能是 Windows Server 2003)"
end sub
Function CheckObjInstalled(strClassString)
On Error Resume Next
Dim Temp
Err = 0
Dim TmpObj
Set TmpObj = Server.CreateObject(strClassString)
Temp = Err
IF Temp = 0 OR Temp = -2147221477 Then
CheckObjInstalled= "<font color='#00FF00'><b>√</b></font>"
ElseIF Temp = 1 OR Temp = -2147221005 Then
CheckObjInstalled="<font color='#FF0000'><b>×</b></font>"
End IF
Err.Clear
Set TmpObj = Nothing
Err = 0
End Function
Function GetTotalSize(GetLocal,GetType)
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF Err<>0 Then
Err.Clear
GetTotalSize="服务器关闭FSO，查看占用空间失败"
Else
Dim SiteFolder
IF GetType="Folder" Then
Set SiteFolder=FSO.GetFolder(GetLocal)
Else
Set SiteFolder=FSO.GetFile(GetLocal)
End IF
GetTotalSize=SiteFolder.Size
IF GetTotalSize>1024*1024 Then
GetTotalSize=GetTotalSize/1024/1024
IF inStr(GetTotalSize,".") Then GetTotalSize = Left(GetTotalSize,inStr(GetTotalSize,".")+2)
GetTotalSize=GetTotalSize&" MB"
Else
GetTotalSize=Fix(GetTotalSize/1024)&" KB"
End IF
Set SiteFolder=Nothing
End IF
Set FSO=Nothing
End Function
Function DeleteFiles(FilePath)
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(FilePath) Then
FSO.DeleteFile FilePath,True
DeleteFiles = 1
Else
DeleteFiles = 0
End IF
Set FSO = Nothing
End Function
%></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -