📄 fwqbl.asp
字号:
<!--#include file="..\Tools.asp"-->
<%
if (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) or (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") then
Response.Write("对不起，您不是管理员！")
Response.End
end if
Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
set d = fso.getfile(drvpath)
size=d.size
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>" & showsize & "</font>"
End Sub
if Request.ServerVariables("Request_Method") = "POST" then
strClass = Trim(Request.Form("tCLASS"))
If strClass <> "" then
If Not IsObjInstalled(strClass) then
Response.Write("<SCRIPT>window.alert('该服务器不支持" & strclass & "组件！')</SCRIPT>")
Else
Response.Write("<SCRIPT>window.alert('该服务器支持" & strclass & "组件！')</SCRIPT>")
End If
end if
Response.End
end if
Dim theInstalledObjects(17)
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) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
.p9 { font-family: "宋体"; font-size: 9pt}
.TButton { font-family: "宋体"; font-size: 9pt;cursor:hand;width:66px;height:22px}
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}
-->
</style>
</HEAD>
<BODY background=../images/bjxt.gif>
<table width="100%" border="0" cellspacing="3" cellpadding="0" class="p9">
<tr>
<td colspan="2" height=20>
<b>数据库占用空间总计 </b><%
if (Application("DBFPATH") <> "") and (SQLServer = "0") and (Len(ConnectionString) > 40) then
showSpaceinfo(Application("DBFPATH"))
else
Response.Write("<>")
end if
%>
</td>
</tr>
<tr>
<td colspan="2" height=20>
<b>服务器有关的变量</b>
</td>
</tr>
<tr>
<td width="30%" valign=top>检取ISAPIDLL的metabase路径</td>
<td width="70%"><%=request.ServerVariables("APPL_MD_PATH")%></td>
</tr>
<tr>
<td width="30%" valign=top>显示站点物理路径</td>
<td width="70%"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr>
<td width="30%" valign=top>路径信息</td>
<td width="70%"><%=request.ServerVariables("PATH_INFO")%></td>
</tr>
<tr>
<td width="30%" valign=top>显示请求机器IP地址</td>
<td width="70%"><%=request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td width="30%" valign=top>服务器IP地址</td>
<td width="70%"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td width="30%" valign=top>显示执行SCRIPT的虚拟路径</td>
<td width="70%"><%=request.ServerVariables("SCRIPT_NAME")%></td>
</tr>
<tr>
<td width="30%" valign=top>返回服务器的主机名，DNS别名，或IP地址</td>
<td width="70%"><%=request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr>
<td width="30%" valign=top>返回服务器处理请求的端口</td>
<td width="70%"><%=request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr>
<td width="30%" valign=top>协议的名称和版本</td>
<td width="70%"><%=request.ServerVariables("SERVER_PROTOCOL")%></td>
</tr>
<tr>
<td width="30%" valign=top>服务器的名称和版本</td>
<td width="70%"><%=request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td width="30%" valign=top>服务器操作系统</td>
<td width="70%"><%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td width="30%" valign=top>脚本超时时间</td>
<td width="70%"><%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr>
<td width="30%" valign=top>服务器CPU数量</td>
<td width="70%"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td width="30%" valign=top>服务器解译引擎</td>
<td width="70%"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td colspan="2" height=20>
<b>组件支持情况</b>
</td>
</tr>
<tr>
<td colspan="2" height=20>
</td>
</tr>
<tr>
<td colspan="2" height=20>
<b> IIS自带组件</b>
</td>
</tr>
<tr>
<td colspan="2" height=20>
<table border=0 width="95%" cellspacing=1 cellpadding=0 class="p9">
<tr height=22 align=center>
<td width="70%">组 件 名 称</td><td width="15%">支 持</td><td width="15%">不支持</td>
</tr>
<%
dim i
For i=0 to 10
Response.Write "<TR align=center height=22><TD align=left> " & theInstalledObjects(i) & "<font color=#888888> "
select case i
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(ACCESS 数据库)"
end select
Response.Write "</font></td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td></td><td><font color=red><b>×</b></font></td>"
Else
Response.Write "<td><b>√</b></td><td></td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
</td>
</tr>
<tr>
<td colspan="2" height=20>
<b> 其他常见组件</b>
</td>
</tr>
<tr>
<td colspan="2" height=20>
<table border=0 width="95%" cellspacing=1 cellpadding=0 class=p9>
<tr height=22 align=center>
<td width="70%">组 件 名 称</td><td width="15%">支 持</td><td width="15%">不支持</td>
</tr>
<%
For i=11 to UBound(theInstalledObjects)
Response.Write "<TR align=center height=18><TD align=left> " & theInstalledObjects(i) & "<font color=#888888> "
select case i
case 11
Response.Write "(SA-FileUp 文件上传)"
case 12
Response.Write "(SA-FM 文件管理)"
case 13
Response.Write "(JMail 邮件发送)"
case 14
Response.Write "(CDONTS 邮件发送 SMTP Service)"
case 15
Response.Write "(ASPEmail 邮件发送)"
case 16
Response.Write "(LyfUpload 文件上传)"
case 17
Response.Write "(ASPUpload 文件上传)"
end select
Response.Write "</font></td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<td></td><td><font color=red><b>×</b></font></td>"
Else
Response.Write "<td><b>√</b></td><td></td>"
End If
Response.Write "</TR>" & vbCrLf
Next
%>
</table>
</td>
</tr>
<tr>
<td colspan="2" height=20>
<b> 其他组件支持情况检测：</b>在下面的输入框中输入你要检测的组件的名称。
</td>
</tr>
<tr>
<td colspan="2" height=20>
<table border=0 width="95%" cellspacing=1 cellpadding=0>
<FORM action="fwqbl.asp" method=post target=iHIDE>
<tr>
<td align=center height=30>
<input type=text name="tClass" size=40 class=p9>
<INPUT type=submit value="确定" id=submit1 name=submit1 class="Tbutton">
<INPUT type=reset value="重填" id=reset1 name=reset1 class="Tbutton">
</td>
</tr>
</FORM>
<iframe id="iHIDE" name="iHIDE" style="HEIGHT: 0px; VISIBILITY: hidden; WIDTH: 0px"></iframe>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -