📄 index.asp
字号:
<!--#include file="admin.asp"-->
<html>
<head>
<title>后台管理中心</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/admin.css" type="text/css">
<style type="text/css">
.navPoint {CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}
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">系统登录时间：<%=Request.Cookies("9cool_time")%></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> ◇ 九酷网络个人主页管理系统<%=ver%><br>
◇ 第一次安装请仔细看安装说明 <br>
◇ 欢迎访问九酷网络相关网站 <br>
主力站点：<a href="http://www.9cool.net" target="_blank">http://www.9cool.net</a><br>
技术论坛：<a href="http://bbs.9cool.net" target="_blank">http://bbs.9cool.net</a><br>
E-mail：9cool@21cn.com<br>
QQ：312525000 </td>
</tr>
<tr class="a4">
<td><iframe name="update" src="http://www.9cool.net/update/" height="25" width="100%" frameborder="0" scrolling="no"></iframe></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="images/menu/title.gif" width="145"></td>
</tr>
<tr>
<td height="25" align="center" background="images/menu/title_bg_quit.gif" class="menu_title" onMouseOver="this.className='menu_title2';" onMouseOut="this.className='menu_title';">
<b><font color="215DC6"><%=request.Cookies("9cool_name")%></b>
| <a href="login.asp?action=loginout" 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="images/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_admin.asp">
系统基本设置</a></td>
</tr>
<tr>
<td height="19"><a target="main" href="host_admin.asp">空间类型管理</a></td>
</tr>
<tr>
<td height="19"><a href="admin_admin.asp" target="main">管理员管理</a></td>
</tr>
<tr>
<td height="19"><a href="affiche_admin.asp" target="main">网站公告管理</a></td>
</tr>
<tr>
<td height="19"><a href="message_admin.asp" target="main">站内短信管理</a></td>
</tr>
<tr>
<td height="19"><a href="user_admin.asp?menu=upsiteconfig" target="main">更新网站资料</a></td>
</tr>
<tr>
<td height="19"><a href="card_admin.asp" target="main">充值卡管理</a></td>
</tr>
</table>
</div>
<br>
</td>
</tr>
<tr>
<td class="menu_title" id="menuTitle1" onMouseOver="this.className='menu_title2';" onClick="showsubmenu(2)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="images/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="user_admin.asp?menu=agreement" target="main">注册用户协议</a></td>
</tr>
<tr>
<td height="20">
<a target="main" href="user_admin.asp?menu=showall">
注册用户管理</a></td>
</tr>
<tr>
<td height="20"><a href=user_admin.asp?menu=showallok&userSearch=active target="main">激活用户资料</a></td>
</tr>
<tr>
<td height="20"><a href="user_admin.asp?menu=showall" target="main">用户综合查询</a></td>
</tr>
<tr>
<td height="20">
<a target="main" href="ftp_admin.asp">
FTP用户管理</a></td>
</tr>
<tr>
<td height="20">
<a target="main" href="pay_admin.asp">
用户付费确认</a></td>
</tr>
<tr>
<td height="20"><a target="main" href="gbook_admin.asp">用户留言管理</a></td>
</tr>
<tr>
<td height="20"> <a href="question_admin.asp" target="main">用户问题解答</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(3)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="images/menu/admin_left_4.gif" height="25">
<span>网站管理 </span></td>
</tr>
<tr>
<td id="submenu3" 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="user_online.asp" target="main">查看在线用户</a></td>
</tr>
<tr>
<td height="20"><a href="news_admin.asp" target="main">网站新闻管理</a></td>
</tr>
<tr>
<td height="20"><a href="news_typeadmin.asp" target="main">新闻类别管理</a></td>
</tr>
<tr>
<td height="20"><a href="sitetype_admin.asp" target="main">用户站点类别</a></td>
</tr>
<tr>
<td height="20">
<a target="main" href="link_admin.asp">
友情链接管理</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(4)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="images/menu/admin_left_5.gif" height="25">
<span>邮件群发</span> </td>
</tr>
<tr>
<td id="submenu4" style="DISPLAY: none">
<div class="sec_menu" style="WIDTH: 145px">
<table cellspacing="0" cellpadding="0" width="135" align="center">
<tr>
<td height="19"><a href="email_write.asp" target="main">群发邮件</a></td>
</tr>
<tr>
<td height="19"><a href="smtp_admin.asp" target="main">SMTP管理</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(6)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="images/menu/admin_left_1.gif" height="25">
<span>广告管理</span></td>
</tr>
<tr>
<td id="submenu6" 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="admin_ad.asp?menu=banner">
</a><a href="ads_admin.asp" target="main">网站广告管理</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(7)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="images/menu/admin_left_7.gif" height="25">
<span>数据管理 </span></td>
</tr>
<tr>
<td id="submenu7" 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="databak_admin.asp">
ACCESS数据库</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(8)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="images/menu/admin_left_6.gif" height="25">
<span>其他功能</span> </td>
</tr>
<tr>
<td id="submenu8" 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="sys_check.asp">
服务器参数</a></td>
</tr>
<tr>
<td height="20"><a href="log_admin.asp" target="main">系统登录日志</a></td>
</tr>
<tr>
<td height="20" align="center">>><a href="login.asp?action=loginout" target="_top">退出系统</a><<</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td class="menu_title" id="menuTitle1" onMouseOver="this.className='menu_title2';" onMouseOut="this.className='menu_title';" background="images/menu/admin_left_9.gif" height="25">
<span>系统信息</span> </td>
</tr>
<tr>
<td>
<div class="sec_menu" style="WIDTH: 145px">
<table cellspacing="0" cellpadding="0" width="135" align="center">
<tr>
<td height="20" align="center"><span class="style1"><%=ver%></span></td>
</tr>
</table>
</div>
</td>
</tr>
</table><br>
</div>
<script>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</script>
<%
end sub
sub index
%>
<table border="0" cellpadding="0" cellspacing="0" height="100%" width="100%">
<tr>
<td align="middle" id="frmTitle" nowrap valign="center" name="frmTitle">
<iframe frameborder="0" id="carnoc" name="carnoc" scrolling="no" src="?menu=left" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 170px; Z-INDEX: 2">
</iframe></td>
<td class="a2" style="WIDTH: 9pt"><table border="0" cellpadding="0" cellspacing="0" height="100%">
<tr>
<td style="HEIGHT: 100%;cursor:hand" onClick="switchSysBar()"><span class="navPoint" id="switchPoint" title="关闭/打开左栏">3</span><br>
<br>
屏幕切换 </td>
</tr>
</table></td>
<td style="WIDTH: 100%">
<iframe frameborder="0" name="top" scrolling="no" src="?menu=top" style="HEIGHT: 4%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
<iframe frameborder="0" id="main" name="main" scrolling="yes" src="?menu=top2" style="HEIGHT: 96%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe></td>
</tr>
</table>
</center>
<iframe name="update" src="http://www.9cool.net/update/update.asp" width="0" height="0" frameborder="0" scrolling="no"></iframe>
<%
end sub
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
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -