<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<HTML>
<HEAD>
<TITLE>后台管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
<body leftmargin="1" topmargin="1">
<% 
MyDbPath = "../"
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
Dim Mesky
Set Mesky = New cls_main
	If Mesky.adminName = "" Then
		Mesky.strMsg = "<li>非法操作：登录超时或你没有以管理员身份登录系统，<a href=""../admin_login.asp"" target=_top>点此进入管理员登录界面</a>。"
		Call Mesky.SystemMsg()
	Else
		call main()
	End If
Set Mesky = Nothing
Sub Main()

Dim theInstalledObjects(20)
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"	'Jamil 4.2
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "JMail.Message"	'Jamil 4.3
theInstalledObjects(19) = "Persits.Upload"
theInstalledObjects(20) = "SoftArtisans.FileUp"
 %>
<fieldset>
<legend align="center">浙江软件园下载管理系统——后台管理首页</legend>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
  <td class="tdbg2"><STRONG>管理快捷方式：</STRONG> <a href="admin_setting.asp">系统设置</a> | <a href="admin_down_resource.asp">添加下载资源</a> | <a href="admin_cms_resource.asp">添加文章资源</a> | <a href="admin_down_reslist.asp">下载管理</a> | <a href="admin_cms_reslist.asp">文章管理</a> | 用户管理 | <a href="admin_admin.asp">管理员管理</a> </td>
</tr>
</table>
</fieldset><br>

<fieldset><legend>系统信息统计:</legend>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1">
<tr class="tdbg2">
  <td colspan="2">下载资源信息：</td>
  </tr>
<tr class="tdbg3">
  <td>服务器类型：<% =Request.ServerVariables("OS")%>(IP:<% =Request.ServerVariables("LOCAL_ADDR")%>)</td>
  <td>脚本解释引擎：<% =ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr class="tdbg2">
  <td>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
  <td>数据库地址：</td>
</tr>
<tr class="tdbg3">
  <td>FSO文本读写：
      <%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
  <td>数据库使用：
      <%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
</tr>
<tr class="tdbg2">
  <td><%If IsObjInstalled(theInstalledObjects(18)) Then%>Jmail4.3邮箱组件支持：<%else%>Jmail4.2组件支持：<%end if%>
<%If IsObjInstalled(theInstalledObjects(18)) or IsObjInstalled(theInstalledObjects(13)) Then%>
<b>√</b>
<%else%>
<font color="red"><b>×</b></font>
<%end if%></td>
  <td>CDONTS组件支持：
      <%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
</tr>
</table>
</fieldset>
<br>
<fieldset><legend>下载资源搜索:</legend>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
    <td>浙江软件园</td>
  </tr>
</table>
</fieldset>
<br>
<fieldset>
<legend>浙江软件园下载管理系统:</legend>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1">
     <COLGROUP>
	<COL width="65">
	<COL width="*">
<tr class="tdbg2">
  <td>产品开发：</td>
    <td>破解的版本啦....</td>
</tr>
<tr class="tdbg3">
  <td>产品版本：</td>
  <td><%= Mesky.DMSVer() %></td>
</tr>
<tr class="tdbg2">
  <td>联系方法：</td>
    <td>80830970</td>
</tr>
<tr class="tdbg3">
  <td>典型客户：</td>
  <td>...</td>
</tr>
</table>
</fieldset>
<% End Sub %>
</body>
</html>