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

📄 master.asp

📁 方舟网免费空间申请程序(自助建站系统) v3.0 1　界面美观 2　后台管理功能强大：A　可以设置多种参数
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<!--#include file="CONST.ASP"-->
<!-- #include file="inc/md5Fix.asp" -->
<!--#include FILE="inc/coo_footer.asp"-->
<%
if chkpost()=false then
	call GetError("<br><li>不允许外部提交发言！")
end if
'CONN.execute ("update Groups set GroupSet='111111111,111111111,111111111'")
%>
<!--#include file="inc/chkuser.asp" -->
<!--#include file="inc/char.asp" -->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/htmlhead.asp" -->
<!--#include FILE="inc/Syschar.asp"-->
<%helpID=6
if not isMaster or SetPower(2,6)=false then
	if not isMaster then
		call EndProc("<br><li>非管理员没有进入管理面板权限，或你尚未登陆！",1,"login.asp")
	else
		call EndProc("<br><li>没有进入管理面板权限，或你尚未登陆！",1,"login.asp")
	end if
end if
%>
<style type="text/css">
	<!--
	  A:LINK    {Text-Decoration: none; color:#775500;}
	  A:VISITED {Text-Decoration: none; color:#775500;}
	  A:Active  {Text-Decoration: none; color:#775500;}
	  A:HOVER   {Text-Decoration: underline overline; color:#ffff55;}
	 .bty {	width:58px;font-size:9pt;height:19px;cursor: hand;background-image: url(pic/seebutton1.gif);background-position: center center;	border-top: 0px outset #eeeeee;border-right: 0px outset #888888;border-bottom: 0px outset #888888;border-left: 0px outset #eeeeee;padding-top: 2px;background-repeat: repeat-x;}
	//-->
</style>
<Script language="JavaScript">
	<!--
	function CheckAll(form,chkobj,namePre)
	  {
		//alert(chkobj.name);
	  for (var i=0;i<form.elements.length;i++)
		{
		var e = form.elements[i]; 
		if (e.name != chkobj.name)
		   {if (e.name.substr(0,namePre.length)==namePre)
		   e.checked = chkobj.checked;}
		}
	  }

	function ADD()
		{
		var str;
		str=prompt('添加用户，添加后初始密码和用户名相同:','')
		if(!str)
			return;
			document.form1.action='Master.asp?action=ADD&UserName='+escape(str); 
			document.form1.submit();
		}
	function AddPath()
		{
		var str;
		str=prompt('添加用户管理路径:','')
		if(!str)
			return;
			document.form1.action='Master.asp?action=AddPath&pathStr='+escape(str); 
			document.form1.submit();
		}
	function ADDgroups()	
		{
		var GroupName=prompt('用户组名称\n添加后权限设置与当前选择组相同:','');
		if(!GroupName)
			{
			return;
			}
		var GroupReadme=prompt('请输入用户组说明\n没有输入则为用户名称','');
		if (!GroupReadme)
			{
			GroupReadme=GroupName;
			}
		var GroupQuota=prompt('用户组配额\n配额必须输入数字!输入-1不限制空间配额,单位是KB','');
		//alert(isNaN(parseInt(GroupQuota)));
		if (isNaN(parseInt(GroupQuota))==true)
			{
			return;
			}
			document.adminSflag.action='Master.asp?action=ADDgroups&GroupName='+escape(GroupName)+'&GroupReadme='+escape(GroupReadme)+'&GroupQuota='+parseInt(GroupQuota); 
			document.adminSflag.submit();
		}
	function removeGroups(id)
		{
		if(confirm('这将设置所有该组的帐号为注册帐号组，\n确定删除该组吗？'))
			{
			document.adminSflag.action='Master.asp?action=removeGroups&GroupID='+id;
			document.adminSflag.submit();
			}
		else
			{
			return false;
			}	
		}
	function exitit()
		{
		document.form1.action='login.asp?action=exit';
		document.form1.submit();
		}
	function removeUser(UserName)
		{
		if(confirm('这将删除帐号所有信息！\n确定注销该帐号吗？'))
			{
			if(confirm('连带删除该帐号的管理目录吗？'))
				document.form1.action='Master.asp?action=removeUser&deldir=1&UserName='+UserName;
			else
				document.form1.action='Master.asp?action=removeUser&UserName='+UserName;
			document.form1.submit();
			}
		else
			{
			return;
			}
		}
	function removeMaster(UserID)
		{
		document.form1.action='Master.asp?action=removeMaster&UserID='+UserID;
		document.form1.submit();
		}
	function removeMaster1(UserID)
		{
		document.form1.action='Master.asp?action=removeMaster&UserID='+UserID+'&optionSin=true';
		document.form1.submit();
		}	
	function ADDadmin(UserID)
		{
		document.form1.action='Master.asp?action=ADDadmin&UserID='+UserID;
		document.form1.submit();
		}
	function ADDadmin1(UserID)
		{
		document.form1.action='Master.asp?action=ADDadmin&UserID='+UserID+'&optionSin=true';
		document.form1.submit();
		}
	function noInput()
		{
		if ((document.form1.AdminName.value=="")||(document.form1.AdminPassword.value=="")||(document.form1.GetCode.value==""))
			{return (!!(window.alert('输入不能有空')));}
			else{return true;}
		}
	//使用onKeydown='onlyNum();'屏蔽掉非数字输入
	function onlyNum()
	{ var keys=event.keyCode
	if (!((keys>=48&&keys<=57)||(keys>=96&&keys<=105)
		||(keys==8)||(keys==46)||(keys==37)||(keys==39)||(keys==13)||(keys==229)
		))
		event.returnValue=false;} 

	//-->
</script>
</head>
<body  text="#000000" bgcolor="#dddbe6" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="20">
<!--#include file="TopNav.asp" -->
<%

if GetAction="manalogin" then
	 call ManaloginCheck():response.end()
else
	if Session("Master.ASP")="" then 
		Call Manalogin()
	end if
end if
'2003-12-11
	'GetRows 分页变量
			DIM Page,PageEof,PageSizeEnd
			DIM ps,pe,PageCount,PageSize,lastPageSize
			DIM RowsUB,PageMOD
   	DIM sTitle
	DIM URLsTitle
	DIM sType
	DIM sOrder
 	DIM sFitler
	DIM sNum
	DIM regNum
	DIM CreateDir
		Page=GetValue(request.QueryString("Page"),"int",1)
		PageSize=25
'----------------

DIM CASEyes
DIM GetUserName,ModiUserID,Arr
DIM GetUserID
'--------
	DIM U_GroupID
	DIM stycolor,manurl,sflag
	DIM powerFlag,powerArr(2,8)
	DIM U_UserName,A_UserName,A_id,U_MasterFlag,U_UserID,U_password,A_password,U_UserPath,A_MasterFlag,U_lockuser,U_Reg_Name
	DIM rs1,rsG,GroupErr:GroupErr=false
	DIM NoGroups:NoGroups=false
	DIM io
	DIM U_userQuota
'----------
CASEyes=true
	GetUserID=GetValue(request.QueryString("UserID"),"int",-1)
	GetUserName=CheckStr(GetValue(request.QueryString("UserName"),"str","noName"))
	ModiUserID=GetValue(request.form("UserID"),"int",-1)
	if ModiUserID=-1 then ModiUserID=GetUserID
 if SetPower(2,1)=true  then
  	select	CASE GetAction
			'CASE "manalogin" call ManaloginCheck():response.end()
			CASE "ADD" call ADD()
			CASE "ADDadmin" Call ADDadmin()
			CASE "SaveUserPower" 
				Call SaveUserPower()
				call Modi()
				CASEyes=FALSE
			CASE "lockuser" call dolockUser()
			CASE "removeUser" call removeUser()
			CASE "removeMaster" call removeMaster()
			CASE "editSin" call Modi():CASEyes=FALSE
			
			CASE "modiSys" call modiSys():CASEyes=FALSE
			CASE "SysSave" call SysSave():call modiSys():CASEyes=FALSE
			
			CASE "ActiveUser" call ActiveUser()
			CASE "unActiveUser" call unActiveUser()
			CASE "delSel" call delSel()
			CASE "delAll" call delAll()

			CASE "reg" 
				call regswitch()
				Call modiReg()
				CASEyes=FALSE
			CASE "SaveGroupSet"  
				Call SaveGroupSet()
				if io="2" then
					call  modiReg()
				else
					Call modiPower()
				end if
				CASEyes=FALSE
			CASE "modiPower"  
				Call modiPower()
				CASEyes=FALSE '
			CASE "modiReg"   
				Call modiReg()
				CASEyes=FALSE
			CASE "SaveRegSet"  
				Call SaveRegSet()
				Call modiReg()
				CASEyes=FALSE
			CASE "editSinSave","AddPath"
				call ModiSave()
				call Modi()
				CASEyes=FALSE
			CASE "ADDgroups"
				call ADDgroups()
				Call modiPower()
				CASEyes=FALSE
			CASE "removeGroups"
				call removeGroups()
				Call modiPower()
				CASEyes=FALSE 
			CASE "editReglic"   
				Call editReglic()
				CASEyes=FALSE
	End	select 
	if CASEyes then call ManaMain() 
 else
 	if SetPower(2,2)=true  then
		ModiUserID=memberid
		Select CASE GetAction
		CASE "ADDadmin" Call ADDadmin()
		CASE "SaveUserPower" 	Call SaveUserPower()
		CASE "editSinSave" 	call ModiSave()
		CASE "removeUser" 	call removeUser()
		CASE "removeMaster" call removeMaster()		
		End Select
		call Modi() 
	else
		GetError ("<br><li>你没有管理自己帐号的权限")	
	end if
 end if	 
%>
<table width="620" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="10">&nbsp;</td>
  </tr>
  <tr> 
    <td><font style="FONT-SIZE: 9pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体" color=#777777>特别说明:显示蓝色的用户是超级管理员，绿色是普通管理员（能被有效指定权限）<br>
      &nbsp;&nbsp;“超 级 管理员”任何权限设置对该用户类型无效，管理最高级别<br>
      &nbsp;&nbsp;“独立用户类型”设置独立用户类型权限只影响指定的单个用户<br>
      &nbsp;&nbsp;“非独立用户组”设置非独立用户权限组将影响所有被指派了的用户</font></td>
  </tr>
</table>
<%
call Footer()

SUB Manalogin()%>
	<TABLE align=center>
	<FORM METHOD=POST action="Master.ASP?action=manalogin" Name=form1 onSubmit="return noInput();">
	<TR><TD></TD><TD>管理登陆：</TD><TD></TD></TR>
	<TR><TD align=right>管理帐号:</TD><TD><INPUT TYPE="text" NAME="AdminName" class=tx  maxlength=50 ></TD><TD></TD></TR>
	<TR><TD align=right>管理密码:</TD><TD><INPUT TYPE="password" NAME="AdminPassword" class=tx  maxlength=20 ></TD><TD></TD></TR>
	<TR><TD align=right>验证码:</TD><TD><input type="text" name="GetCode" onKeyDown="onlyNum();" class="tx"  maxlength=4 >&nbsp;&nbsp;<img src="inc/iGetCode.asp?<%=timer()%>"> &nbsp;&nbsp;</TD><TD></TD></TR>
	<TR><TD></TD><TD><INPUT TYPE="submit" value="提交登陆" class=btx></TD><TD><input type=button name="exitthis" class="btx" onClick="location.href='login.asp?action=exit';" value="退出登陆"></TD></TR>
	<TR><TD></TD><TD colspan=2><font color='#888888'>\\尚未登陆管理，或Session管理标志过期，请登陆！\\必须使用管理帐号和密码</font></TD></TR>
	</FORM>
	</TABLE>
	<%
	call Footer()
	response.end()
End SUB

SUB ManaMain()
		dim stycolor,manurl,d,imgurl,rsArr,reg

		set rs=Server.CreateObject("ADODB.RecordSet")
		SQL="select U.UserID,U.MasterFlag,U.UserName,U.UserPassword,U.UserPath,"&_
			"A.UserName,A.adduser,U.Active,U.UseQuota,U.Reg_Name from [userlist] as U left join [admin] as A on U.UserName=a.adduser order by U.MasterFlag desc,userID desc"
		rs.open SQL,CONN,0,1
			rsArr=rs.GetRows
		rs.close
		
				RowsUB=ubound(rsArr,2)+1
				
				regNum=RowsUB '不带查询条件则与之相等
				PageCount=RowsUB\PageSize

				PageMOD=RowsUB mod PageSize
				if PageMOD>0 and RowsUB>PageSize then
					PageCount=PageCount+1
					if Page=PageCount then 
						PageSizeEnd=PageMOD-1
					else
						PageSizeEnd=PageSize-1
					end if
				else
						PageSizeEnd=PageSize-1
				end if
					PageEof=(Page-1)*PageSize+PageSizeEnd
	set rs=nothing

Call MasterNav("帐号列表")
%>

 <table width="97%" align="center" cellpadding="0" cellspacing="0" border=0> 
  <tr valign="top"> 
    <td align="right">
	<form name="form1" method="post" action="Master.asp?action=edit" style="margin:0px">
	
	<table width="100%" bordercolordark=#ffffff bordercolorlight=#666666  border="1" align="center" cellpadding="2" cellspacing="0" bgcolor="#eeebdd">
	 <tr><td>
		<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#eeebdd">

		
		<!-- <table width="100%" rules=rows align=top border="1" align="right" cellpadding="5" cellspacing="0" bordercolorlight="#eeebdd" bordercolordark="#ffffff"  bgcolor="#eeebe6"> -->
<%
	response.write "<tr><td height=24 colspan=4 align=center bgcolor=#eeebdd>"
	response.write listPages(RowsUB,PageSize,"Master.asp")
	response.write "</td></tr>"

%>
		</table></td></tr></table>
        <img height=6 width=0><br>


	<table width="100%" bordercolordark=#ffffff bordercolorlight=#666666  border="1" align="center" cellpadding="2" cellspacing="0" bgcolor="#eeebdd">
	 <tr><td>
		<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#eeebdd">
12345

⌨️ 快捷键说明

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