admin_index.asp

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

ASP
294 行
字号
12
	Response.Write "	obj.filters.alpha.opacity+=20;"& vbCrLf
	Response.Write "	obj2.background=""images/title_bg_hide.gif"";"& vbCrLf
	Response.Write "    if(obj.style.pixelHeight==maxh/5)"& 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 "	setTimeout('menuShow(myObj,myMaxh,myObj2)','5');"& 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/1)"& vbCrLf
	Response.Write "	  obj.style.display='none';"& vbCrLf
	Response.Write "    obj.style.pixelHeight-=maxh/1;"& 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 "	setTimeout('menuHide(myObj,myMaxh,myObj2)','5');"& 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 "    if(whichOpen)"& vbCrLf
	Response.Write "	{"& vbCrLf
	Response.Write "	  whichContinue=obj2;"& vbCrLf
	Response.Write "      whichOpen.click();"& 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=""login.asp?action=logout"" 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(Newasp.CacheName & "AdminName")
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=20>身&nbsp;&nbsp;份：<font color=red>"
	Select Case Session(Newasp.CacheName & "Flag")
		Case 0
			Response.Write "管理员"
		Case 1
			Response.Write "系统CEO"
	End Select
	Response.Write " </font></td>" & vbCrLf
	Response.Write " </tr></table></td>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " <div style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td height=10></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </div>" & vbCrLf
	For i = 0 To UBound(menu, 1)
		Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
		Response.Write " <tr style=""CURSOR: hand"">" & vbCrLf
		Response.Write " <td height=25 class=menu_title id=menuTitle"&i + 1&" onmouseover=""this.className='menu_title2';"" onclick=menuChange(menu"&i + 1&","&vHeight(i)&",menuTitle"&i + 1&"); onmouseout=""this.className='menu_title';"" "
		If i = 0 Then
			Response.Write " background=""images/title_bg_hide.gif"">"
		Else
			Response.Write " background=""images/title_bg_show.gif"">"
		End If
		Response.Write Chr(9) & " <span>"
		Response.Write menu(i, 0)
		Response.Write "</span>" & vbCrLf
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr>" & vbCrLf
		Response.Write " <td> " & vbCrLf
		Response.Write "<div class=sec_menu id=menu"&i + 1&" "
		If i = 0 Then
			Response.Write "style=""FILTER: alpha(Opacity=100); OVERFLOW: hidden; WIDTH: 158px; HEIGHT: 100px"">"
		Else
			Response.Write "style=""DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px"">" & vbCrLf
		End If
		Response.Write "<table style=""POSITION: relative; TOP: 10px"" cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
		Response.Write Chr(9)
		For j = 1 To UBound(menu, 2)
			If IsEmpty(menu(i, j)) Then Exit For
			Response.Write "<tr><td height=20><img src=""images/bullet.gif"" border=0>"
			Response.Write menu(i, j)
			Response.Write "</td></tr>" & vbCrLf
		Next
		Response.Write "</table>" & vbCrLf
		Response.Write Chr(9) & " </div>" & vbCrLf
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		If i = 0 Then
			Response.Write "<SCRIPT language=javascript>"& vbCrLf
			Response.Write "  var whichOpen=menuTitle1;"& vbCrLf
			Response.Write "  var whichContinue='';"& vbCrLf
			Response.Write "</SCRIPT>"& vbCrLf
		End If
	Next
	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/admin_left_2.gif"" id=menuTitle10> " & vbCrLf
	Response.Write " <span>系统信息</span> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td> <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><br>" & vbCrLf
	Response.Write " <a href=""http://www.newasp.net/"" target=_blank>版权所有：<BR>" & vbCrLf
	Response.Write "
12

admin_index.asp - 源码说明

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

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

⌨️ 快捷键说明

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