📄 admin_group.asp
字号:
<tr>
<td class=tablerow2>每天可以发布多少篇文章</td>
<td class=tablerow2><input type=text name=GroupSet(10) size=10 value='<%=GroupSet(10)%>'></td>
</tr>
<tr>
<td class=tablerow1>可以发布软件</td>
<td class=tablerow1><input type=radio name="GroupSet(11)" value=0<%If Newasp.ChkNumeric(GroupSet(11)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(11)" value=1<%If Newasp.ChkNumeric(GroupSet(11)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2>可以管理自己发布的软件</td>
<td class=tablerow2><input type=radio name="GroupSet(12)" value=0<%If Newasp.ChkNumeric(GroupSet(12)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(12)" value=1<%If Newasp.ChkNumeric(GroupSet(12)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow1>发布软件增加的点数</td>
<td class=tablerow1><input type=text name=GroupSet(13) size=10 value='<%=GroupSet(13)%>'></td>
</tr>
<tr>
<td class=tablerow2>每天可以发布多少个软件</td>
<td class=tablerow2><input type=text name=GroupSet(14) size=10 value='<%=GroupSet(14)%>'></td>
</tr>
<tr>
<td class=tablerow1>可以发布动画</td>
<td class=tablerow1><input type=radio name="GroupSet(35)" value=0<%If Newasp.ChkNumeric(GroupSet(35)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(35)" value=1<%If Newasp.ChkNumeric(GroupSet(35)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2>可以管理自己发布的动画</td>
<td class=tablerow2><input type=radio name="GroupSet(36)" value=0<%If Newasp.ChkNumeric(GroupSet(36)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(36)" value=1<%If Newasp.ChkNumeric(GroupSet(36)) <> 0 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow1>发布动画增加的点数</td>
<td class=tablerow1><input type=text name=GroupSet(37) size=10 value='<%=Newasp.ChkNumeric(GroupSet(37))%>'></td>
</tr>
<tr>
<td class=tablerow2>每天可以发布多少个动画</td>
<td class=tablerow2><input type=text name=GroupSet(38) size=10 value='<%=Newasp.ChkNumeric(GroupSet(38))%>'></td>
</tr>
<tr>
<td class=tablerow1>发布以上信息需要管理员审核</td>
<td class=tablerow1><input type=radio name="GroupSet(15)" value=0<%If CInt(GroupSet(15)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(15)" value=1<%If CInt(GroupSet(15)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2>发布文章内容的最多字节</td>
<td class=tablerow2><input type=text name=GroupSet(16) size=10 value='<%=GroupSet(16)%>'> byte</td>
</tr>
<tr>
<td class=tablerow2>发布软件简介的最多字节</td>
<td class=tablerow2><input type=text name=GroupSet(17) size=10 value='<%=GroupSet(17)%>'> byte</td>
</tr>
<tr>
<td class=tablerow2>发布动画简介的最多字节</td>
<td class=tablerow2><input type=text name=GroupSet(39) size=10 value='<%=Newasp.ChkNumeric(GroupSet(39))%>'> byte</td>
</tr>
<tr>
<td class=tablerow1>删除文章扣除的点数</td>
<td class=tablerow1><input type=text name=GroupSet(18) size=10 value='<%=GroupSet(18)%>'></td>
</tr>
<tr>
<td class=tablerow2>删除软件扣除的点数</td>
<td class=tablerow2><input type=text name=GroupSet(19) size=10 value='<%=GroupSet(19)%>'></td>
</tr>
<tr>
<td class=tablerow2>删除动画扣除的点数</td>
<td class=tablerow2><input type=text name=GroupSet(40) size=10 value='<%=Newasp.ChkNumeric(GroupSet(40))%>'></td>
</tr>
<tr>
<td class=tablerow1>是否可以上传文件</td>
<td class=tablerow1><input type=radio name="GroupSet(20)" value=0<%If CInt(GroupSet(20)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(20)" value=1<%If CInt(GroupSet(20)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2>每天可以上传文件数</td>
<td class=tablerow2><input type=text name=GroupSet(21) size=10 value='<%=GroupSet(21)%>'></td>
</tr>
<tr>
<th colspan="2" align=left>＝＝站内短信设置</th>
</tr>
<tr>
<td class=tablerow1>是否可以发送短信</td>
<td class=tablerow1><input type=radio name="GroupSet(22)" value=0<%If CInt(GroupSet(22)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(22)" value=1<%If CInt(GroupSet(22)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2>发送短信内容限制</td>
<td class=tablerow2><input type=text name=GroupSet(23) size=10 value='<%=GroupSet(23)%>'> byte</td>
</tr>
<tr>
<td class=tablerow1>信箱大小限制 -- 不限制请设置为0</td>
<td class=tablerow1><input type=text name=GroupSet(24) size=10 value='<%=GroupSet(24)%>'> 条</td>
</tr>
<tr>
<td class=tablerow2>每天可以发送多少条短信</td>
<td class=tablerow2><input type=text name=GroupSet(29) size=10 value='<%=GroupSet(29)%>'></td>
</tr>
<tr>
<th colspan="2" align=left>＝＝其它设置</th>
</tr>
<tr>
<td class=tablerow1>每次登陆增加的点数</td>
<td class=tablerow1><input type=text name=GroupSet(25) size=10 value='<%=GroupSet(25)%>'></td>
</tr>
<tr>
<td class=tablerow2>每次登陆增加经验值</td>
<td class=tablerow2><input type=text name=GroupSet(32) size=10 value='<%=GroupSet(32)%>'></td>
</tr>
<tr>
<td class=tablerow1>每次登陆增加的魅力值</td>
<td class=tablerow1><input type=text name=GroupSet(33) size=10 value='<%=GroupSet(33)%>'></td>
</tr>
<tr>
<td class=tablerow2>发布信息增加的点数</td>
<td class=tablerow2><input type=text name=GroupSet(26) size=10 value='<%=GroupSet(26)%>'></td>
</tr>
<tr>
<td class=tablerow1>回复留言增加的点数</td>
<td class=tablerow1><input type=text name=GroupSet(27) size=10 value='<%=GroupSet(27)%>'></td>
</tr>
<tr>
<td class=tablerow2>购物所享受的折扣</td>
<td class=tablerow2><input type=text name=GroupSet(28) size=5 value='<%=GroupSet(28)%>'> 折</td>
</tr>
<tr>
<td class=tablerow1>是否可以购物</td>
<td class=tablerow1><input type=radio name="GroupSet(30)" value=0<%If CInt(GroupSet(30)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(30)" value=1<%If CInt(GroupSet(30)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2>是否可以下载软件</td>
<td class=tablerow2><input type=radio name="GroupSet(31)" value=0<%If CInt(GroupSet(31)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(31)" value=1<%If CInt(GroupSet(31)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow1>下载软件是否直接显示下载地址(供会员使用工具下载)</td>
<td class=tablerow1><input type=radio name="GroupSet(34)" value=0<%If CInt(GroupSet(34)) = 0 Then Response.Write " checked"%>> 否
<input type=radio name="GroupSet(34)" value=1<%If CInt(GroupSet(34)) = 1 Then Response.Write " checked"%>> 是 </td>
</tr>
<tr>
<td class=tablerow2></td>
<td class=tablerow2>
<input type="button" name="Submit1" onclick="javascript:history.go(-1)" value="返回上一页" class=button>
<input type="submit" name="submit" value="保存修改" class=button></td>
</tr>
<input type=hidden value="<%=Request("groupid")%>" name="groupid">
</form>
</table><br>
<%
Rs.Close:Set Rs=Nothing
End Sub
Sub savegroup()
If Len(request.form("GroupName")) = 0 Then
founderr=true
errmsg=errmsg+"<li>用户组不能为空！</li>"
Exit Sub
End If
If Trim(request.form("Grades")) = "" Then
founderr = true
errmsg = errmsg+"<li>用户等级不能为空！</li>"
Exit Sub
End If
Set Rs = Newasp.Execute("select Grades from [NC_UserGroup] where Grades = " & CInt(Request("Grades")))
If Not (Rs.bof And Rs.EOF) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>Sorry！有相同的等级存在,请重新输入用户等级再试！</li>"
Exit Sub
End If
Set Rs = Newasp.Execute("select Groupset from [NC_UserGroup] where Grades = 1")
Groupsetting = Newasp.CheckStr(Rs("Groupset"))
Rs.Close:Set Rs = Nothing
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from [NC_UserGroup] where (groupid is null)"
Rs.Open SQL,Conn,1,3
Rs.Addnew
Rs("Groupid") = Request.Form("Newgroupid")
Rs("Groupname") = Request.Form("Groupname")
Rs("Grades") = Request.Form("Grades")
Rs("Groupset") = Groupsetting & "0|||0|||0|||1|||1|||1|||0|||"
Rs.Update
Rs.Close:Set Rs=Nothing
Succeed("<li>添加用户组 "&request.form("GroupName")&" 成功!</li>")
End Sub
Sub savedit()
If Len(request.form("GroupName")) = 0 Then
founderr=true
errmsg=errmsg+"<li>用户组不能为空！</li>"
Exit Sub
End If
Dim Group_Setting
For i = 0 To 40
Group_Setting = Group_Setting & Request.Form("GroupSet(" & i & ")") & "|||"
Next
Group_Setting = Group_Setting & "0|||0|||0|||1|||1|||1|||0|||"
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from [NC_UserGroup] where groupid = " & Request.Form("groupid")
Rs.Open SQL,Conn,1,3
Rs("Groupname") = Request.Form("Groupname")
Rs("Grades") = Request.Form("Grades")
Rs("Groupset") = Newasp.Checkstr(Group_setting)
Rs.Update
Rs.Close:Set Rs=Nothing
Newasp.DelCahe "GroupSetting" & Request.Form("Grades")
Succeed("<li>修改用户组 "& Request.Form("GroupName") &" 成功!</li>")
End Sub
Sub delgroup()
Newasp.DelCahe "GroupSetting" & Request.Form("Grade")
Newasp.execute("Delete From NC_UserGroup where groupid="&request("groupid"))
Newasp.execute("update NC_user set UserGrade=1 where UserGrade="&request("Grade"))
Response.Redirect("admin_group.asp")
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -