
<!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>管理首页</title>
<link href="css/adminstyle.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
Dim theInstalledObjects(4)
theInstalledObjects(0) = "Scripting.FileSystemObject"
theInstalledObjects(1) = "adodb.connection"
theInstalledObjects(2) = "JMail.SMTPMail"
theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "Microsoft.FreeThreadedXMLDOM"
%>
<div class="container">
	<div class="local"><h3>您现在的位置：<a href="#">管理首页</a></h3></div>
	<div class="contents">
	  <table border="1" cellpadding="5" width="100%" align="center" style="border-collapse: collapse; margin-top:10px;" bordercolor="#F2DFDF" cellspacing="0">
		<tr>
		  <td colspan="2" bgcolor="#FBF5F5"><b>服务器信息</b></td>
	  </tr>
		<tr>
			<td width="50%" height="20">网站域名：<%=Request.ServerVariables("SERVER_NAME")%></td>
			<td width="50%">服务器IP：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
		</tr>
		<tr>
			<td width="50%" height="20">
			站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
			<td width="50%">XML支持：
			  <%If Not IsObjInstalled(theInstalledObjects(4)) Then%>
			  <font color="red"><b>×</b></font> 
			  <%else%> 
			  <b>√</b> 
			  <%end if%>			</td>
		</tr>
		<tr>
			<td width="50%" height="20">FSO文本读写： 
			  <%If Not IsObjInstalled(theInstalledObjects(0)) Then%>
			  <font color="red"><b>×</b></font> 
			  <%else%> 
			  <b>√</b> 
			  <%end if%>			</td>
			<td width="50%">数据库使用： 
			  <%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
			  <font color="red"><b>×</b></font> 
			  <%else%> 
			  <b>√</b> 
			  <%end if%>	  		</td>
		</tr>
		<tr>
			<td width="50%" height="20">Jmail组件支持： 
			  <%If Not IsObjInstalled(theInstalledObjects(2)) Then%>
			  <font color="red"><b>×</b></font> 
			  <%else%> 
			  <b>√</b> 
			  <%end if%>			</td>
			<td width="50%">CDONTS组件支持： 
			  <%If Not IsObjInstalled(theInstalledObjects(3)) Then%>
			  <font color="red"><b>×</b></font> 
			  <%else%> 
			  <b>√</b> 
			  <%end if%>			</td>
		</tr>
		<tr>
			<td width="50%" height="20">网站占用总空间：<b><%=ShowSpaceInfo("../")%></b></td>
			<td width="50%">数据库使用空间：<b><%=ShowSpaceInfo("../Database/")%></b></td>
		</tr>
	</table>
	<table border="1" cellpadding="5" cellspacing="0" width="100%" align="center" style="border-collapse: collapse; margin-top:10px;" bordercolor="#F2DFDF">
		<tr>
		  <td bgcolor="#FBF5F5" style="padding-left:10px;"><strong>程序开发信息</strong></td>
	  </tr>
		<tr>
			<td style="padding-left:10px;">开发语言：<font face="Verdana">Asp [Active Server Page]</font><br>
				数 据 库：<font face="Verdana">Access 2003</font><br>
				开发工具：<font face="Verdana">Macromedia Dreamweaver 8 </font>&nbsp;&nbsp;<font face="Verdana">Editplus</font><br>
				服务器要求：<font face="Verdana">Win 2000 / Win Server 2003</font>
&nbsp;&nbsp;&nbsp; <font face="Verdana">IIS 5.5</font> 或更高<font face="Verdana">(6.0)</font>&nbsp;&nbsp;&nbsp;<font face="Verdana">MDAC 2.7</font>或更高<br>
				客户端要求：<br>
				前台浏览<font face="Verdana">(Internet Explorer 5.5 </font>或更高<font face="Verdana">)</font><br>
				后台管理<font face="Verdana">(Internet Explorer 5.5 </font>或更高<font face="Verdana">)</font>			</td>
		</tr>
	</table>
	</div>
</div>
<%
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 ShowSpaceInfo(drvpath)
 on error resume next
 		dim fso,d,size,showsize
 		set fso=server.createobject("scripting.filesystemobject") 		
 		drvpath=server.mappath(drvpath) 		 		
 		set d=fso.getfolder(drvpath) 		
 		size=d.size
 		showsize=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(Size/1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		ShowSpaceInfo=showsize
End function	

set AnRowItESMS=nothing
%>
</body>
</html>
