<!--#include file="../inc/config.asp" -->
<!--#include file="../inc/version.asp" -->
<%
'==============================================================================
'软件名称：淘特网站信息管理系统
'当前版本：TOT Content Manager System 1.0 
'最新更新：2005.8
'author:  淘特网
'=============================================================================
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>
<HTML>
<HEAD>
<TITLE><%=SiteName%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</HEAD>
<style>
a{text-decoration: none;} /* ,underline */ 
a:link {color: #000000;} /*  */
a:visited {color: #000000;} /*  */
a:hover{color: #FF0000;} /*  */ 
a:active {color: #FF0000;} /*  */
/*BodyCSS*/
td	{font-size: 12px; color: #000000; text-decoration:none ; text-decoration:none ; }
</style><BODY bgcolor="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E0E0E0">
  <tr>
    <td bgcolor="#FFFFFF">
      <table width="44%" border="0" align="center" cellpadding="0" cellspacing="0" style="padding:4px 0 10px 0;">
        <tr>
          <td width=1 bgcolor="#E3E3E3"></td>
          <td width="1011"><div align="center">
              <table width="700" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
                <tr>
                  <td bgcolor="#006699" onMouseOver="javascript:this.bgColor='#0066cc'" onMouseOut="javascript:this.bgColor='#006699'"><div align="center" class="style1">欢迎使用淘特网站管理系统(<%=Tot_Cms_Title%>)V<%=Tot_Cms_Version%>　　　版权号：<%=Tot_Cms_Version%></div></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1"></td>
                </tr>
              </table>
              <table width="699" height="45" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
                <tr bgcolor="#FAFAFA">
                  <td width="56%" height="43">
                    <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
                      <tr>
                        <td width="69%">淘特网站管理系统,当前版本:<font color="#FF0000"><%=Tot_Cms_Version%></font></td>
                      </tr>
                  </table></td>
                  <td width="44%" height="43" bgcolor="#FAFAFA">
                    <marquee   onMouseOut=start() onMouseOver=stop()  scrolldelay=20 scrollamount=1 direction="up" height="45">
                    程序开发：淘特网-http://www.tot.name
                    </marquee>
                  </td>
                </tr>
              </table>
              <%
Dim theInstalledObjects(23)
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"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
theInstalledObjects(19)	= "Persits.Jpeg"				'AspJpeg
theInstalledObjects(20) = "SoftArtisans.ImageGen"		'SoftArtisans ImgWriter V1.21
theInstalledObjects(21) = "sjCatSoft.Thumbnail"
theInstalledObjects(22) = "Microsoft.XMLHTTP"
theInstalledObjects(23) = "Adodb.Stream"
	%>
              <table width="700" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
                <tr>
                  <td>　<font color="#006699"><strong>服务器信息</strong></font></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1"></td>
                </tr>
              </table>
              <table width="699" height="221" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
                <tr bgcolor="#FAFAFA">
                  <td height="32">　服务器类型：<font face="Verdana, Arial, Helvetica, sans-serif"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></td>
                  <td height="32">　站点物理路径<font face="Verdana, Arial, Helvetica, sans-serif">：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></font></td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td width="48%" height="32">　返回服务器的主机名，<font face="Verdana, Arial, Helvetica, sans-serif">IP</font>地址<font face="Verdana, Arial, Helvetica, sans-serif">：<font color=#0076AE><%=Request.ServerVariables("SERVER_NAME")%></font></font></td>
                  <td width="52%" height="32">　服务器操作系统<font face="Verdana, Arial, Helvetica, sans-serif">：<font color=#0076AE><%=Request.ServerVariables("OS")%></font></font></td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td width="48%" height="32">　脚本解释引擎<span class="small2">：</span><font face="Verdana, Arial, Helvetica, sans-serif"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</font></td>
                  <td width="52%" height="37">　<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">WEB</font></span>服务器的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">：<font color=#0076AE><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></font></td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td width="48%" height="32">　脚本超时时间<span class="small2">：</span><font color=#0076AE><%=Server.ScriptTimeout%></font> 秒</td>
                  <td width="52%" height="32">　<font face="Verdana, Arial, Helvetica, sans-serif">CDONTS</font>组件支持<span class="small2">：</span>
                      <%
	    On Error Resume Next
	    Server.CreateObject("CDONTS.NewMail")
		if err=0 then 
		  response.write("<font color=#0076AE>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
                  </td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td width="48%" height="32">　虚拟路径<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SCRIPT_NAME")%></font></td>
                  <td width="52%" height="32">　<font face="Verdana, Arial, Helvetica, sans-serif"><span class="small2">Jmail</span></font>邮箱组件支持<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">：</font></span>
                      <%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
                      <font color="red">×</font>
                      <%else%>
                      <font color="0076AE"> √</font>
                      <%end if%>
                  </td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td height="32">　返回服务器处理请求的端口<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SERVER_PORT")%></font></td>
                  <td height="32">　协议的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("SERVER_PROTOCOL")%></font></td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td height="32">　服务器 <font face="Verdana, Arial, Helvetica, sans-serif">CPU</font> 数量<font face="Verdana, Arial, Helvetica, sans-serif">：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></font> 个　</td>
                  <td height="32">　客户端操作系统：
                      <%
 dim thesoft,vOS
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(thesoft,"Windows NT 5.0") then
	vOS="Windows 2000"
elseif instr(thesoft,"Windows NT 5.2") then
	vOs="Windows 2003"
elseif instr(thesoft,"Windows NT 5.1") then
	vOs="Windows XP"
elseif instr(thesoft,"Windows NT") then
	vOs="Windows NT"
elseif instr(thesoft,"Windows 9") then
	vOs="Windows 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
	vOs="类Unix"
elseif instr(thesoft,"Mac") then
	vOs="Mac"
else
	vOs="Other"
end if
response.Write(vOs)
%>
                  </td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1"></td>
                </tr>
              </table>
              <table width="700" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
                <tr>
                  <td>　<font color="#006699"><strong>使用本软件，请确认的服务器和你的浏览器满足以下要求：</strong></font></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1"></td>
                </tr>
              </table>
              <table width="699" height="105" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
                <tr bgcolor="#FAFAFA">
                  <td width="48%" height="25">　<font face="Verdana, Arial, Helvetica, sans-serif">JRO.JetEngine(ACCESS</font><font face="Verdana, Arial, Helvetica, sans-serif">&nbsp; </font> 数据库<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">)</font>：</span>
                      <%
	    On Error Resume Next
	    Server.CreateObject("JRO.JetEngine")
		if err=0 then 
		  response.write("<font color=#0076AE>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
                  </td>
                  <td width="52%" height="25">　数据库使用<span class="small2">：</span>
                      <%
	    On Error Resume Next
	    Server.CreateObject("adodb.connection")
		if err=0 then 
		  response.write("<font color=#0076AE>√,可以使用本系统</font>")
		else
          response.write("<font color=red>×,不能使用本系统</font>")
		end if	 
		err=0
	  %>
                  </td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td height="25">　<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">FSO</font></span>文本文件读写<span class="small2">：</span>
                      <%
	    On Error Resume Next
	    Server.CreateObject("Scripting.FileSystemObject")
		if err=0 then 
		  response.write("<font color=#0076AE>√,可以使用本系统</font>")
		else
          response.write("<font color=red>×，不能使用此系统</font>")
		end if	 
		err=0
	  %>
                  </td>
                  <td height="25">　Microsoft.XMLHTTP
                      <%If Not IsObjInstalled(theInstalledObjects(22)) Then%>
                      <font color="red">×</font>
                      <%else%>
                      <font color="0076AE"> √</font>
                      <%end if%>
                    (非必须) 　Adodb.Stream
                    <%If Not IsObjInstalled(theInstalledObjects(23)) Then%>
                    <font color="red">×</font>
                    <%else%>
                    <font color="0076AE"> √</font>
                    <%end if%>
                  </td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td height="25" colspan="2">　客户端浏览器版本：
                      <%
	  Dim Agent,Browser,version,tmpstr
	  Agent=Request.ServerVariables("HTTP_USER_AGENT")
	  Agent=Split(Agent,";")
	  If InStr(Agent(1),"MSIE")>0 Then
				Browser="MS Internet Explorer "
				version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
			ElseIf InStr(Agent(4),"Netscape")>0 Then 
				Browser="Netscape "
				tmpstr=Split(Agent(4),"/")
				version=tmpstr(UBound(tmpstr))
			ElseIf InStr(Agent(4),"rv:")>0 Then
				Browser="Mozilla "
				tmpstr=Split(Agent(4),":")
				version=tmpstr(UBound(tmpstr))
				If InStr(version,")") > 0 Then 
					tmpstr=Split(version,")")
					version=tmpstr(0)
				End If
			End If
	response.Write(""&Browser&"  "&version&"")
	  %>
                    [需要IE5.5或以上,服务器建议采用Windows 2000或Windows 2003 Server]</td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1"></td>
                </tr>
              </table>
              <table width="700" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
                <tr>
                  <td><font color="#006699">　<font color="#006699"><strong>联系信息：</strong></font></font></td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="1"></td>
                </tr>
              </table>
              <table width="699" height="53" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD">
                <tr bgcolor="#FAFAFA">
                  <td width="48%" height="25">　<font face="Verdana, Arial, Helvetica, sans-serif">官方站点：<a href="http://cms.tot.name" target="_blank">http://cms.tot.name</a></font>                  </td>
                  <td width="52%" height="25">　技术支持<span class="small2">：</span>
                    <span class="small2">6410861</span> (<span class="small2">QQ</span>) </td>
                </tr>
                <tr bgcolor="#FAFAFA">
                  <td height="25">　<font face="Verdana, Arial, Helvetica, sans-serif">电子邮件：tot888@21cn.com<a href="http://sd.tot.name/cms/" target="_blank"></a></font> </td>
                  <td height="25">　在线论坛<span class="small2">：</span><a href="http://bbs.tot.name">http://bbs.tot.name</a></td>
                </tr>
              </table>
              <br>
          </div></td>
        </tr>
    </table></td>
  </tr>
</table>
</BODY>
</HTML>