<% Option Explicit %>
<!--#include file="../Inc/Cls_DB.asp" -->
<!--#include file="Inc/Include.asp" -->
<!--#include file="../Inc/Const.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System 2.0 
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn,URLS
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
Dim Rsconfig,Sqlconfig
%>
<!--#include file="../Inc/Session.asp" -->
<HTML>
<HEAD>
<TITLE>FSCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</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-family:  "Verdana, Arial, Helvetica, sans-serif"; font-size: 11.5px; 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="#FFFFFF">
  <tr>
    <td><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">
              <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>　<font color="#FF0000"><strong>欢迎使用风讯网站管理系统(FSCMS)V2.0　　　版权号：<a href="http://www.foosun.net/inews/2004/12-6/164211.html" target="_blank"><font color="#FF0000">2004SR11453</font></a></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="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"> 
                                <%
				  Dim RscObj
				  set RscObj = Conn.execute("select * from Config")
					  response.write(""&RscObj("Version")&"")
				  rscobj.close
				  set rscobj=nothing
				  %>
                                </font>　　</td>
                              <td width="26%" align="right">官方版本:</td>
                              <td width="5%"><iframe id='NewsContent' src='http://www.foosun.cn/ver/ver.asp' frameborder=0 scrolling=no width='50' height='14'></iframe></td>
                            </tr>
                          </table></td>
                        <td width="44%" height="43" bgcolor="#FAFAFA"> <marquee   onMouseOut=start() onMouseOver=stop()  scrolldelay=20 scrollamount=1 direction="up" height="45">
                          <script src=http://www.foosun.net/inews/Classjs/MemAcc01.js></script>
                          </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"><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="158" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CDCDCD">
                      <tr bgcolor="#FAFAFA"> 
                        <td height="20"> <div align="center"> 产品开发</div></td>
                        <td height="20">　四川风讯科技发展有限公司</td>
                        <td> <div align="center">产品负责</div></td>
                        <td>　风讯开发组</td>
                      </tr>
                      <tr bgcolor="#FAFAFA"> 
                        <td width="13%" height="20"> <div align="center">总机电话</div></td>
                        <td width="32%" height="20">　028-85098980 66026180 </td>
                        <td width="16%"> <div align="center">产品咨询</div></td>
                        <td width="39%">　028-85098980-601<br>
                          　<font color="#0076AE">QQ：159410　655071 　66252421 </font></td>
                      </tr>
                      <tr bgcolor="#FAFAFA"> 
                        <td width="13%" height="20"> <div align="center">技术支持</div></td>
                        <td width="32%" height="20">　028-85098980-606、607</td>
                        <td width="16%"> <div align="center">客服电话</div></td>
                        <td width="39%">　028-85098980-608</td>
                      </tr>
                      <tr bgcolor="#FAFAFA"> 
                        <td width="13%" height="20"> <div align="center">传　　真</div></td>
                        <td width="32%" height="20">　028-66026180-603</td>
                        <td width="16%"> <div align="center">电子邮件</div></td>
                        <td width="39%">　Service@cooin.com</td>
                      </tr>
                      <tr bgcolor="#FAFAFA"> 
                        <td width="13%" height="20"> <div align="center">官方网站</div></td>
                        <td width="32%" height="20">　<a href="http://www.Foosun.net">Foosun.net</a></td>
                        <td width="16%"> <div align="center">演示站点</div></td>
                        <td width="39%">　<a href="http://test.cooin.com">test.cooin.com</a></td>
                      </tr>
                      <tr bgcolor="#FAFAFA"> 
                        <td height="20"> <div align="center">帮助中心</div></td>
                        <td height="20">　<a href="http://Help.foosun.net" target="_blank">Help.foosun.net</a> 
                        </td>
                        <td> <div align="center">技术交流</div></td>
                        <td>　<a href="http://bbs.foosun.net">bbs.Foosun.net</a></td>
                      </tr>
                      <tr bgcolor="#FAFAFA"> 
                        <td height="20" colspan="4" bgcolor="#F0F0F0"><div align="center">&copy;2002-2004 
                            CopyRight Foosun Co.,LTD 　　All Rights Reserved</div></td>
                      </tr>
                    </table>
                    <br>
                  </div></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
</td>
  </tr>
</table>
</BODY>
</HTML>