📄 adweb.asp
字号:
<html>
<head>
<title>后台管理中心</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<style type="text/css">.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}</style>
<style>
BODY {
BACKGROUND: #799ae1; MARGIN: 0px;
}
.sec_menu {
BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
.menu_title SPAN {
FONT-WEIGHT: bold; LEFT: 8px; COLOR: #215dc6; POSITION: relative; TOP: 2px
}
.menu_title2 SPAN {
FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px
}
.style1 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
}
</style>
<script>
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
</head>
<body text="#000000" leftmargin="0" topmargin="0" scroll="no">
<%
select case Request("menu")
case ""
index
case "left"
left
case "top"
top
case "top2"
top2
end select
sub top
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td class="a1" height="20" align="center">
<script language="javascript">
<!--
now = new Date()
hour = now.getHours()
if (hour < 12) {
document.write("现在时间是： " + now.toLocaleString())
} else if (hour < 18){
document.write("现在时间是： " + now.toLocaleString())
} else if (hour >= 18) {
document.write("现在时间是： " + now.toLocaleString())
}
// --></script></td>
</tr>
</table>
<%
end sub
sub top2
Dim theInstalledObjects(18)
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) = "Persits.Upload"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.Message"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "w3.upload"
%>
<table cellpadding="4" cellspacing="1" border="0" width="70%" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><b>服务器基本参数</b></td>
</tr>
<tr class="a4">
<td>站点物理路径：<%=server.MapPath("..")%>\</td>
</tr>
<tr class="a4">
<td>服务器域名：<%=Request.ServerVariables("server_name")%>
/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr class="a4">
<td>服务器软件的名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr class="a4">
<td>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr class="a4">
<td>ACCESS 数据库路径：<%=db%></td>
</tr>
<tr class="a4">
<td>FSO 文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr class="a4">
<td>Aspupload 文件上传：
<%If Not IsObjInstalled(theInstalledObjects(11)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr class="a4">
<td>Jmail 组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr class="a4">
<td>CDONTS 组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
</table>
<br>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<tr class="a1">
<td height="25" align="center">系统版本信息</td>
</tr>
<tr class="a4">
<td> <p>◇ 工资系统 </p>
<p>◇ <a href="http://www.cqwu.edu.cn" target="_blank">重庆文理学院</a> </p>
<p>◇制作人：07计科 <br>
</p></td>
</tr>
</table>
<br>
<br>
<%
end sub
sub left
%>
<div style="height:100%;OVERFLOW:auto">
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td valign="bottom" height="42">
<img height="38" src="menu/title.gif" width="145"></td>
</tr>
<tr>
<td height="25" align="center" background="menu/title_bg_quit.gif" class="menu_title" onMouseOver="this.className='menu_title2';" onMouseOut="this.className='menu_title';">
<b><font color="215DC6"></b><a href="../login.asp?aduser=out" target="_top" onClick="return confirm('确定要退出吗？');">退出管理中心</a></td>
</tr>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td class="menu_title" id="menuTitle2" onMouseOver="this.className='menu_title2';" onClick="showsubmenu(1)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="menu/admin_left_2.gif" height="25">
<span>网站基本信息</span> </td>
</tr>
<tr>
<td id="submenu1" style="DISPLAY: none">
<div class="sec_menu" style="WIDTH: 145px">
<table cellspacing="0" cellpadding="0" width="135" align="center">
<tr>
<td height="20">
<a target="main" href="config.asp?menu=config">
1.系统基本设置</a></td>
</tr>
<tr>
<td height="20"><a href="config.asp?menu=reg" target="main">2.注册协议</a><a href="home_admin.asp" target="main"></a></td>
</tr>
<tr>
<td height="20"><a href="huiyuan_admin.asp" target="main">3.</a><a href="config.asp?menu=adlog" target="main">管理员登录信息</a> </td>
</tr>
<tr>
<td height="20"><a href="config.asp?menu=log" target="main">4.员工登录信息</a></td>
</tr>
</table>
</div>
<br> </td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td class="menu_title" id="menuTitle1" onMouseOver="this.className='menu_title2';" onClick="showsubmenu(2)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="menu/admin_left_3.gif" height="25"><span>管理员设置</span> </td>
</tr>
<tr>
<td id="submenu2" style="DISPLAY: none"><div class="sec_menu" style="WIDTH: 145px">
<table cellspacing="0" cellpadding="0" width="135" align="center">
<tr>
<td height="20"><a href="config.asp?menu=admin" target="main">1.添加管理员</a></td>
</tr>
<tr>
<td height="20"><a href="config.asp?menu=adminlist" target="main">2.管理员列表</a></td>
</tr>
<tr>
<td height="20"><a href="bbs.asp" target="main">3.管理员权限</a></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -