📄 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>
</head>
<script language=javascript>
<!--
function left_menu(lm)
{
if (lm==1)
{
if (document.all.left_sys.style.display=='none')
{ document.all.left_sys.style.display=''; document.all.left_bm.style.display='none' }
else
{ document.all.left_bm.style.display=''; document.all.left_sys.style.display='none' }
}
else
{
if (document.all.left_bm.style.display=='none')
{ document.all.left_bm.style.display=''; document.all.left_sys.style.display='none' }
else
{ document.all.left_sys.style.display=''; document.all.left_bm.style.display='none' }
}
}
-->
</script>
<body topmargin=0 leftmargin=0 bgcolor=<%response.write color1%>><center>
<table border=0 width='100%' height='100%' cellspacing=0 cellpadding=0>
<tr><td width=155 align=center>
<table border=0 width='100%' cellspacing=0 cellpadding=2>
<tr><td align=center><a href='main.asp' target=_blank><%response.write web_var(web_config,1)%></a></td></tr>
<tr><td align=center height=30><font class=red><b>管 理 后 台</b></font></td></tr>
<tr><td height=1 bgcolor=<%response.write color2%>></td></tr>
<tr><td align=center bgcolor=<%response.write web_var(web_color,2)%> style='CURSOR: HAND;' height=20 valign=bottom onclick="left_menu(1)"><font class=end><b>≡ 系 统 管 理 ≡</b></font></td></tr>
<tr><td height=1 bgcolor=<%response.write color2%>></td></tr>
<tr id=left_sys><td align=center>
<table border=0 cellspacing=0 cellpadding=2>
<tr><td><%response.write img_small("jt1")%><a href='admin_user.asp'>用户管理</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_cards.asp'>会 员 卡</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_links.asp'>友情链接</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_vote.asp'>调查管理</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_nsort.asp'>分类管理</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_update.asp'>网站更新</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_data.asp'>数据更新</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_review.asp'>评论管理</a></td></tr>
<tr><td height=5></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_upload_list.asp'>上传管理</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_config_edit.asp'>配置修改</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_sql.asp'>执行SQL</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_popedom.asp'>权限管理</a></td></tr>
</table>
</td></tr>
<tr><td height=5></td></tr>
<tr><td height=1 bgcolor=<%response.write color2%>></td></tr>
<tr><td align=center bgcolor=<%response.write web_var(web_color,2)%> style='CURSOR: HAND;' height=20 valign=bottom onclick="left_menu(2)" href="javsscript:;"><font class=end><b>≡ 版 面 管 理 ≡</b></font></td></tr>
<tr><td height=1 bgcolor=<%response.write color2%>></td></tr>
<tr id=left_bm style="display:none;"><td align=center>
<table border=0 cellspacing=0 cellpadding=2>
<tr><td><%response.write img_small("jt1")%><a href='admin_forum.asp'>论坛管理</a></td></tr>
<tr><td height=5></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_news.asp'>行业动态</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_article.asp'>文栏管理</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_down.asp'>下载栏目</a></td></tr>
<tr><td height=5></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_website.asp'>网站推荐</a></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='admin_gallery.asp'>图库管理</a></td></tr>
<tr><td height=5></td></tr>
<tr><td><%response.write img_small("jt1")%><a href='gbook.asp' target=_blank>留言管理</a></td></tr>
</table>
</td></tr>
<tr><td height=5></td></tr>
<tr><td height=1 bgcolor=<%response.write color2%>></td></tr>
<tr><td align=center height=20 valign=bottom bgcolor=<%response.write web_var(web_color,2)%>><a class=end href='admin_login.asp?action=logout' target=_top><b>≡ 退 出 管 理 ≡</b></a></td></tr>
<tr><td height=1 bgcolor=<%response.write color2%>></td></tr>
<tr><td align=center height=25><%response.write web_edition%></td></tr>
<tr><td align=center><%response.write web_label%></td></tr>
<tr><td height=20></td></tr>
</table>
</td><td width=1 bgcolor=<%response.write web_var(web_color,3)%>></td></tr>
</table>
</body><%
end sub
sub admin_frame()
%></head>
<frameset framespacing="0" cols="157,*" 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="no" 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 + -