⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_index.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
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
NothingObject
Private Sub main()
	Response.Write "<HTML><HEAD><TITLE>"
	Response.Write DownsysClass.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,160,120,180,180,60,100,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_message.asp?action=add target=main>发布公告</a> | <a href=admin_message.asp target=main>公告管理</a>"

	menu(1, 0) = "信息管理"
	menu(1, 1) = "<a href=admin_publish.asp target=main>用户发布</a> "
	menu(1, 2) = "<a href=admin_software.Asp?ado=0 target=main>供应</a> | <a href=admin_software.Asp?ado=1 target=main>求购</a> | <a href=admin_software.Asp?ado=2 target=main>合作</a> | "
	menu(1, 3) = "<a href=admin_sorting.asp?action=add target=main>添加信息分类</a> | <a href=admin_sorting.asp target=main>管理</a>"
	menu(1, 4) = "<a href=admin_softrec.asp target=main>回收站管理</a>"
	menu(1, 5) = "<a href=admin_softerror.asp target=main>错误信息</a> | <a href=admin_softupdate.asp target=main>更新数据</a>"
	menu(1, 6) = "<a href=admin_softessay.asp target=main>留言询价审核</a> | <a href=admin_softessays.asp target=main>管理</a>"
	menu(1, 7) = "<a href=Create_HotTopJs.asp target=main>生成信息排行JS</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_Help.asp target=main>生成帮助</a>"
	menu(3, 2) = "<a href=Create_HotSoft.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(3, 7) = "<a href=Create_Software.Asp?ado=0 target=main>供应</a> | <a href=Create_Software.Asp?ado=1 target=main>求购</a> | <a href=Create_Software.Asp?ado=2 target=main>合作</a> | "
	menu(3, 8) = "<a href=Create_Sorting.Asp?ado=0 target=main>供应</a> | <a href=Create_Sorting.Asp?ado=1 target=main>求购</a> | <a href=Create_Sorting.Asp?ado=2 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) = "<a href=Create_PageIndex.Asp target=main>黄页首页</a> | <a href=Create_PageWare.Asp target=main>黄页信息</a>"
	menu(4, 8) = "<a href=Create_PageCity.Asp target=main>城市列表</a> | <a href=Create_PageSort.Asp target=main>行业列表</a>"
	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_lockip.asp?action=add target=main>IP锁定添加</a> | <a href=admin_lockip.asp target=main>管理</a>"
	menu(6, 0) = "商店管理"

	menu(6, 1) = "<a href=admin_Shopware.asp?action=add target=main>添加商品</a> | <a href=admin_Shopware.asp target=main>管理商品</a>"
	menu(6, 2) = "<a href=admin_Shoping.asp?action=add target=main>添加商品分类</a> | <a href=admin_Shoping.asp target=main>管理</a>"
	menu(6, 3) = "<a href=admin_shopessay.asp target=main>商品定单审核</a> | <a href=admin_shopessays.asp target=main>管理</a>"
	menu(6, 4) = "<a href=Create_Shoping.Asp target=main>商店列表</a> | <a href=Create_Shopware.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: #CBCBCB;" & vbCrLf
	Response.Write " scrollbar-face-color: #cccccc;" & vbCrLf
	Response.Write " scrollbar-highlight-color: #000000;" & vbCrLf
	Response.Write " scrollbar-shadow-color: #000000;" & vbCrLf
	Response.Write " scrollbar-3dlight-color: #000000;" & vbCrLf
	Response.Write " scrollbar-arrow-color: #000000;" & vbCrLf
	Response.Write " scrollbar-track-color: #000000;" & vbCrLf
	Response.Write " scrollbar-darkshadow-color: #000000;" & 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:#666666; text-decoration:none; }" & vbCrLf
	Response.Write "a:hover { color:#000000;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:#ffffff; }" & vbCrLf
	Response.Write ".menu_title { }" & vbCrLf
	Response.Write ".menu_title span { position:relative; top:2px; left:8px; color:#666666; font-weight:bold; }" & vbCrLf
	Response.Write ".menu_title2 { }" & vbCrLf
	Response.Write ".menu_title2 span { position:relative; top:2px; left:8px; color:#000000; 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/20;"& vbCrLf
	Response.Write "	obj.filters.alpha.opacity+=5;"& vbCrLf
	Response.Write "	obj2.background=""images/title_bg_hide.gif"";"& vbCrLf
	Response.Write "    if(obj.style.pixelHeight==maxh/10)"& vbCrLf
	Response.Write "	  obj.style.display='block';"& vbCrLf
	Response.Write "	myObj=obj;"& vbCrLf
	Response.Write "	myMaxh=maxh;"& vbCrLf
	Response.Write "	myObj2=obj2;"& vbCrLf
	Response.Write "	menuShow(myObj,myMaxh,myObj2);"& vbCrLf
	Response.Write "  }"& vbCrLf
	Response.Write "}"& vbCrLf
	Response.Write "function menuHide(obj,maxh,obj2)"& vbCrLf
	Response.Write "{"& vbCrLf
	Response.Write "  if(obj.style.pixelHeight>0)"& vbCrLf
	Response.Write "  {"& vbCrLf
	Response.Write "    if(obj.style.pixelHeight==maxh/20)"& vbCrLf
	Response.Write "	  obj.style.display='none';"& vbCrLf
	Response.Write "    obj.style.pixelHeight-=maxh/20;"& vbCrLf
	Response.Write "	obj.filters.alpha.opacity-=5;"& vbCrLf
	Response.Write "	obj2.background=""images/title_bg_show.gif"";"& vbCrLf
	Response.Write "	myObj=obj;"& vbCrLf
	Response.Write "	myMaxh=maxh"& vbCrLf
	Response.Write "	myObj2=obj2;"& vbCrLf
	Response.Write "	menuHide(myObj,myMaxh,myObj2);"& vbCrLf
	Response.Write "  }"& vbCrLf
	Response.Write "  else"& vbCrLf
	Response.Write "    if(whichContinue)"& vbCrLf
	Response.Write "	  whichContinue.click();"& vbCrLf
	Response.Write "}"& vbCrLf
	Response.Write "function menuChange(obj,maxh,obj2)"& vbCrLf
	Response.Write "{"& vbCrLf
	Response.Write "  if(obj.style.pixelHeight)"& vbCrLf
	Response.Write "  {"& vbCrLf
	Response.Write "    menuHide(obj,maxh,obj2);"& vbCrLf
	Response.Write "	whichOpen='';"& vbCrLf
	Response.Write "	whichcontinue='';"& vbCrLf
	Response.Write "  }"& vbCrLf
	Response.Write "  else"& vbCrLf
	Response.Write "	{"& vbCrLf
	Response.Write "	  menuShow(obj,maxh,obj2);"& vbCrLf
	Response.Write "	  whichOpen=obj2;"& vbCrLf
	Response.Write "	  whichContinue='';"& vbCrLf
	Response.Write "	}"& vbCrLf
	Response.Write "}"& vbCrLf
	Response.Write "</SCRIPT>"& vbCrLf
	Response.Write "<base target=BoardList>"
	Response.Write "</head>"
	Response.Write "<BODY leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"">" & vbCrLf
	Response.Write "<table width=100% cellpadding=0 cellspacing=0 border=0 align=left> " & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write " <td valign=top> <table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=42 valign=bottom> <img src=""images/admin_title.gif"" width=158 height=38> " & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=25 class=menu_title onmouseover=""this.className='menu_title2';"" onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif > " & vbCrLf
	Response.Write " <span><a href=""admin_index.asp"" target=_top><b>管理首页</b></a> | <a href=""logout.asp"" target=_top><b>退出</b></a></span> " & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td style=""display:""> <div class=sec_menu style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=20>用户名：<font color=red>"
	Response.Write Session(DownsysClass.CacheName & "AdminName")
12

⌨️ 快捷键说明

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