📄 admin_group.asp
字号:
End Sub
Sub Edit()
Dim GroupID,Rs,GroupName,Description,ChargeType,GroupPoint,ValidDays,frmAction,GroupSetting,tgdianshu
Dim GroupSettingSet,fbpl,sh,smsrs,smszf,smssize,scwj,scml,scdx,wjlx,fbsh,zcrz,Simple,dianshu,lmid
IF Action = "Edit" Then
GroupID = ChkNumeric(Request.QueryString("GroupID"))
IF GroupID = 0 Then Response.Write "请指定要修改的用户组ID":Response.End
Set Rs=Conn.Execute("Select * from Art_Group Where GroupID=" & GroupID)
if Rs.Bof And Rs.EOF then
Response.Write "不存在此用户组！"
Exit Sub
End IF
lmid=Rs("Lmid")
GroupSetting = Rs("GroupSetting")
GroupSettingSet=Split(GroupSetting,"^@$@^")
GroupName=GroupSettingSet(0)
Description=GroupSettingSet(1)
fbpl=GroupSettingSet(2)
sh=GroupSettingSet(3)
smssize=GroupSettingSet(4)
smszf=GroupSettingSet(5)
smsrs=GroupSettingSet(6)
scwj=GroupSettingSet(7)
scml=GroupSettingSet(8)
scdx=GroupSettingSet(9)
wjlx=GroupSettingSet(10)
fbsh=GroupSettingSet(11)
zcrz=GroupSettingSet(12)
Simple=GroupSettingSet(13)
dianshu=GroupSettingSet(14)
tgdianshu=GroupSettingSet(15)
tgzijin=GroupSettingSet(16)
frmAction = "Edit"
Else
smssize=100:smszf=1000:smsrs=10:fbsh=1:zcrz=1:dianshu=0:tgdianshu=0:tgzijin=0
'scml="UpFiles/User":scwj=0:scdx=1024:wjlx="jpg|gif|bmp|png|swf|rar|exe":
Simple="Simple"
GroupName = ""
Description = ""
ChargeType = 1
GroupPoint = 0
ValidDays = 0
frmAction = "Add"
End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form name="form1" method="post" action="Admin_Group.asp">
<tr class="tdbg">
<td width="22%" align="right" >用户组名称：</td>
<td width="78%" ><input name="GroupSetting1" type="text" id="GroupSetting1" value="<%= GroupName %>"></td>
</tr>
<tr class="tdbg">
<td align="right" >用户组简介：</td>
<td ><textarea name="GroupSetting2" cols="50" rows="8" id="GroupSetting2"><%= Description %></textarea></td>
</tr>
<!--<tr>
<td align="right" >评论权限：</td>
<td ><INPUT type="checkbox" <%'if fbpl= "1" Then Response.Write "Checked "%> value="1" id="GroupSetting33" name="GroupSetting3"><label for="GroupSetting33">
在禁止发表评论的栏目里仍然可发表评论</label><BR>
<label for="GroupSetting44"> <INPUT <%'if sh= 1 Then Response.Write "Checked "%> type="checkbox" id="GroupSetting44" value="1" name="GroupSetting4">
在评论需要审核的栏目里发表评论不需要审核</label></td>
</tr>-->
<tr class="tdbg">
<td align="right" >短消息权限：</td>
<td >最大容量为
<INPUT size="10" value="<%= smssize %>" name="GroupSetting5">
条,短信内容最多字符数
<INPUT size="10" value="<%= smszf %>" name="GroupSetting6">
个字符<BR>
群发限制人数
<INPUT size="10" value="<%= smsrs %>" name="GroupSetting7">
人</td>
</tr>
<tr class="tdbg">
<td align="right" >在线编辑器菜单：</td>
<td >
<input name="GroupSetting14" id="GroupSetting14" type="text" title="在这里填写默认值" value="<%=Simple%>" size="20">
<select name="select" onchange="document.form1.GroupSetting14.value=this.value">
<option selected>-- 请选择 --</option>
<!--<option value="Ubb">Ubb菜单</option>-->
<option value="Simple">超简洁</option>
<option value="upload">可上传</option>
<option value="coolblue">完整</option>
</select></td>
</tr>
<tr class="tdbg">
<td align="right" >新会员注册时赠送的点数：</td>
<td ><input type="text" value="<%= dianshu %>" name="GroupSetting15">
（为0时不赠送）</td>
</tr>
<tr class="tdbg">
<td align="right" >会员发布文章赠送的点数：</td>
<td ><input type="text" value="<%= tgdianshu %>" name="GroupSetting16">
（为0时不加）</td>
</tr>
<tr class="tdbg">
<td align="right" >会员发布文章赠送的资金：</td>
<td ><input type="text" value="<%= tgzijin %>" name="GroupSetting17">
（为0时不加）</td>
</tr>
<tr class="tdbg">
<td align="right" >会员发布文章栏目设定：</td>
<td align="left"><INPUT onclick=getlicense() type=checkbox value=1 name=viewlicense align="absmiddle"> <font color="red">请选择会员发布文章栏目权限</font>
<table id=license style="DISPLAY: none" width="100%" border="0" cellpadding="2" cellspacing="1" class="table">
<tr class="tdbg">
<td>
<%
if lmid="" then lmid="0,0"
lmid=lmid&","
sql = "select * from lm where lm<>''"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
ccc=""
nr=split(lmid,",")
For i=0 to ubound(nr)
aaa=nr(i)
if aaa="" then aaa=0
if clng(aaa)=clng(rs("id")) then ccc=" checked "
next
Response.Write "<input "&ccc&" type=checkbox name=lmid value="&rs("id")&" id="&rs("id")&"><label for="&rs("id")&"><b>"&rs("lm")&"</b><font color=999999>(编号:"&rs("id")&")</font></label><BR>"
sql2 = "select * from lm where lmid='"&rs("id")&"'"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
while not rs2.eof
ccc=""
nr=split(lmid,",")
For i=0 to ubound(nr)
aaa=nr(i)
if aaa="" then aaa=0
if clng(aaa)=clng(rs2("id")) then ccc=" checked "
next
Response.Write " └<input "&ccc&" type=checkbox name=lmid value="&rs2("id")&" id="&rs2("id")&"><label for="&rs2("id")&">"&rs2("lm2")&"<font color=999999>(编号:"&rs2("id")&")</font></label><BR>"
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open "select * from [lm] where lmid='"&rs2("id")&"' order by id asc",conn,1,1
while not rs3.eof
ccc=""
nr=split(lmid,",")
For i=0 to ubound(nr)
aaa=nr(i)
if aaa="" then aaa=0
if clng(aaa)=clng(rs3("id")) then ccc=" checked "
next
Response.Write " ├<input "&ccc&" type=checkbox name=lmid value="&rs3("id")&" id="&rs3("id")&"><label for="&rs3("id")&">"&rs3("lm3")&"<font color=999999>(编号:"&rs3("id")&")</font></label><BR>"
rs3.movenext
wend
Rs3.Close:Set Rs3 = Nothing
rs2.movenext
wend
Rs2.Close:Set Rs2 = Nothing
rs.movenext
wend
Rs.Close:Set Rs = Nothing
%>
<br>
</td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td align="right" >发布的信息是否需要审核：</td>
<td >
<INPUT id="GroupSetting12" type="radio" <%if fbsh= "1" Then Response.Write "Checked "%> value="1" name="GroupSetting12"><LABEL for="GroupSetting12">是</LABEL>
<INPUT id="GroupSetting121" type="radio" <%if fbsh= "0" Then Response.Write "Checked "%> value="0" name="GroupSetting12"><LABEL for="GroupSetting121">否</LABEL>
</td>
</tr>
<tr class="tdbg">
<td align="right" >注册认证：</td>
<td >
<INPUT id="GroupSetting13" type="radio" <%if zcrz= "1" Then Response.Write "Checked "%> value="1" name="GroupSetting13"><LABEL for="GroupSetting13">不验证</LABEL>
<INPUT id="GroupSetting131" type="radio" <%if zcrz= "2" Then Response.Write "Checked "%> value="2" name="GroupSetting13"><LABEL for="GroupSetting131">邮件验证</LABEL>
<INPUT id="GroupSetting1312" type="radio" <%if zcrz= "3" Then Response.Write "Checked "%> value="3" name="GroupSetting13"><LABEL for="GroupSetting1312">后台验证</LABEL>
</td>
</tr>
<!-- <tr>
<td align="right" >发布的信息是否需要审核</td>
<td > </td>
</tr>
<tr>
<td align="right" ><DIV align="right">计费??方式：</DIV></td>
<td ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><INPUT <%'if ChargeType = 1 Then Response.Write "Checked"%> type="radio" value="1" id="ChargeType1" name="ChargeType">
<label for="ChargeType1">扣点数<BR></label>
默认 点数：
<INPUT id="GroupPoint" maxLength="5" size="6" value="<%'= GroupPoint %>" name="GroupPoint">
点</td>
</tr>
<tr>
<td><INPUT <'%if ChargeType = 2 Then Response.Write "Checked"%> type="radio" value="2" id="ChargeType2" name="ChargeType">
<label for="ChargeType2">有效期<BR></label>
默认有效期：
<INPUT id="ValidDays" maxLength="5" size="6" value="<%'= ValidDays %>" name="ValidDays">
天</td>
</tr>
<tr>
<td><INPUT <%'if ChargeType= 3 Then Response.Write "Checked"%> type="radio" id="ChargeType3" value="3" name="ChargeType">
<label for="ChargeType3"><font color="red">无限期(永不过期)</font></label></td>
</tr>
</table></td>
</tr> -->
<tr class="tdbg">
<td align="right" > </td>
<td >
<input name="GroupID" type="hidden" value="<%=GroupID%>">
<input name="Action" type="hidden" id="Action" value="Save<%=frmAction%>">
<input type=button onclick=CheckInfo() name=Submit value=" 保存 " />
<input type="reset" name="Submit2" value=" 取 消" /> </td>
</tr></form>
</table>
<SCRIPT language=javascript>
function CheckInfo()
{
if(document.form1.GroupSetting1.value=="")
{
form1.Submit.disabled=true;
form1.Submit2.disabled=true;
alert("用户组名不能为空！");
document.form1.GroupSetting1.focus();
form1.Submit.disabled=false;
form1.Submit2.disabled=false;
return false;
}
form1.Submit.value="正在提交数据,请稍等...";
form1.Submit.disabled=true;
form1.Submit2.disabled=true;
form1.submit();
return true;
}
</script>
<%
End Sub
call CloseConn() %>
<br>
<br> </body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -