<% Dim theInstalledObjects(4) theInstalledObjects(0) = "Gatherer.VBProcess" theInstalledObjects(1) = "Scripting.FileSystemObject" theInstalledObjects(2) = "adodb.connection" theInstalledObjects(3) = "JMail.SMTPMail" theInstalledObjects(4) = "CDONTS.NewMail" Function IsObjInstalled(ByVal strClassString) Dim xTestObj,ClsString On Error Resume Next IsObjInstalled = False ClsString = strClassString Err = 0 Set xTestObj = Server.CreateObject(ClsString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 Exit Function End Function %>
系统信息统计
服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>) 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%> ADO无组件上传：
FSO文本读写： <%If Not IsObjInstalled(theInstalledObjects(1)) Then%> × <%else%> √ <%end if%> 数据库使用： <%If Not IsObjInstalled(theInstalledObjects(2)) Then%> × <%else%> <%If IsSqlDataBase = 1 Then%> MS SQL <%else%> ACCESS <%end if%> <%end if%>
Jmail组件支持： <%If Not IsObjInstalled(theInstalledObjects(3)) Then%> × <%else%> √ <%end if%> CDONTS组件支持： <%If Not IsObjInstalled(theInstalledObjects(4)) Then%> × <%else%> √ <%end if%>
合作网站：
网站管理系统版本
当前版本 ACT网站内容管理系统 免费版 (Free Edition)
版权声明 1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;
2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;
3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; 　
4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。
网站管理系统开发
程序制作 ACT(承接网站制作,后台开发 )
联系方式 E_mail：1725440647@qq.com QQ：1725440647
程序主页 www.17tian.com    www.865171.cn