admin_index.asp

来自「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 294 行 · 第 1/2 页

ASP
294 行
字号
12
<!--#include file="setup.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
NC_Admin.Check
Select Case Request("action")
	Case "admin_left"
		Call admin_left
	Case "admin_switch"
		Call admin_switch
	Case "admin_main"
		Call admin_main
	Case Else
		Call main
End Select

Private Sub main()
	Response.Write "<HTML><HEAD><TITLE>"
	Response.Write Newasp.Setting(0)
	Response.Write "-=>>管理中心</TITLE>" & vbCrLf
	Response.Write "<META http-equiv=Content-Type content=text/html;charset=gb2312>" & vbCrLf
	Response.Write "</HEAD>" & vbCrLf
	Response.Write " <frameset rows=""*"" cols=""181,*"" framespacing=""0"" frameborder=""no"" border=""false"" id=""frame"" scrolling=""yes"">" & vbCrLf
	Response.Write " <frame name=""left"" scrolling=""auto"" marginwidth=""10"" marginheight=""10"" src=""admin_index.asp?action=admin_left"">" & vbCrLf
	Response.Write " <frame name=""main"" scrolling=""auto"" src=""admin_index.asp?action=admin_main"" marginwidth=""10"" marginheight=""10"">" & vbCrLf
	Response.Write " </frameset>" & vbCrLf
	Response.Write "</frameset>" & vbCrLf
	Response.Write "<noframes>" & vbCrLf
	Response.Write " <body leftmargin=""2"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf
	Response.Write " <p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p>"
	Response.Write " </body>" & vbCrLf
	Response.Write "</noframes>" & vbCrLf
	Response.Write "</BODY></HTML>" & vbCrLf
End Sub

Private Sub admin_left()
	Dim menu(6, 10)
	Dim n
	Dim j
	Dim i
	Dim tmpmenu
	Dim menuname
	Dim menurl
	Dim ArrayHeight
	Dim vHeight
	ArrayHeight = "100,210,120,140,130,160,120"
	vHeight = Split(ArrayHeight, ",")
	Rem 管理栏目设置
	menu(0, 0) = "常规设置"
	menu(0, 1) = "<a href=admin_setting.asp target=main>基本设置</a> | <a href=admin_adcolumn.asp target=main>广告管理</a>"
	menu(0, 2) = "<a href=admin_template.asp target=main>模板样式总管理</a>"
	menu(0, 3) = "<a href=admin_loadskin.asp target=main>模板导出</a> | <a href=admin_loadskin.asp?action=load target=main>模板导入</a>"
	menu(0, 4) = "<a href=admin_message.asp?action=add target=main>发布公告</a> | <a href=admin_message.asp target=main>公告管理</a>"

	menu(1, 0) = "软件管理"
	menu(1, 1) = "<a href=admin_software.asp?action=add target=main>添加软件</a> | <a href=admin_software.asp?idd=0 target=main>管理软件</a>"
	menu(1, 2) = "<a href=admin_sorting.asp?action=add target=main>添加软件分类</a> | <a href=admin_sorting.asp target=main>管理</a>"
	menu(1, 3) = "<a href=admin_server.asp target=main>下载服务器管理</a>"
	menu(1, 4) = "<a href=admin_softrec.asp target=main>回收站管理</a>"
	menu(1, 5) = "<a href=admin_publish.asp target=main>前台发布软件管理</a>"
	menu(1, 6) = "<a href=admin_softerror.asp target=main>错误软件</a> | <a href=admin_softupdate.asp target=main>更新数据</a>"
	menu(1, 7) = "<a href=admin_softessay.asp target=main>软件评论管理</a>"
	menu(1, 8) = "<a href=Create_HotTopJs.asp target=main>生成下载排行JS</a>"
	menu(1, 9) = "<a href=admin_skycn.asp target=main>添加天空软件信息</a>"
	menu(1, 10) = "<a href=dygx.asp target=main>电影更新</a> | <a href=admin_software0.asp?idd=1 target=main>URL更新</a>"
	menu(2, 0) = "文章管理"

	menu(2, 1) = "<a href=admin_article.asp?action=add target=main>添加文章</a> | <a href=admin_article.asp target=main>管理文章</a>"
	menu(2, 2) = "<a href=admin_class.asp?action=add target=main>添加文章分类</a> | <a href=admin_class.asp target=main>管理</a>"
	menu(2, 3) = "<a href=admin_articleupdate.asp target=main>数据更新</a> | <a href=admin_articlerec.asp target=main>回收站</a>"
	menu(2, 4) = "<a href=admin_articlessay.asp target=main>文章评论管理</a>"
	menu(2, 5) = "<a href=Create_HotTopJs.asp target=main>生成文章排行JS</a>"
	menu(3, 0) = "生成 HTML"

	menu(3, 1) = "<a href=Create_Index.Asp target=main>生成首页</a> | <a href=Create_Sorting.Asp target=main>软件列表</a>"
	menu(3, 2) = "<a href=Create_HotSoft.Asp target=main>热门软件</a> | <a href=Create_SoftInfo.Asp target=main>软件信息</a>"
	menu(3, 3) = "<a href=Create_LateNew.Asp target=main>更新软件</a> | <a href=Create_Commend.Asp target=main>推荐软件</a>"
	menu(3, 4) = "<a href=Create_ArticleIndex.Asp target=main>文章首页</a> | <a href=Create_Listing.Asp target=main>文章列表</a>"
	menu(3, 5) = "<a href=Create_HotArticle.Asp target=main>热门文章</a> | <a href=Create_Article.Asp target=main>文章内容</a>"
	menu(3, 6) = "<a href=Create_Catalog.Asp target=main>生成分类</a> | <a href=Create_NewArticle.Asp target=main>更新文章</a>"
	menu(4, 0) = "用户管理"

	menu(4, 1) = "<a href=admin_user.asp target=main>查看会员信息</a>"
	menu(4, 2) = "<a href=admin_password.asp target=main>管理员密码修改</a>"
	menu(4, 3) = "<a href=admin_webmaster.asp?action=add target=main>管理员添加</a> | <a href=admin_webmaster.asp target=main>管理</a>"
	menu(4, 4) = "<a href=admin_group.asp?action=addgroup target=main>用户组添加</a> | <a href=admin_group.asp target=main>管理</a>"
	menu(4, 5) = "<a href=admin_mailist.asp target=main>邮件列表</a> | <a href=admin_mailout.asp target=main>列表导出</a>"
	menu(4, 6) = "<a href=admin_mailist.asp?action=mail target=main>发邮件</a>"
menu(4, 7) = ""
menu(4, 8) = "<script>var lainframe;</script><script language=""javascript"" type=""text/javascript"" src=""http://js.users.51.la/1534912.js""></script>"
	menu(5, 0) = "其它设置"

	menu(5, 1) = "<a href=admin_link.asp?action=add target=main>友情链接添加</a> | <a href=admin_link.asp target=main>管 理</a>"
	menu(5, 2) = "<a href=admin_plusmenu.asp?action=add target=main>网站栏目添加</a> | <a href=admin_plusmenu.asp target=main>管 理</a>"
	menu(5, 3) = "<a href=admin_lockip.asp?action=add target=main>IP锁定添加</a> | <a href=admin_lockip.asp target=main>管理</a>"
	menu(5, 4) = "<a href=admin_vote.asp?action=add target=main>增加投票</a> | <a href=admin_vote.asp target=main>投票管理</a>"
	menu(5, 5) = "<a href=admin_filemanage.asp?path=" & Newasp.SetupDir & Newasp.Setting(26) & " target=main>上传图片管理</a>"
	menu(5, 6) = "<a href=admin_filemanage.asp?path=" & Newasp.SetupDir & Newasp.Setting(24) & " target=main>上传文件管理</a>"
	menu(5, 7) = "<a href=admin_filemanage.asp target=main>在线文件管理</a>"
	menu(6, 0) = "数据处理(Access)"

	menu(6, 1) = "<a href=admin_database.asp#1 target=main>数据库更名</a> | <a href=admin_database.asp#2 target=main>备 份</a>"
	menu(6, 2) = "<a href=admin_database.asp#4 target=main>数据库压缩</a> | <a href=admin_database.asp#4 target=main>恢 复</a>"
	menu(6, 3) = "<a href=admin_probe.asp target=main>服务器信息</a>"
	menu(6, 4) = "<a href=admin_replace.asp target=main>数据库批量替换</a>"
	menu(6, 5) = "<a href=../SpaceSize.asp target=main>系统空间占用</a>"
	Response.Write "<head>"
	Response.Write "<title>管理页面</title>" & vbCrLf
	Response.Write "<META content=""MSHTML 5.00.3315.2870"" name=GENERATOR>" & vbCrLf
	Response.Write "<style type=text/css>" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "BODY{" & vbCrLf
	Response.Write " margin:0px;" & vbCrLf
	Response.Write " FONT-SIZE: 12px;" & vbCrLf
	Response.Write " FONT-FAMILY: ""宋体"", ""Verdana"", ""Arial"", ""Helvetica"", ""sans-serif"";" & vbCrLf
	Response.Write " background-color: #BEBFD9;" & vbCrLf
	Response.Write " scrollbar-face-color: #EAEAF2;" & vbCrLf
	Response.Write " scrollbar-highlight-color: #FFFFFF;" & vbCrLf
	Response.Write " scrollbar-shadow-color: #9395C0;" & vbCrLf
	Response.Write " scrollbar-3dlight-color: #F3F3F8;" & vbCrLf
	Response.Write " scrollbar-arrow-color: #9395C0;" & vbCrLf
	Response.Write " scrollbar-track-color: #F3F3F8;" & vbCrLf
	Response.Write " scrollbar-darkshadow-color: #F3F3F8;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "table { border:0px; }" & vbCrLf
	Response.Write "td { font:normal 12px 宋体; }" & vbCrLf
	Response.Write "img { vertical-align:bottom; border:0px; }" & vbCrLf
	Response.Write "a { font:normal 12px 宋体; color:#111111; text-decoration:none; }" & vbCrLf
	Response.Write "a:hover { color:#6C70AA;text-decoration:underline; }" & vbCrLf
	Response.Write ".sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#FBFBFC; }" & vbCrLf
	Response.Write ".menu_title { }" & vbCrLf
	Response.Write ".menu_title span { position:relative; top:2px; left:8px; color:#4A4F80; font-weight:bold; }" & vbCrLf
	Response.Write ".menu_title2 { }" & vbCrLf
	Response.Write ".menu_title2 span { position:relative; top:2px; left:8px; color:#596099; font-weight:bold; }" & vbCrLf
	Response.Write "input,select,Textarea{" & vbCrLf
	Response.Write "font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "-->"
	Response.Write "</style>" & vbCrLf

	Response.Write "<SCRIPT language=javascript>"& vbCrLf
	Response.Write "function menuShow(obj,maxh,obj2)"& vbCrLf
	Response.Write "{"& vbCrLf
	Response.Write "  if(obj.style.pixelHeight<maxh)"& vbCrLf
	Response.Write "  {"& vbCrLf
	Response.Write "    obj.style.pixelHeight+=maxh/5;"& vbCrLf
12

admin_index.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器」中的 admin_index.asp 源码文件，采用 ASP 编程语言编写，共 294 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?