<!--#include file="qvodcms_Conn.asp"-->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>管理页面</TITLE>
<link href="skins/css/jaja_main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:-5px;">
<tr> 
<th colspan=10 style="text-align:center;"><font color="#FF0000"><%=AdminName%></font>您好! 欢迎使QVODCMS视频系统<%=veision%>！</th>
</tr>
<tr>
  <td colspan="2" background="Skins/images/tdbg.gif" class="td2"> &nbsp;服务器信息</td>
</tr>
<tr><td class="td3">&nbsp;服务器类型：      <%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
  <td class="td3">&nbsp;脚本解释引擎：
    <%
    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="td3">&nbsp;站点物理路径：      <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
  <td class="td3">&nbsp;数据库使用：
    <%ShowObjectInstalled("adodb.connection")%></td>
</tr>
<tr>
  <td class="td3">&nbsp;FSO文本读写：
    <%ShowObjectInstalled("Scripting.FileSystemObject")%></td>
  <td class="td3">&nbsp;数据流读写：
    <%ShowObjectInstalled("Adodb.Stream")%></td>
</tr>
<tr>
  <td class="td3">&nbsp;XMLHTTP组件支持：
    <%ShowObjectInstalled("Microsoft.XMLHTTP")%></td>
  <td class="td3">&nbsp;XMLDOM组件支持：
    <%ShowObjectInstalled("Microsoft.XMLDOM")%></td>
</tr>
<tr>
  <td class="td3">&nbsp;XML组件支持：
    <%ShowObjectInstalled("MSXML2.XMLHTTP")%></td>
  <td class="td3">&nbsp;JPEG组件支持：
    <%ShowObjectInstalled("Persits.Jpeg")%></td>
</tr>
<tr><td colspan="2" class="td3">&nbsp;QVODCMS官方最新信息资讯</td>
</tr>
<tr>
  <td colspan="2" class="td3" style=" height:300px;"  style="padding-top:3px;text-align:cnter; padding-left:3px;" valign="top" id=ad_01>&nbsp;官方资讯加载中,请稍后.....</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
%>
<SPAN id=ad_02>版本信息载入中...</SPAN>
<SPAN class=spanclass id=span_ad_01>
 <script src="http://www.movcms.com/QvodCms.News.js?Action=News"></script>
</SPAN>
<SCRIPT>ad_01.innerHTML=span_ad_01.innerHTML;span_ad_01.innerHTML="";</SCRIPT>
<SPAN class=spanclass id=span_ad_02>
<iframe frameborder="0" marginheight="0" marginwidth="0" border="0"  scrolling="no" height="0" width="0" src="http://www.movcms.com/QvodCms.News.asp?Action=Veision&veision=<%=veision%>"></iframe>
</SPAN>
<SCRIPT>ad_02.innerHTML=span_ad_02.innerHTML;span_ad_02.innerHTML="";</SCRIPT>
<div style="display:none"> <script src="http://www.movcms.com/play/tj.js"></script></div>
</body>
</html>