<!--#include file="../tgzcm.Cache/tgzcm.Config.asp"-->
<!--#include file="../tgzcm.Include/tgzcm.Funciton.asp"-->
<!--#include file="../tgzcm.Cache/tgzcm.Version.asp" -->
<!--#include file="Plus/Sql_Function.asp"-->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>管理页面</TITLE>
<link href="skins/css/tgzcm_main.css" rel="stylesheet" type="text/css" />
<script language = "javaScript" src = "../inc/adnim.js" type="text/javascript"></script>
<style type="text/css">
<!--
.banquan {
	text-align: left;
}
-->
</style></head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<th colspan=10 style="text-align:center;"><p><font color="#FF0000"><%=AdminName%></font>您好! 欢迎使用汇通网盘资源搜索！</p>
  <p class="banquan">版权信息：汇通网盘资源搜索 版权所有</p>
  <p class="banquan">旗下网站：涛哥注册码<a href="http://www.tgzcm.com" target="_blank">www.tgzcm.com</a> 爱小志博客<a href="http://www.aixiaozhi.com" target="_blank">www.aixiaozhi.com</a></p>
  <p class="banquan">联系我们：QQ791911607 邮箱：loveseatao@163.com  </p>
  <p class="banquan">源码说明：</p>
  <p class="banquan">1.本源码您可以免费使用，但是不能用于商业用途，如需用于商业用途，请购买商业授权（价格68元），未经商业授权，不得去除版权链接；</p>
  <p class="banquan">2.有完美的SQL防注入功能；</p>
  <p class="banquan">3.可以添加多个管理员；</p>
  <p class="banquan">4.拥有会员下线推广系统，和积分兑换系统。</p></th>
</tr>
<tr><td colspan="2" class="td2">服务器信息</td></tr>
<tr><td class="td1">服务器类型：      <%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
  <td class="td1">脚本解释引擎：
    <%
    response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion
    If CSng(ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion) < 5.6 Then
        response.write "&nbsp;&nbsp;<a href='http://www.microsoft.com/downloads/release.asp?ReleaseID=33136' target='_blank'><font color='green'>版本过低，请点此更新</font></a>"
    End If
    %></td>
</tr>
<tr>
  <td class="td1">站点物理路径：      <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
  <td class="td1">数据库使用：<%ShowObjectInstalled("adodb.connection")%></td>
</tr>
<tr>
  <td class="td1">FSO文本读写：<%ShowObjectInstalled("Scripting.FileSystemObject")%></td>
  <td class="td1">数据流读写：<%ShowObjectInstalled("Adodb.Stream")%></td>
</tr>
<tr>
  <td class="td1">XMLHTTP组件支持：<%ShowObjectInstalled("Microsoft.XMLHTTP")%></td>
  <td class="td1">XMLDOM组件支持：<%ShowObjectInstalled("Microsoft.XMLDOM")%></td>
</tr>
<tr>
  <td class="td1">XML组件支持：<%ShowObjectInstalled("MSXML2.XMLHTTP")%></td>
  <td class="td1">JPEG组件支持：<%ShowObjectInstalled("Persits.Jpeg")%></td>
</tr>
</table>
<%
Sub ShowObjectInstalled(strObjName)
	If IsObjInstalled(strObjName) Then
		Response.Write "<b>√</b>"
	Else
		Response.Write "<font color='red'><b>×</b></font>"
	End If
End Sub

'**************************************************
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'        False ----没有安装
'**************************************************
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    Set xTestObj = CreateObject(strClassString)
    If Err.Number = 0 Then IsObjInstalled = True
    Set xTestObj = Nothing
    Err = 0
End Function
%>
<iframe frameborder="0" marginheight="0" marginwidth="0" border="0"  scrolling="no" height="0" width="0" src="http://www.tgzcm.com/TgzcmCms.News.asp?Action=Veision&veision=<%=veision%>"></iframe>
</body>
</html>