📄 sysinfo.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
                  "<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>&nbsp;" & 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>&nbsp;" & 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>&nbsp;" & 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>&nbsp;" & 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 & "&nbsp;</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()
%>
上一页 12
⌨️ 快捷键说明

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