📄 master.asp
字号:
<!-- <table width="100%" border="1" align="center" cellpadding="6" cellspacing="0" bordercolorlight="#eeebdd" bordercolordark="#ffffff" bgcolor="#eeebe6"> -->
<tr>
<td align="right" valign="top" colspan="2" bgcolor="#eeebdd">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#ffffff" bordercolordark="#666666" bgcolor="#eeebe6" >
<tr bgcolor=#eeebdd>
<td height="24" align="center" colspan=2>帐 号</td>
<td height="24" align="center">真 名</td>
<td height="24" align="center"><input name=chkall type=checkbox value=on onclick="CheckAll(this.form,this,'SelID');"></td>
<td height="24" align="center">认证</td>
<td align="center" >管 理 目 录</td>
<td align="center" colspan=3>修改 / 增减管理员 / 注销帐号</td>
<td height="24" align="center">管 理 员</td>
<td height="24" align="center">后台帐号</td>
</tr>
<%
dim StarLoc,EndLoc
if RowsUB<=PageSize then
StarLoc=0
EndLoc=RowsUB-1
else
StarLoc=(Page-1)*PageSize
EndLoc=PageEof
end if
for i=StarLoc to EndLoc
Select CASE rsArr(1,i)
CASE 2
stycolor="#ACC7D0"
manurl="<a href=""javascript:removeMaster("&rsArr(0,i)&");"">取消管理权<<--</a>"
imgurl="<a href='?action=editSin&UserID="&rsArr(0,i)&"'><img src='pic/ad.gif' border=0 width='16' height='16'></a>"
CASE 1
stycolor="#ADCFC4"
manurl="<a href=""javascript:removeMaster("&rsArr(0,i)&");"">取消管理权<<--</a>"
imgurl="<a href='?action=editSin&UserID="&rsArr(0,i)&"'><img src='pic/ad1.gif' border=0 width='16' height='16'></a>"
CASE ELSE
stycolor="#D5D1CA"
manurl="<a href=""javascript:ADDadmin("&rsArr(0,i)&");"">-->>加为管理员</a>"
imgurl="<a href='?action=editSin&UserID="&rsArr(0,i)&"'><img src='pic/ad2.gif' border=0 width='16' height='16'></a>"
EnD Select
%>
<tr bgcolor="<%= stycolor %>">
<td align="center" valign="middle">
<%= imgurl %></td>
<td height="25" align="center">
<a href="?action=editSin&UserID=<%=rsArr(0,i)%>"><%=rsArr(2,i)%></a>
</td>
<td height="25" align="center"><%=rsArr(9,i)%></td>
<td align="center" valign="middle"><%
Response.Write "<input type=checkbox name=SelID value="""&rsArr(0,i)&""">"
%></td>
<td height="25" align="center"><%
if rsArr(7,i)=1 then Response.Write "<font color=0033ff>√</font>"
%></td>
<td height="25" align="left" >
<a href="?action=editSin&UserID=<%=rsArr(0,i)%>"><%=rsArr(4,i)%></a>
</td>
<td align="center" ><a href="?action=editSin&UserID=<%=rsArr(0,i)%>">修改</a></td>
<td align="center" valign="middle" > <%= ManUrl %> </td>
<td align="center" valign="middle" ><a href="javascript:removeUser('<%=rsArr(2,i)%>');">注销</a></td>
<td height="25" align="center"><%
if Not isNull(rsArr(6,i)) then Response.Write "<font color=#ff0000>Yes</font>"
%></td>
<td align="center" valign="middle"><%=rsArr(5,i)%></td>
</tr>
<%
next
%>
</table>
</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">
<!-- <table width="100%" border="1" align="center" cellpadding="6" cellspacing="0" bordercolorlight="#eeebdd" bordercolordark="#ffffff" bgcolor="#eeebe6"> -->
<tr>
<td align="center" height=26 colspan="2" bgcolor="#eeebdd">
<input name=chkall1 type=checkbox value=on onclick="CheckAll(this.form,this,'SelID');">选择全部
<input type="button" onClick="
if(confirm('这将认证所选择的帐号！\n确定认证选择的帐号吗？'))
{
document.form1.action='Master.asp?action=ActiveUser&Page=<%=Page%>';
document.form1.submit();
}
else
{
return;
}
" value="认证选择" class="bty">
<input type="button" onClick="
if(confirm('这将关闭所选择的帐号！\n确定这样做吗？'))
{
document.form1.action='Master.asp?action=unActiveUser&Page=<%=Page%>';
document.form1.submit();
}
else
{
return;
}
" value="关闭认证" class="bty">
<input name=deldir type=checkbox value=on checked>目录删除
<input type="button" onClick="
if(confirm('这将删除选择的帐号(管理员除外)，包括其管理目录！\n确定删除选择的帐号吗？'))
{
document.form1.action='Master.asp?action=delSel&Page=<%=Page%>';
document.form1.submit();
}
else
{
return;
}
" value="删除选择" class="bty">
<input type="button" onClick="
if(confirm('这将删除所有注册帐号(管理员除外)，包括其管理目录！\n确定删除所有帐号吗？'))
{
document.form1.action='Master.asp?action=delAll&Page=<%=Page%>';
document.form1.submit();
}
else
{
return;
}
" value="删除全部" class="bty">
</td></tr>
</table>
</td></tr></table>
</form>
</td>
</tr>
</table>
<%
end SUB
SUB Modi()
io="1"
set rs1=CONN.execute("select GroupID,GroupName,GroupSet from Groups order by GroupID")
set rs=Server.CreateObject("ADODB.RecordSet")
dim FindUser
if request.querystring("SerUsr")="1" then
FindUser=CheckStr(GetValue(request.form("FindUser"),"str",""))
if FindUser="" then
GetError "请输入你要搜索的用户!"
end if
SQL="select U.UserID,U.UserName,U.userpassword,U.UserPath,U.MasterFlag,U.lockuser,U.sflag, A.MasterFlag,A.[password],A.UserName,A.[id],U.GroupID,U.UseQuota,U.Reg_name from [userlist] as U left join [admin] as A on U.UserName=A.adduser where U.UserName='"&FindUser&"'"
else
SQL="select U.UserID,U.UserName,U.userpassword,U.UserPath,U.MasterFlag,U.lockuser,U.sflag, A.MasterFlag,A.[password],A.UserName,A.[id],U.GroupID,U.UseQuota,U.Reg_name from [userlist] as U left join [admin] as A on U.UserName=A.adduser where U.UserID="&ModiUserID
end if
rs.open SQL,CONN,0,1
if rs.Eof then
if request.querystring("SerUsr")="1" then
GetError "搜索的用户不存在!"
else
GetError "指定的用户不存在!"
end if
end if
U_UserID=rs(0)
U_UserName=rs(1)
U_password=rs(2)
U_UserPath=rs(3)
U_MasterFlag=rs(4)
U_lockuser=rs(5)
powerFlag=split(rs(6),",")
A_MasterFlag=rs(7)
A_password=rs(8)
A_UserName=rs(9)
A_id=rs(10)
U_GroupID=rs(11)
U_userQuota=rs(12)
U_Reg_Name=rs(13)
rs.close
set rs=nothing
dim selected0,selected1,selected2,uclass,imgurl
for i=0 to ubound(pow)
for j=1 to 9
powerArr(i,j-1)=mid(powerFlag(i),j,1)
next
next
selected0=""
selected1=""
selected2=""
Select CASE A_MasterFlag
CASE 2
selected2="selected"
stycolor="width:140;"
imgurl="<img src='pic/ad.gif' width='16' height='16'>"
CASE 1
selected1="selected"
stycolor="width:140;"
imgurl="<img src='pic/ad1.gif' width='16' height='16'>"
CASE else
selected0="selected"
stycolor="width:140;"
imgurl="<img src='pic/ad2.gif' width='16' height='16'>"
End Select
dim rowsp
dim pub,U_pathArr,quotaArr
U_pathArr=split(U_UserPath,"|")
quotaArr=split(U_userQuota,"|")
pub=ubound(U_pathArr)
rowsp=6
If Not isNull(A_UserName) Then rowsp=rowsp+2
Call MasterNav("用户权限修改")
%>
<table width="97%" bordercolordark=#ffffff bordercolorlight=#666666 border="1" align="center" cellpadding="2" cellspacing="0" bgcolor="#DDDAD5">
<tr><td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#DDDAD5">
<form name="form1" method="post" action="Master.asp?action=editSinSave" style="margin:0px">
<tr bgcolor="#C4C0B9">
<td align="right" valign="middle" bgcolor="#C4C0B9" >
<%= imgurl %>
</td><td></td><td> </td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>帐 号</b></td>
<td height="25" align="left" >
<input type="hidden" name="UserID" value="<%=U_UserID%>">
<input type="text" name="UserName" style="<%= stycolor %>" value='<%=U_UserName%>' class=tx1>
</td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>真 名</b></td>
<td height="25" align="left" >
<input type="text" name="Reg_Name" style="<%= stycolor %>" value='<%=U_Reg_Name%>' class=tx1>
</td>
<td rowspan="<%=rowsp%>" width="50%" valign=bottom>
<br><img height=8px width=0><br><input type="button" value="添加目录" class="bty" onClick="AddPath();">
<br><img height=8px width=0><br><input type="submit" value="执行修改" class="bty">
<input type="button" value="注 销" class=bty onclick="removeUser('<%=U_UserName%>')">
<br><img height=1px width=0><br>
</td>
</tr>
<tr><td align="right"><b>锁定</b></td>
<td align="left" >
<input name="lockuser" type=checkbox value="1" onclick="{this.form.submit();}"
<%
if U_lockuser=1 then Response.write (" checked ")
if not TopMaster then Response.write ("disabled")%> ></td>
</tr>
<tr><td align="right"><b>登陆密码</b></td>
<td align="left" >
<input type="password" name="UserPassword" style="<%= stycolor %>" value='<%=U_password%>' class=tx1>
</td>
</tr>
<% If Not isNull(A_UserName) Then %>
<tr>
<td align="right"><b>后台帐号</b></td>
<td height="25" align="left" >
<input type="text" name="AdminName" style="<%= stycolor %>" value="<%=A_UserName%>" class='tx1'>
</td>
</tr>
<tr>
<td align="right"><b>管理密码</b></td>
<td align="left">
<input type="password" name="AdminPassword" style="<%= stycolor %>" value="<%=A_password%>" class='tx1'>
</td>
</tr>
<% end if %>
<tr>
<td align="right"><b>帐号类型</b></td>
<td height="25" align="left" >
<select name="UserMasterFlag" class='tx1' style="<%= stycolor %>" >
<option value="2" <%= selected2 %>>超级管理员</option>
<option value="1" <%= selected1 %>>管理员</option>
<option value="0" <%= selected0 %>>普通用户</option>
</select>
</td>
</tr>
<tr>
<td align="right"><b>所属群组</b></td>
<td height="25" align="left" >
<select name="GroupID" class='tx1' style="<%= stycolor %>" <%if SetPower(1,6)=false then Response.write("disabled") end if%>>
<option value="0" <%if U_GroupID=0 then%>selected<%end if%>>独立用户</option>
<%while Not rs1.eof%>
<option value="<%=rs1("GroupID")%>" <% if U_GroupID=rs1("GroupID") then response.write "selected" end if %> ><%=rs1("GroupName")%></option>
<%
rs1.movenext
wend
rs1.movefirst
%>
</select>
</td>
</tr>
<tr>
<td align="right" valign=top><img height=3 width=0><br><b>管理目录</b></td>
<td height="25" align="left" >
<span
<% if SetPower(1,7)=false then
Response.write("disabled style='width:140;background-color:#aaaaaa;border: 1px solid;' class=tx1")
end if
%>>
<%
for i=0 to pub
%><nobr>
<input value="<%=trim(U_pathArr(i))%>" type=text name="UserPath" class='tx1' style="<%=stycolor%>">
<input value="<%=round((csng(trim(quotaArr(i)))),2)%>" type=text name="UseQuota" class='tx1' style="width:50;"> <b>MB</b>
</nobr>
<%next%>
</span>
</td>
</tr>
<tr valign="middle" bgcolor="#C4C0B9">
<td align="right"><b>搜索用户</b></td>
<td align="left"><input type="text" name="FindUser" style="width:140;background-color:#fffedd;" value="<%=Server.Htmlencode(request.form("FindUser"))%>" class='tx1'> <input type=button value=Go style="width:50;height=18;border-color: #FFFFFF #666666 #666666 #FFFFFF; cursor: hand; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;background-color:#ddddcc;" onclick="{this.form.action='Master.asp?action=editSin&SerUsr=1';this.form.submit();}"></td>
<td height="26" align="left"><input type=checkbox name="CreateDir" <%=CreateDir%> value="checked"> 当目录不存在时建立新目录
</td>
</tr>
</form>
</table>
</td></tr></table>
<%
Call modiPower()
Call RegInfo()
End SUB
SUB modiPower()
dim iGroupID,actStr
dim U_GroupID1
dim GroupName,GroupQuota,GroupReadme
iGroupID=GetValue(Request.QueryString("iGroupID"),"int",0)
U_GroupID1=U_GroupID
if U_GroupID="" then
set rs1=CONN.execute("select GroupID,GroupName,GroupSet,GroupQuota,GroupReadme from Groups order by GroupID")
U_GroupID=iGroupID
Call MasterNav("用户权限组设置")
%>
<FORM METHOD=POST name=form1 style="margin:0px;"></FORM>
<%
end if
if GetAction="modiPower" or U_GroupID>0 then
actStr="SaveGroupSet"
else
actStr="SaveUserPower"
end if
if U_GroupID>0 then
set rsG=CONN.execute("select GroupSet,GroupName,GroupReadme,GroupQuota from [Groups] where GroupID="&U_GroupID)
if rsG.Bof then
GroupErr=true
if isArray(powerFlag) then Erase powerFlag
else
powerFlag=split(rsG(0),",")
GroupName=rsG(1)
GroupReadme=rsG(2)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -