📄 manage_index_main.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="admin.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/config.asp"-->
<%
call CloseConn()
Dim theInstalledObjects(17)
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"
%>
<html>
<head>
<title>后台管理首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center height="30">
<tr align="center">
<td height=26 class="topbg" style="background-image: url('../Images/topbg1.gif')"><strong>创软企业管理系统后台管理首页</strong></tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=25 colspan=2 class="topbg" style="background-image: url('../Images/topbg1.gif')"><strong>服 务 器 信 息</strong><tr> <tr>
<td width="50%" class="tdbg" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" class="tdbg">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="50%" class="tdbg" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="tdbg">数据库地址：</td>
</tr>
<tr>
<td width="50%" class="tdbg" height=23>FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" class="tdbg">数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr>
<td width="50%" class="tdbg" height=23>Jmail组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" class="tdbg">CDONTS组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr>
<td class="tdbg" height=23> </td>
<td align="right" class="tdbg"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息>>></a></td>
</tr>
</table>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=25 colspan=2 class="topbg" style="background-image: url('../Images/topbg1.gif')">
<strong>创软企业管理系统</strong><b>相关说明</b><tr>
<td width="121" class="tdbg" height=23>产品负责/商业发展：</td>
<td width="697" class="tdbg">回忆 联系电话：0592－8468179
<a href="mailto:basedsoft@basedsoft.com">E-mail:basedsoft@basedsoft.com</a>
QQ:412771253 官方网站：<a href="http://www.basedsoft.com">www.basedsoft.com</a> </td>
</tr>
<tr>
<td width="121" class="tdbg" height=23> </td>
<td width="697" class="tdbg">
<p align="center"><strong>系 统 帮 助</strong></td>
</tr>
<tr>
<td class="tdbg" height=23>产品版本说明</td>
<td class="tdbg"><font color="#FF0000">创软企业网站管理系统第三版（功能版）</font></td>
</tr>
<tr>
<td class="tdbg" height=138 rowspan="11">系统帮助说明</td>
<td class="tdbg">在第二版的基础上修正了产品说明<font color="#FF0000">分行问题</font>！增加了产品说明中<font color="#FF0000">分页显示的功能</font>！
修正<font color="#FF0000">新闻分行</font>，增加产品<font color="#FF0000">下载功能</font>！增加<font color="#FF0000">合同下载</font></td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">系统管理</font>（系统信息配置、数据库备份、上传管理、友情管理、系统查看、调查管理等）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">企业信息管理</font>（公司简介、组织结构、公司文化、精神理念、联系我们等）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">企业产品下载</font><b>( </b>
下载无限分类，下载管理，下载智能增加）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">企业产品管理</font>（产品类别设置、增加新产品、产品管理、修改产品、审核产品、产品订单管理、产品权限查看功能等）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">企业新闻管理</font>（公司新闻管理、公司新闻增加、业内资讯管理与增加等）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">
企业荣誉管理、企业形象管理、企业网络营销管理、企业人才管理</font></td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">产品询价功能</font>（用户可以对每个产品进行询价，提交后管理员才可见进行回复）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">邮件列表管理</font>（管理邮件列表，在线发送邮件列表）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">合同下载 </font><b>(</b>直接增加文件即可）</td>
</tr>
<tr>
<td class="tdbg"><font color="#FF0000">会员管理</font>（用户审核、用户权限分配、VIP会员与企业会员管理、可给在线会员发信件）(<font color="#FF0000">当然还有众多实用的小功能，自己在使用中慢慢发现吧</font>）</td>
</tr>
<tr>
<td class="tdbg" height=69>特别说明</td>
<td class="tdbg" width="697">
本系统现在可以说是网络中对于公司企业建站最完善的系统了！为什么这么说？因为它以经基本上适用于所有企业的建站！当然对于一些特殊的我们另当别论了！！希望大家使用愉快！！如果你觉得还有什么地方要改进或是想依自己的特色建站，可以联系我们，我们将忠诚地为你服务！！我们的宗旨就是让您的企业走向世界！走向未来！</td>
</tr>
<tr>
<td class="tdbg" height=69>附加说明</td>
<td class="tdbg" width="697">
*****************************************************************************************************************<br>
* 创软企业网站管理系统 <font color="#FF0000">功能版版</font> 欢迎购买，价格优惠。
我们还将先后提出<font color="#FF0000">会员管理系统、企业资料上报系统、</font><br>
* <font color="#FF0000"> 企业展示系统、商城系统（单用户与多用户)、电子商务系统
等等 </font>国内最低价</a>！欢迎联系购买！<br>
*<br>
* <a href="mailto:basedsoft@basedsoft.com">联系方式：basedsoft@basedsoft.com</a> QQ:412771253
<br>
* <br>
* <a target="_blank" href="http://www.basedsoft.com"> http://www.basedsoft.com</a>
（<font color="#FF0000">创软数据中心</font>）,<font color="#0000FF">空间域名、主机租用、企业上网、程序定做，国内最低价</font><font color="#00FF00"></a></font><br>
* <br>
* 我们的宗旨：做全国最好、做全国最低价位、一切为了客户、为了客户的一切！让你的企业走向世界是我们追求的目标！！<br>
****************************************************************************************************************</td>
</tr>
</table>
<div align="center"><br>
CopyRight(C)2005-2010 <a href="http://www.basedsoft.com">创软企业建站系统</a> All
Rights Reserved.<BR>
<BR>
</div>
</body>
</html>
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -