📄 admin.asp
字号:
<!-- #INCLUDE FILE="include/onlogin.asp" -->
<html>
<head>
<title><%response.write web_var(web_config,1)%> - 管理页面</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link rel=stylesheet href='images/joekoe.css' type=text/css>
<%
select case action
case "left"
call admin_left()
case "main"
call admin_main()
case else
call admin_frame()
end select
sub admin_main()
%><body topmargin=0 leftmargin=0 bgcolor=<%response.write color1%>>
<table border=0 height='100%' width=600 align=center>
<tr height='100%' align=center><td width='30%'>
<%
if trim(request.querystring("error"))="popedom" then
response.write "<font class=red_2>可能您没有相关的后台管理权限</font>"
end if
%><br><br><br>
<img src='images/small/xx.gif' border=0><br><br><br>
<font class=red>欢迎管理员（<font class=blue><b><%response.write session("joekoe_online_admines")%></b></font>）的登陆</font>
</td><td width='70%'>
<table border=1 width='100%' cellspacing=0 cellpadding=1<%response.write table1%>>
<tr><td colspan=2 align=center bgcolor=#ffffff class=red_3>服务器的有关参数</td></tr>
<tr><td> 服务器名：</td><td> <%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
<tr><td> 服务器IP：</td><td> <%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
<tr><td> 服务器端口：</td><td> <%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
<tr><td> 服务器时间：</td><td> <%response.write now%></td></tr>
<tr><td> IIS版本：</td><td> <%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
<tr><td> 服务器操作系统：</td><td> <%response.write Request.ServerVariables("OS")%></td></tr>
<tr><td> 脚本超时时间：</td><td> <%response.write Server.ScriptTimeout%> 秒</td></tr>
<tr><td> 站点物理路径：</td><td> <%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
<tr><td> 服务器CPU数量：</td><td> <%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
<tr><td> 服务器解译引擎：</td><td> <%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
<tr><td colspan=2 align=center bgcolor=#ffffff class=red_3>组件支持有关参数</td></tr>
<tr><td> 数据库(ADO)支持：</td><td> <%if object_install("adodb.connection")=false then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td> FSO文本读写：</td><td> <%if object_install("scripting.filesystemobject")=false then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td> Stream文件流：</td><td> <%if object_install("Adodb.Stream")=false then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td> Jmail组件支持：</td><td> <%If object_install("JMail.SMTPMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
<tr><td> CDONTS组件支持：</td><td> <%If object_install("CDONTS.NewMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
</table>
</td></tr>
</table><%
end sub
function object_install(strclassstring)
on error resume next
object_install=false
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then object_install=true
set xtestobj=nothing
err=0
end function
sub admin_left()
%><base target=main>
<style type=text/css>
body { background:#799AE1; margin:0px; font:9pt 宋体; }
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover { color:#428EFF;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<SCRIPT language=javascript1.2>
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>
<%
REM 管理栏目设置
dim menu(5,13)
menu(0,0)="≡ 网 站 配 置 ≡"
menu(1,0)="≡ 用 户 设 置 ≡"
menu(2,0)="≡ 系 统 设 置 ≡"
menu(3,0)="≡ 版 面 管 理 ≡"
menu(4,0)="≡ 插 件 管 理 ≡"
menu(5,0)="≡ 数 据 管 理 ≡"
'---------------------------------------------网 站 配 置
menu(0,1)="<a href='admin_config_edit.asp'>配置修改</a>"
'---------------------------------------------用 户 设 置
menu(1,1)="<a href='admin_user.asp'>用户管理</a>"
menu(1,2)="<a href='admin_popedom.asp'>权限管理</a>"
menu(1,3)="<a href='admin_cards.asp'>会 员 卡</a>"
menu(1,4)="<a href='admin_mail.asp?action=addmail'>短信群发</a>"
'---------------------------------------------系 统 设 置
menu(2,1)="<a href='admin_nsort.asp'>分类管理</a>"
menu(2,2)="<a href='admin_update.asp'>网站公告</a>"
menu(2,3)="<a href='admin_adsmain.asp'>广告管理</a>"
menu(2,4)="<a href='admin_gongao.asp'>公告管理</a>"
menu(2,5)="<a href='admin_links.asp'>友情链接</a>"
menu(2,6)="<a href='admin_vote.asp'>调查管理</a>"
menu(2,7)="<a href='admin_upload_list.asp'>上传管理</a>"
'---------------------------------------------版 面 管 理
menu(3,1)="<a href='admin_forum.asp'>论坛管理</a>"
menu(3,2)="<a href='admin_product.asp'>商品管理</a>"
menu(3,3)="<a href='admin_business.asp'>交易管理</a>"
menu(3,4)="<a href='admin_news.asp'>新闻管理</a>"
menu(3,5)="<a href='admin_article.asp'>文章管理</a>"
menu(3,6)="<a href='admin_down.asp'>下载管理</a>"
menu(3,7)="<a href='admin_gallery.asp'>图库管理</a>"
menu(3,8)="<a href='admin_flash.asp'>动画管理</a>"
menu(3,9)="<a href='admin_video.asp'>影视管理</a>"
menu(3,10)="<a href='admin_website.asp'>网站推荐</a>"
menu(3,11)="<a href='admin_review.asp'>评论管理</a>"
menu(3,12)="<a href='gbook.asp' target=_blank>留言管理</a>"
'---------------------------------------------插 件 管 理
menu(4,1)="<a href='z_bank_admin.asp'>银行管理</a>"
menu(4,2)="<a href='admin_order.asp'>订单管理</a>"
menu(4,3)="<a href='z_ajk_admin.asp'>广告公司</a>"
menu(4,4)="<a href=''>预留栏目</a>"
'--------------------------------------------数 据 管 理
menu(5,1)="<a href=admin_datamanage.asp?action=BackupData>数据库备份</a>"
menu(5,2)="<a href=admin_datamanage.asp?action=RestoreData>数据库恢复</a>"
menu(5,3)="<a href=admin_datamanage.asp?action=CompressData>压缩数据库</a>"
menu(5,4)="<a href=admin_datamanage.asp?action=SpaceSize>系统空间</a>"
menu(5,5)="<a href=admin_data.asp>数据更新</a>"
menu(5,6)="<a href=admin_sql.asp>执行SQL</a>"
%>
</head><BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left>
<tr><td valign=top>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=42 valign=bottom>
<img src="images/admin/title.gif" width=158 height=38>
</td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/admin/title_bg_quit.gif >
<span><a href="admin.asp?action=main" ><b>管理首页</b></a>
| <a href=admin_login.asp?action=logout target=_top><b>退出</b></a></span>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="2">
<tr><td><div align="center"><font color="#FFFFFF"><b>欢迎您：<%=login_username%></b></font></div></td>
<td><div align="center">
<font color="#FFFFFF">
</font>
</div></td>
</tr>
</table>
<%
dim j,i
dim tmpmenu
dim menuname
dim menurl
for i=0 to ubound(menu,1)
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin/admin_left_<%=i+1%>.gif" id=menuTitle1 onclick="showsubmenu(<%=i%>)">
<span><%=menu(i,0)%></span> </td>
</tr>
<tr>
<td style="display:none" id='submenu<%=i%>'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<%
for j=1 to ubound(menu,2)
if isempty(menu(i,j)) then exit for
%>
<tr><td height=20 align=lift> <%response.write img_small("jt12")%><%=menu(i,j)%></td></tr>
<%
next
%>
</table>
</div>
<div style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td></td></tr>
</table>
</div>
</td>
</tr>
</table>
<%next%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin/admin_left_9.gif" id=menuTitle1 onClick="top.top.location.href='../club'">
<span>≡ 返 回 首 页 ≡</span> </td>
</tr>
<tr>
<td>
<div style="width:158">
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr><td></td></tr>
<tr>
<td height=25 class=menu_title onmouseover=this.className='menu_title'; onmouseout=this.className='menu_title2'; background="images/admin/admin_left_9.gif" id=menuTitle1>
<span>≡ 流 真 岁 月 ≡</span> </td>
</tr>
<tr>
<td>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr>
<td height=20 align="center"> <br>
版权所有<BR>
<a href="http://www.anxina.net" target=_blank><font color="#000000">流真岁月</font><br>
www.anxina.net </a><BR>
<BR>
</td></tr>
</table>
</div>
</td>
</tr>
</table><%
end sub
sub admin_frame()
%></head>
<frameset framespacing="0" cols="177,*" border="0" frameborder="0">
<noframes>
<body topmargin="0" leftmargin="0">
<p>此网页使用了框架，但您的浏览器不支持框架。请访问 <a href="<% response.write web_var(web_config,2) %>"><% response.write web_var(web_config,1) %></a></p>
</body>
</noframes>
<frame name="contents" target="main" src="admin.asp?action=left" scrolling="auto" noresize>
<frame name="main" src="admin.asp?action=main" scrolling="auto">
</frameset><%
end sub
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -