📄 manage.asp
字号:
<!--#include file="conn.asp"-->
<%
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
Dim theInstalledObjects(4)
theInstalledObjects(0) = "Gatherer.VBProcess"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"
theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"
%>
<%
if session("flag")=false then
response.Redirect("index.htm")
response.End()
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>爱斯特淋浴设备有限公司管理后台</title>
<link href="../file/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: red}
.STYLE4 {color: #333333}
.STYLE5 {color: #ff0000}
-->
</style>
</head>
<body>
<table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
<th colspan=2 height=25>系统信息统计</th>
</tr>
<tr>
<td class=BodyTitle colspan=2 height=25>系统信息统计
<%
On Error Resume Next
Response.Write "今日留言：<font color=red><b>"
SQL = "SELECT count(msg_time) FROM msg WHERE Datediff('d',msg_time,Now())=0"
Set Rs = conn.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Response.Write 0
Else
Response.Write Rs(0)
End If
Set Rs = Nothing
Response.Write "</b></font> 条 "
Response.Write "当前在线：<font color=red><b>"&Application("WhosOn")
Response.Write "</b></font> 人 "
%>
</td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" class="TableRow1">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="TableRow1">网站管理组件：
<%If Not IsObjInstalled(theInstalledObjects(0)) Then%>
<font color="#FF0066"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%>
</td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
<font color="#FF0066"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" class="TableRow1">数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(2)) Then%>
<font color="#FF0066"><b>×</b></font>
<%else%>
<b style="color:blue">
<%If IsSqlDataBase = 1 Then%>
MS SQL
<%else%>
ACCESS
<%end if%>
</b>
<%end if%></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>Jmail组件支持：
<%If Not IsObjInstalled(theInstalledObjects(3)) Then%>
<font color="#FF0066"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" class="TableRow1">CDONTS组件支持：
<%If Not IsObjInstalled(theInstalledObjects(4)) Then%>
<font color="#FF0066"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
</tr>
<tr>
<td colspan=2 class="TableRow1" height=25><B>快捷操作选项：</B> <a href=add_product.asp target="_self">发布产品信息</a> <a href=../index.asp target="_self">添加下载文件</a> <a href=Admin_DataManage.asp?Action=ShowWebSpace target="_self">查询空间占用情况</a> <a href=manage_news.asp target="_self">新闻管理</a> <a href=manage_msg.asp?show_msg_info=today target="_self">查看今日客户留言</a></td>
</tr>
</table>
<table cellpadding="3" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
<th height=25>爱斯特淋浴设备有限公司管理后台使用须知</th>
<tr>
<td class="TableRow2"><font color="gray"> 1.添加后台管理员：添加网站后台管理员，密码为MD5加密！</font></td>
</tr>
<tr>
<td class="TableRow2"><font color="gray"> 2.管理管理员：包括修改管理员密码和删除管理员信息。</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 3.产品大类管理：添加产品大类别，可以指定排列顺序。</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 4.产品小类管理：添加产品小类和管理产品小类，可以设定排列顺序,可以指定该类图片展览大小比例。</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 5.发布产品信息：发布产品信息，是否推荐，是否显示，上传图片，集成WEB在线编辑器。</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 6.管理产品信息：根据产品类别来修改具体产品的信息和删除产品的信息等。</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 7.产品图片管理：一般我们把不要的产品删除时，只是删除了数据库里面的信息，并没有删除空间里面的图片，产品图片管理</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 这个功能就是用来专业管理空间里面的产品图片的，可以实现删除空间里面的图片，达到节省Web空间的目的。</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 8.公司新闻管理可以管理和发布公司最新的新闻</font></td>
</tr><tr>
<td class="TableRow2"><font color="gray"> 9.客户留言管理可以浏览客户的留言 </font></td>
</tr></table>
<br>
<table cellpadding="3" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
<th colspan=2 height=25>网站管理系统开发</th>
<tr>
<td width="60" class="TableRow2" height=23>程序制作</td>
<td class="TableRow1"><span class="STYLE4"><span class="STYLE5">蔡志云</span> 2006.9.12 最后一次更新时间:2006.10.3 </span></td>
</tr>
<tr>
<td class="TableRow2" height=23>联系方式</td>
<td class="TableRow1">QQ:380561443 Email:380561443@163.com 哈尔滨工程大学 <span class="style1">大地神鹰</span> </td>
</tr>
<tr>
<td class="TableRow2" height=23>开发版本</td>
<td class="TableRow1">公司产品管理网站后台 <span class="style1">神鹰v1.0</span></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
</tr>
<tr>
<td width="800" align="center" valign="top"><br></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -