?? sysinfo.asp
字號:
"<TD HEIGHT=25 CLASS=Table8>FSO文本文件讀寫："
On Error Resume Next
Server.CreateObject("Scripting.FileSystemObject")
if err=0 then
strIfa = strIfa & "<FONT COLOR=blue>√</FONT>"
else
strIfa = strIfa & "<FONT COLOR=red>×</FONT>"
end if
err=0
strIfa = strIfa & "</TD>"&_
"<TD CLASS=Table8>Jmail組件支持："
If Not IsObjInstalled(theInstalledObjects(13)) Then
strIfa = strIfa & "<FONT COLOR=#FF0000>×</FONT> <FONT COLOR=#0033FF>"
else
strIfa = strIfa & "√"
end if
strIfa = strIfa & "</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 CLASS=Table8>腳本超時時間：" & Server.ScriptTimeout & " 秒</TD>"&_
"<TD CLASS=Table8>服務器CPU數量：" & Request.ServerVariables("NUMBER_OF_PROCESSORS") & " 個</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 CLASS=Table8>顯示執行SCRIPT的虛擬路徑：" & Request.ServerVariables("SCRIPT_NAME") & "</TD>"&_
"<TD CLASS=Table8>協議的名稱和版本：" & Request.ServerVariables("SERVER_PROTOCOL") & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 CLASS=Table8>返回服務器處理請求的端口：" & Request.ServerVariables("SERVER_PORT") & "</TD>"&_
"<TD CLASS=Table8> </TD>"&_
"</TR>"&_
"<TR HEIGHT=18>"&_
"<TD HEIGHT=25 colspan=2 CLASS=Table6> "&_
"IIS自帶的ASP組件</TD>"&_
"</TR>"
for i=0 to 10
strIfa = strIfa & "<TR CLASS=backq HEIGHT=18>"&_
"<TD WIDTH=60% HEIGHT=25 ALIGN=left CLASS=Table8>" & ObjTotest(i,0) & "<FONT COLOR=#888888> " & ObjTotest(i,1) & "</TD>"&_
"<TD HEIGHT=25 ALIGN=left CLASS=Table8>"
if Not ObjTotest(i,2) Then
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<font CLASS=fonts color=009900><B>√</B></FONT> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</A>"
end if
strIfa = strIfa & "</TD></TR>"
next
strIfa = strIfa & "<TR HEIGHT=18>"&_
"<TD HEIGHT=25 colspan=2 CLASS=Table6> "&_
"常見的文件上傳和管理組件</TD>"&_
"</TR>"
for i=11 to 15
strIfa = strIfa & "<TR CLASS=Table8 HEIGHT=18>"&_
"<TD HEIGHT=25 ALIGN=left>" & ObjTotest(i,0) & "<FONT COLOR=#888888> " & ObjTotest(i,1) & "</TD>"&_
"<TD HEIGHT=25 ALIGN=left>"
if Not ObjTotest(i,2) Then
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<font CLASS=fonts><B>√</B></FONT> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</A>"
end if
strIfa = strIfa & "</TD></TR>"
next
strIfa = strIfa & "<TR HEIGHT=18>"&_
"<TD HEIGHT=25 colspan=2 CLASS=Table6> "&_
"常見的收發郵件組件</TD>"&_
"</TR>"
for i=16 to 23
strIfa = strIfa & "<TR CLASS=Table8 HEIGHT=18>"&_
"<TD HEIGHT=25 ALIGN=left>" & ObjTotest(i,0) & "<FONT COLOR=#888888> " & ObjTotest(i,1) & "</TD>"&_
"<TD HEIGHT=25 ALIGN=left>"
if Not ObjTotest(i,2) Then
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<font CLASS=fonts><B>√</B></FONT> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</A>"
end if
strIfa = strIfa & "</TD></TR>"
next
strIfa = strIfa & "<TR HEIGHT=18>"&_
"<TD HEIGHT=25 colspan=2 CLASS=Table6> "&_
"圖像處理組件</TD>"&_
"</TR>"
for i=24 to 25
strIfa = strIfa & "<TR CLASS=Table8 HEIGHT=18>"&_
"<TD HEIGHT=25 ALIGN=left>" & ObjTotest(i,0) & "<FONT COLOR=#888888> " & ObjTotest(i,1) & "</TD>"&_
"<TD HEIGHT=25 ALIGN=left>"
if Not ObjTotest(i,2) Then
strIfa = strIfa & "<FONT COLOR=red><B>×</B></FONT>"
Else
strIfa = strIfa & "<font CLASS=fonts><B>√</B></FONT> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</A>"
end if
strIfa = strIfa & "</TD></TR>"
next
strIfa = strIfa & "</TABLE>"
call Page_aTable(0,0)
case "Sys"
Call Page_AdminFlag(65)
Page_BootmName="系統空間占用"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
response.write "<TABLE WIDTH=99% BORDER=0 ALIGN=center cellpadding=1 CELLSPACING=1 bgcolor=#4272D5>"&_
"<TR>"&_
"<TD bgcolor=#FFFFFF><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD ALIGN=center CLASS=Table3>" & Page_BootmName & "</TD>"&_
"</TR>"&_
"</TABLE>"&_
"<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<TR>"&_
"<TD HEIGHT=25 ALIGN=right CLASS=Table9>" & Page_HeadName & " </TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 CLASS=Table8>" & Page_BootName & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 bgcolor=#4272D5></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<TR>"&_
"<TD bgcolor=#FFFFFF>"&_
"<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>"
Function GetPP
dim s
s=Request.ServerVariables("path_translated")
GetPP=left(s,instrrev(s,"\",len(s)))
End function
if sPP="" then sPP=GetPP
if right(sPP,1)<>"\" then sPP=sPP&"\"
set fso=server.createobject("scripting.filesystemobject")
Set f = fso.GetFolder(sPP)
Set fc = f.SubFolders
i=1
i2=1
For Each f in fc
response.write "<TR>"&_
"<TD WIDTH=150 HEIGHT=25 CLASS=Table8>" & f.name & "</TD>"&_
"<TD WIDTH=1 bgcolor=#FFFFFF></TD>"&_
"<TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD WIDTH=370><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=b50000></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=FFFFFF></TD>"&_
"<TD WIDTH=" & drawbar(f.name) & " HEIGHT=10 bgcolor=b50000></TD>"&_
"<TD WIDTH=" & 350-drawbar(f.name) & " bgcolor=#FFFFFF></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=FFFFFF></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=b50000></TD>"&_
"</TR>"&_
"</TABLE></TD><TD>"%>
<%showSpaceinfo(""&f.name&"")%><%response.write "</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"<TR bgcolor=ffffff>"&_
"<TD WIDTH=150 HEIGHT=1></TD>"&_
"<TD HEIGHT=1></TD>"&_
"<TD HEIGHT=1></TD>"&_
"</TR>"
i=i+1
if i2<10 then
i2=i2+1
else
i2=1
end if
Next
response.write "<TR>"&_
"<TD WIDTH=150 HEIGHT=25 CLASS=Table8>程序文件占用空間</TD>"&_
"<TD WIDTH=1 bgcolor=ffffff></TD>"&_
"<TD CLASS=Table8>"&_
"<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD WIDTH=370><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=b50000></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=FFFFFF></TD>"&_
"<TD WIDTH=" & drawspecialbar & " HEIGHT=10 bgcolor=b50000></TD>"&_
"<TD WIDTH=" & 350-drawspecialbar & " bgcolor=#FFFFFF></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=FFFFFF></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=b50000></TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"<TD>"%>
<%showSpecialSpaceinfo("Program")%><%response.write "</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"<TR bgcolor=ffffff>"&_
"<TD WIDTH=150 HEIGHT=1></TD>"&_
"<TD HEIGHT=1></TD>"&_
"<TD HEIGHT=1></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD WIDTH=150 HEIGHT=25 CLASS=Table8>系統占用空間總計</TD>"&_
"<TD WIDTH=1 bgcolor=ffffff></TD>"&_
"<TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD WIDTH=370><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
"<TR>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=b50000></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=FFFFFF></TD>"&_
"<TD WIDTH=350 HEIGHT=10 bgcolor=b50000></TD>"&_
"<TD WIDTH=0 bgcolor=#FFFFFF></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=FFFFFF></TD>"&_
"<TD WIDTH=1 HEIGHT=10 bgcolor=b50000></TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"<TD>"%>
<%showspecialspaceinfo("All")%><%response.write "</TD></TR>"&_
"</TABLE>"&_
"</TD>"&_
"</TR>"&_
"</TABLE>"&_
"</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"</TABLE>"
case "IP"
end Select
call Page_Spane(5)
call CloseConn()
call Page_endBody()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -