www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > admin/manage_Right.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'session.CodePage=65001
response.Charset=utf-8
projectRootPath = "../" '相对当前应用程序根的位置
%>
<!-- #include file ="include/checkPurview.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>后台管理</title>
<link rel="stylesheet" type="text/css" href="themes/base.css"/>
<link href="themes/frmRight/frameRight.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<br />
<dl class="manageContent">
<dt>【 深度学习(asp)系统 】</dt>
<dd>
<br />
<table width="95%" class="tableBoderForm">
<tr class="trSouthidc">
<td width="120" valign="center">软件名称： <br /></td>
<td>【深度学习(asp)系统】</td>
</tr>
<tr class="trSouthidc">
<td valign="center">版权所有：</td>
<td> <a href="http://www.DeepTeach.com" target="_blank">www.DeepTeach.com</a></td>
</tr>
<tr class="trSouthidc">
<td valign="center">程序制作：</td>
<td> 吕海鹏</td>
</tr>
<tr class="trSouthidc">
<td valign="center">主页地址：</td>
<td> <a href="http://www.ITstudy.cn" target="_blank">http://www.ITstudy.cn</a></td>
</tr>
<tr class="trSouthidc">
<td valign="center">产品介绍：</td>
<td>
• 分类添加、修改、删除<br />
• 在线添加、编辑<br />
• 防SQL注入，MD5加密<br />
• 功能力求简洁明了，程序代码模块化力求可重用，详细提示方便二次开发<br /> </td>
</tr>
<tr class="trSouthidc">
<td valign="center">演示地址：</td>
<td> <a href="http://www.deepteach.com/" target="_blank">http://www.DeepTeach.com/url</a></td>
</tr>
<tr class="trSouthidc">
<td valign="center">联系方法：</td>
<td> <a href="http://www.deepteach.com/bbs/" target="_blank">http://bbs.deepteach.com</a><br />
<a href="http://www.deepteach.com/www1/ChannelContent.asp?ID=2" target="_blank">点击查看详细联系方法</a></td>
</tr>
</table>
<br />
</dd>
</dl>
<br />
<dl class="manageContent">
<dt>管 理 快 捷 方 式</dt>
<dd>
<br />
<table width="95%" class="tableBoderForm">
<tr class="trSouthidc">
<td width="120">快捷功能链接</td>
<td > <a href="http://www.deepteach.com/"><font color="000000">系统帮助</font></a>
| <a href="adminUser/adminUser_Manage.asp"><font color="000000">管理员管理</font></a></td>
</tr>
</table>
<br />
</dd>
</dl>
<br />
<%
'-----初始化 对象--------------------
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"
%>
<dl class="manageContent">
<dt>系 统 信 息</dt>
<dd>
<br />
<table width="95%" class="tableBoderForm">
<tr class="trSouthidc">
<td width="40%" height="23">用户名：<font class="t4"> <%=Session("AdminName")%></font></td>
<td>IP：<font class="t4"> <%=Request.ServerVariables("REMOTE_ADDR")%></font></td>
</tr>
<tr class="trSouthidc">
<td >身份过期：<font class="t4"><%=Session.timeout%> 分钟</font></td>
<td>现在时间：<font class="t4"> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></font></td>
</tr>
<tr class="trSouthidc">
<td height="23">上线次数： <font class="t4"><%=request.Cookies("adminInfo")("loginTimes")%></font></td>
<td>上线时间：<font class="t4"><%=request.Cookies("adminInfo")("thisLoginTime")%></font></td>
</tr>
<tr class="trSouthidc">
<td height="23">服务器域名：<font class="t4"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></td>
<td>脚本解释引擎：<font class="t4"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
</tr>
<tr class="trSouthidc">
<td height="23">服务器软件的名称：<font class="t4"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
<td>浏览器版本：<font class="t4"> <%=Request.ServerVariables("Http_User_Agent")%></font></td>
</tr>
<tr class="trSouthidc">
<td height="23">FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%>
</td>
<td>数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%>
</td>
</tr>
<tr class="trSouthidc">
<td height="23">Jmail组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%></td>
<td>CDONTS组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td>
<!-- <td width="50%">ACCESS 数据库路径：<a target="_blank" href="<%=datapath%><%=datafile%>"><%=datapath%><%=datafile%></a></td> -->
</tr>
</table>
<br />
</dd>
</dl>
<br />
</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
''''''''''''''''''''''''''''''
%>