<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<!--#include file="../inc/version.asp" -->
<%
'==============================================================================
'软件名称：淘特分类信息系统
'当前版本：TOT Info Manager System 5.0 
'开发始于：2009.8 当前更新：2010-3-9
'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="36%" 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="64%" height="43" bgcolor="#FAFAFA">
				  <script type="text/javascript" src="http://www.totcms.com/ad/cmsmain.js"></script>
				  </td>
                </tr>
              </table>
              <table width="699" height="30" border="0" cellpadding="0" cellspacing="1" bgcolor="#CDCDCD" style="margin:2px 0 0 0;">
                <tr>
                  <td height="30" bgcolor="#FFFFFF"><font color="#006699">　<font color="#006699"><strong>新闻更新三步曲：</strong></font></font></td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF" style="line-height:20px;"><font color="#006699">　</font>·<a href="news_add.asp">添加新闻文章(选择文章属于哪一个栏目)</a><br>
                    <font color="#006699">　</font>·<a href="send.asp?classid=0">发布文章所在栏目</a></td>
                </tr>
                <tr>
                  <td height="30" bgcolor="#FFFFFF">　<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" 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("Microsoft.XMLHTTP") Then%>
                      <font color="red">×，不能使用此系统</font>
                      <%else%>
                      <font color="0076AE"> √,可以使用本系统</font>
                      <%end if%>
                     　Adodb.Stream
                    <%If Not IsObjInstalled("Adodb.Stream") Then%>
                    <font color="red">×</font>
                    <%else%>
                    <font color="0076AE"> √</font>
                    <%end if%>                  </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://www.totcms.com" target="_blank">http://www.totcms.com</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</font> </td>
                  <td height="25">　<font face="Verdana, Arial, Helvetica, sans-serif">联系电话：0531-82222062</font></td>
                </tr>
              </table>
              <br>
          </div></td>
        </tr>
    </table></td>
  </tr>
</table>
</BODY>
</HTML>
<%call connclose()%>