📄 master.asp
字号:
GroupQuota=rsG(3)
end if
rsG.close
Set rsG=nothing
else
NoGroups=True
end if
for i=0 to ubound(pow)
for j=1 to 9
powerArr(i,j-1)=mid(powerFlag(i),j,1)
next
next
%>
<table width="97%" bordercolordark=#ffffff bordercolorlight=#666666 border="1" align="center" cellpadding="2" cellspacing="0" bgcolor="#DDDAD5">
<tr><td>
<form action="Master.asp?action=<%=actStr%>&io=<%=io%>" method=post name=adminSflag style="Margin:0px">
<table width="97%" border="0" align=center cellpadding="0" cellspacing="1">
<%if U_GroupID1="" and Not GroupErr then%>
<tr><td height="26" align=right><b>组名称 </b></td><td width=200><input type=text name=GroupName value="<%=GroupName%>" style="width:160;" class=tx1></td>
<td rowspan=3 width="50%" valign=bottom>
<input type="button" name="buGroups1" value="修 改 组" class="bty" onclick="{this.form.action='Master.asp?action=SaveGroupSet&io=<%=io%>&fixGroup=1';this.form.submit();}">
<input type="button" name="buGroups2" value="添 加 组" onClick="ADDgroups();" class="bty">
<% if U_GroupID>6 then %><br><img height=8px width=0><br><input type="button" name="buGroups3" value="删 除 组" class="bty" onclick="removeGroups('<%=U_GroupID%>')"><%end if%>
<br><img height=3px width=0><br></td>
</tr>
<tr><td height="26" align=right><b>组配额 </b></td><td><input type=text name=GroupQuota value="<%=GroupQuota%>" style="width:160;" class=tx1> <b>MB</b></td></tr>
<tr><td height="26" align=right valign=top><img height=3 width=0><br><b>组说明 </b></td><td><textarea rows=4 name=GroupReadme style="width:160;" class=tx1><%=GroupReadme%></textarea></td></tr>
<%end if%>
</table>
<img height=6 width=0><br>
<table width="97%" border="0" align=center cellpadding="0" cellspacing="1">
<tr bgcolor=#C4C0B9><td height="32" align=right></td>
<td align=right><nobr><b>用户组权限</b>
<select style="width:160;" class=tx1 name="iGroupID" class='tx' <%if SetPower(1,6)=false then Response.write("disabled")%> onchange="{this.form.action=this.options[this.selectedIndex].value1;this.form.submit();}">
<%if NoGroups=true then%><option value="0" selected><font color=#0088ff><b><%=U_UserName%></b></font></option><%end if%>
<%while Not rs1.eof%>
<option value="<%=rs1("GroupID")%>" value1="Master.asp?action=modiPower&iGroupID=<%=rs1("GroupID")%>" <% if U_GroupID=rs1("GroupID") then response.write "selected" end if %> ><%=rs1("GroupName")%></option>
<%
rs1.movenext
wend
%></select><%
rs1.close
set rs1=nothing
%><img width=40 height=0></nobr></td>
<td width="50%"><input type="hidden" name="UserID" value="<%=U_UserID%>"><input type=hidden name="id" value="<%=A_id%>">
<%if SetPower(2,0) then%><input name="SubmitGX" type="submit" class="bty" value="更新权限">
<%if SetPower(2,0) then%> <input name=chkall2 type=checkbox value=on onclick="CheckAll(this.form,this,'Sflag');"> 选择所有权限<% End If %><% End If %>
</td></tr>
</table>
<table width="97%" border="0" align=center cellpadding="0" cellspacing="1">
<tr>
<td width=26 height="0"></td>
</tr>
<tr bgcolor="#C4C0B9">
<td > </td>
<%dim tmpPower,Powername,Powerurl,i,j
for i=0 to 2%>
<td align="center" valign="top" width="30%"><br>
<%select case i
case 0 Response.write "脚 本 管 理"
case 1 Response.write "文 件 管 理"
case 2 Response.write "管 理 环 境"
end select%>
<hr color="#DDDAD5" size=1>
<%for j=0 to 8
tmpPower=split(Power(i,j),",")
Powername=tmpPower(0)
Powerurl=tmpPower(1)
Response.write "("&i&j&")"%>
<input <%
if powerArr(i,j)="1" then Response.write (" checked ")
if SetPower(2,0)=false then Response.write "disabled"
%>
type="checkbox" name="Sflag<%=i&j%>" >
<a href="<%=Powerurl%>"><%=Powername%></a> <br> <%next%>
<br></td>
<%next%>
<td width=26> </td>
</tr>
<tr>
<td > </td>
<td height="22" colspan="<%= ubound(Power,2)%>" align="center" valign="middle">
</td>
</tr>
</table>
</form>
</td></tr></table>
<%
End SUB
SUB modiReg()
dim iGroupID,actStr
dim iGroupID1
dim rs,rsG
dim Reg_GroupID,Reg_sFlag,Reg_quota,Reg_Active
io="2"
iGroupID=GetValue(Request.QueryString("iGroupID"),"int",-1)
iGroupID1=iGroupID
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "config",conn,0,1
Reg_GroupID=rs("Reg_GroupID")
Reg_sFlag=rs("Reg_sFlag")
Reg_quota=rs("Reg_quota")
UseRootpathCreate=rs("rootPath")
Reg_Active=rs("Reg_Active")
rs.close
if iGroupID=-1 then iGroupID=Reg_GroupID
rs.open "select GroupID,GroupName,GroupSet,GroupQuota,GroupReadme from Groups order by GroupID",CONN,0,1
if iGroupID>0 then
set rsG=CONN.execute("select GroupSet,GroupName,GroupReadme,GroupQuota from [Groups] where GroupID="&iGroupID)
if rsG.Bof then
GroupErr=true
if isArray(powerFlag) then Erase powerFlag
else
powerFlag=split(rsG(0),",")
Reg_quota=rsG(3)
end if
rsG.close
Set rsG=nothing
else
NoGroups=True
powerFlag=split(Reg_sFlag,",")
end if
for i=0 to ubound(pow)
for j=1 to 9
powerArr(i,j-1)=mid(powerFlag(i),j,1)
next
next
if iGroupID=0 then
actStr="Master.asp?action=SaveRegSet&iGroupID="&iGroupID1&"&io="&io
else
actStr="Master.asp?action=SaveGroupSet&iGroupID="&iGroupID1&"&io="&io
end if
Call MasterNav("用户注册设置")
%>
<table width="97%" bordercolordark=#ffffff bordercolorlight=#666666 border="1" align="center" cellpadding="2" cellspacing="0" bgcolor="#DDDAD5">
<tr><td>
<form action="Master.asp?action=SaveRegSet" method=post name=adminSflag style="Margin:0px">
<table width="97%" border="0" align=center cellpadding="0" cellspacing="1">
<%if Not GroupErr then%>
<tr><td height="26" align=right><b>允许注册 </b></td><td>
<input name="regFlag" type=radio value="1" onclick="{this.form.action='Master.asp?action=reg&iGroupID=<%=iGroupID%>';this.form.submit();}"
<%
if regFlag=1 then Response.write (" checked ")
if not TopMaster then Response.write "disabled"
%>> 是
<input name="regFlag" type=radio value="0" onclick="{this.form.action='Master.asp?action=reg&iGroupID=<%=iGroupID%>';this.form.submit();}"
<%
if regFlag=0 then Response.write (" checked ")
if not TopMaster then Response.write "disabled"
%>> 否
</td></tr>
<tr>
<td height="26" align=right><b>激活方式 </b></td>
<td>
<input type=radio name=Reg_Active value=0 <%if Reg_Active=0 then Response.write "checked" end if%>>立即
<input type=radio name=Reg_Active value=1 <%if Reg_Active=1 then Response.write "checked" end if%>>Email
<input type=radio name=Reg_Active value=2 <%if Reg_Active=2 then Response.write "checked" end if%>>管理员
</td>
</tr>
<tr><td height="26" align=right><b>注册成为 </b></td>
<td width=200><select style="width:160;" class=tx1 name="iGroupID" class='tx' <%if SetPower(1,6)=false then Response.write("disabled")%> onchange="{this.form.action=this.options[this.selectedIndex].value1;this.form.submit();}">
<option value="0" value1="Master.asp?action=modiReg&iGroupID=0" <% if iGroupID=0 then response.write "selected" end if %>><font color=#0088ff><b>独立用户组</b></font></option>
<%while Not rs.eof%>
<option value="<%=rs("GroupID")%>" value1="Master.asp?action=modiReg&iGroupID=<%=rs("GroupID")%>" <% if iGroupID=rs("GroupID") then response.write "selected" end if %> ><%=rs("GroupName")%></option>
<%
rs.movenext
wend
rs.movefirst
%></select></td>
<td rowspan=3 width="50%" valign=bottom>
<input type="submit" name="buGroups1" value="保存设置" class="bty">
<input type="button" name="edRegLic" value="编辑协议" class="bty" onClick="document.hreForm1.action='Master.asp?action=editReglic';document.hreForm1.submit();">
<br><img height=3px width=0><br></td>
</tr>
<tr><td height="26" align=right><b>注册根目录 </b></td>
<td><input type=text name=Reg_rootpath value="<%=UseRootpathCreate%>" style="width:160;" class=tx1></td></tr>
<tr><td height="26" align=right><b>空间配额 </b></td>
<td>
<%if iGroupID=0 then%>
<input type=text name=Reg_quota value="<%=Reg_quota%>" style="width:160;" class=tx1> <b>MB</b>
<%
else
if Reg_quota=-1 then
response.write " <b><font color=#ff0000>不限制</font></b>"
else
response.write(" <b><font color=#ff0000>"&Reg_quota&"</font> MB</b>")
end if
end if%>
</td>
</tr>
<%end if%>
</table>
<img height=6 width=0><br>
<table width="97%" border="0" align=center cellpadding="0" cellspacing="1">
<tr bgcolor=#C4C0B9><td height="32" align=right></td>
<td align=right><nobr><b>用户组权限</b>
<select style="width:160;" class=tx1 name="iGroupID1" class='tx' <%if SetPower(1,6)=false then Response.write("disabled")%> onchange="{this.form.action=this.options[this.selectedIndex].value1;this.form.submit();}">
<option value="0" value1="Master.asp?action=modiReg&iGroupID=0"" <% if iGroupID=0 then response.write "selected" end if %>><font color=#0088ff><b>独立用户组</b></font></option>
<%while Not rs.eof%>
<option value="<%=rs("GroupID")%>" value1="Master.asp?action=modiReg&iGroupID=<%=rs("GroupID")%>" <% if iGroupID=rs("GroupID") then response.write "selected" end if %> ><%=rs("GroupName")%></option>
<%
rs.movenext
wend
%></select><%
rs.close
'set rs=nothing
%><img width=40 height=0></nobr></td>
<td width="50%"><input type="hidden" name="UserID" value="<%=U_UserID%>"><input type=hidden name="id" value="<%=A_id%>">
<%
if SetPower(2,0) then%><input name="SubmitGX" type="button" onclick="{this.form.action='<%=actStr%>';this.form.submit();}" class="bty" value="更新权限">
<%if SetPower(2,0) then%> <input name=chkall2 type=checkbox value=on onclick="CheckAll(this.form,this,'Sflag');"> 选择所有权限<% End If %><% End If %>
</td></tr>
</table>
<table width="97%" border="0" align=center cellpadding="0" cellspacing="1">
<tr>
<td width=26 height="0"></td>
</tr>
<tr bgcolor="#C4C0B9">
<td > </td>
<%dim tmpPower,Powername,Powerurl,i,j
for i=0 to 2%>
<td align="center" valign="top" width="30%"><br>
<%select case i
case 0 Response.write "脚 本 管 理"
case 1 Response.write "文 件 管 理"
case 2 Response.write "管 理 环 境"
end select%>
<hr color="#DDDAD5" size=1>
<%for j=0 to 8
tmpPower=split(Power(i,j),",")
Powername=tmpPower(0)
Powerurl=tmpPower(1)
Response.write "("&i&j&")"%>
<input <%
if powerArr(i,j)="1" then Response.write (" checked ")
if SetPower(2,0)=false then Response.write "disabled"
%>
type="checkbox" name="Sflag<%=i&j%>" >
<a href="<%=Powerurl%>"><%=Powername%></a> <br> <%next%>
<br></td>
<%next%>
<td width=26> </td>
</tr>
</table>
<table align=center border=0 width="97%">
<tr><td height="26" align=center><b>注册必须填写项目 </b></td></tr>
<tr><td align=center height="35" bgcolor="#C4C0B9">
<%
dim rNameArr,TexAtt,reg_config
rNameArr=array("Reg_Name","Reg_Number","Reg_phone","Reg_moCall","Reg_OICQ","Reg_MSN","Reg_From","Reg_work","Reg_for","Reg_birthday","Reg_descript")
TexAtt =array("真实姓名","身份证号码","联系电话","联系手机","OICQ","MSN","所在地","从事职业","空间用途","出生日期","个人简历")
rs.open "select reg_config from [config]",conn,0,1
reg_config=split(rs(0),"|")
rs.close
rs.open "select Reg_Name,Reg_Number,Reg_phone,Reg_moCall,Reg_OICQ,Reg_MSN,Reg_From,Reg_work,Reg_for,Reg_birthday,Reg_descript from reginfo where 1=0",conn,0,1
for i=0 to rs.fields.count-1
%>
<nobr><input name="<%=rNameArr(i)%>" type=checkbox value="1" value=1 <%if reg_config(i)="1" then response.write "checked" end if%>><b><%=TexAtt(i)%></b> </nobr>
<%
next
rs.close
set rs=nothing%>
</td></tr>
<tr>
<td height="10" colspan="<%= ubound(Power,2)%>" align="center" valign="middle">
</td>
</tr>
</table>
</form>
</td></tr></table>
<%
End SUB
SUB modiSys()
dim i,rs,SysEmail
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=SysSave" style="margin:0px">
<tr bgcolor="#C4C0B9">
<td align="right" valign="middle" height=22 bgcolor="#C4C0B9" >
<b>设置项目</b>
</td><td></td><td> </td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open ("select * from [config]"),conn,0,1
if not rs.eof then
SysEmail=split(rs("reg_SysEmail"),"|")
%>
<tr>
<td height="24" align="right" width="20%"><b>页面标题名称</b></td>
<td height="25" align="left" ><input name=CooSelTitle value="<%if not isNull(rs("CooSelTitle")) then response.write Server.htmlencode(rs("CooSelTitle")) end if%>" class=tx1 style="width:200;">
</td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>系统邮件帐号</b></td>
<td height="25" align="left" ><input name=SysEmail0 value="<%=Server.htmlencode(SysEmail(0))%>" class=tx1 style="width:200;">
如: CooSel@ccc.net (要求支持Jmail4.0以上)</td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>系统邮件服务器</b></td>
<td height="25" align="left" ><input name=SysEmail3 value="<%=Server.htmlencode(SysEmail(3))%>" class=tx1 style="width:200;">
请填写邮件服务器IP或域名如 smtp.263.net</td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>Smtp邮件帐号登录名</b></td>
<td height="25" align="left" ><input name=SysEmail1 value="<%=Server.htmlencode(SysEmail(1))%>" class=tx1 style="width:200;"> 系统邮箱登陆帐号名
</td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>Smtp邮件帐号密码</b></td>
<td height="25" align="left" ><input type=password name=SysEmail2 value="<%=Server.htmlencode(SysEmail(2))%>" class=tx1 style="width:200;"> 系统邮箱登陆密码
</td>
</tr>
<tr>
<td height="24" align="right" width="20%"><b>上传组件</b></td>
<td height="25" align="left" ><select name=upload_Component class=tx1 style="width:200;">
<option value="0" <%if rs("upload_Component")=0 then Response.Write "selected" end if%>>ADODB.Stream/无组件类
<option value="1" <%if rs("upload_Component")=1 then Response.Write "selected" end if%>>SoftArtisans.FileUp
</select> 使用SoftArtisans.FileUp将获得更好的上传性能</td>
</tr>
<tr>
<td height="24" align="right" width="20%"></td>
<td height="25" align="left" > <input type=submit value="提交修改" class=bty>
</td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
<tr>
<td height="4" colspan=2></td>
</tr></form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -