📄 aa_group.asp

📁 整站源码jsp 有兴趣的可以看看
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
dim Web_Const7,Web_Reg2,Web_Login2,Web_Guest3,Web_Bbs3
Page_HeadName="<A HREF=Aa_Group.asp?Action=Add>用户组添加</A>　|　<A HREF=Aa_Group.asp?Action=Manage>用户组管理</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(56)
Page_BootmName="用户组添加"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=Aa_Group.asp?Action=sAdd>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>用户组名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='GroupName' TYPE=text id='GroupName' size=30> <FONT COLOR=ff0000>*</FONT>　　请不要和系统已有四个默认用户组重名</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>等级图片：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=GroupPic TYPE=text id=GroupPic size=30> <INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=GroupPic&FileName=Images/Group','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>在线订购产品：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_0 VALUE='1' checked> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_0 VALUE='0'>禁止　　如果系统关闭了在线订购功能，此处设置无效</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>在线询问价格：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_1 VALUE='1'> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_1 VALUE='0' checked>禁止　　同上，建议和在线订购错开</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表留言：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_2 VALUE='1' checked> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_2 VALUE='0'>禁止　　如果系统关闭了留言功能，此处设置无效</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表留言审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_9 VALUE='0'> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_9 VALUE='1' checked>不需要　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表评论：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_11 VALUE='1' checked> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_11 VALUE='0'>禁止　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表评论审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_12 VALUE='0'> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_12 VALUE='1' checked>不需要　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_3 VALUE='1' checked> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_3 VALUE='0'>禁止　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表帖子审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_10 VALUE='0'> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_10 VALUE='1' checked>不需要　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>编辑自己的帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_4 VALUE='1' checked> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_4 VALUE='0'>禁止　　用户可以编辑修改自己发表的帖子</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>编辑别人的帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_5 VALUE='1'> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_5 VALUE='0' checked>禁止　　用户可以编辑修改所有人发表的帖子，建议禁止此项</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>固顶帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_6 VALUE='1'> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_6 VALUE='0' checked>禁止　　用户可以将某个帖子固顶</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>屏蔽帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_7 VALUE='1'> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_7 VALUE='0' checked>禁止　　用户可以将某个帖子单帖屏蔽，建议禁止此项</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>删除帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_8 VALUE='1'> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_8 VALUE='0' checked>禁止　　用户可以将某个帖子删除，建议禁止此项</TD>"&_
		 "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交资料> "&_
         "<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
         "</TR>"&_
         "</Form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(57)
Dim Groud_Flag
Set Rs_edit=server.Createobject("Adodb.RecordSet")
Sql="Select * from Tx_Groud Where Id=" & Id
Rs_edit.open Sql,Conn,1,1
Groud_Flag=Rs_edit("Groud_Flag")
Groud_Flag=split(Groud_Flag,",")
Page_BootmName="用户组修改 > " & Rs_edit("Groud_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=Aa_Group.asp?Action=sEdit&Id=" & Id & ">"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>用户组名称：</TD>"&_
         "<TD CLASS=Table8>"
		 IF Rs_edit("Groud_Id")>1 THEN
             strIfa = strIfa & "<INPUT NAME='GroupName' VALUE='" & Rs_edit("Groud_Name") & "' TYPE=text id='GroupName' size=30> <FONT COLOR=ff0000>*</FONT>　　请不要和系统已有四个默认用户组重名"
         Else
		     strIfa = strIfa & Rs_edit("Groud_Name") & "<INPUT NAME=GroupName TYPE=hidden id=GroupName VALUE='" & Rs_edit("Groud_Name") & "'>"
		 End IF
strIfa = strIfa & "</TD></TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>等级图片：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=GroupPic VALUE='" & Rs_edit("Groud_Pic") & "' TYPE=text id=GroupPic size=30> <INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=GroupPic&FileName=Images/Group','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>在线订购产品：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_0 VALUE='1' "
		 IF Groud_Flag(0)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_0 VALUE='0' "
		 IF Groud_Flag(0)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止　　如果系统关闭了在线订购功能，此处设置无效</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>在线询问价格：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_1 VALUE='1' "
		 IF Groud_Flag(1)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_1 VALUE='0' "
		 IF Groud_Flag(1)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止　　同上，建议和在线订购错开</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表留言：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_2 VALUE='1' "
		 IF Groud_Flag(2)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_2 VALUE='0' "
		 IF Groud_Flag(2)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止　　如果系统关闭了留言功能，此处设置无效</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表留言审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_9 VALUE='0' "
		 IF Groud_Flag(9)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_9 VALUE='1' "
		 IF Groud_Flag(9)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">不需要　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表评论：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_11 VALUE='1' "
		 IF Groud_Flag(11)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_11 VALUE='0' "
		 IF Groud_Flag(11)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表评论审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_12 VALUE='0' "
		 IF Groud_Flag(12)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_12 VALUE='1' "
		 IF Groud_Flag(12)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">不需要　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表帖子：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_3 VALUE='1' "
		 IF Groud_Flag(3)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_3 VALUE='0' "
		 IF Groud_Flag(3)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止　　同上</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>发表帖子审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_10 VALUE='0' "
		 IF Groud_Flag(10)=0 THEN
		 strIfa = strIfa & " checked "
12 下一页
⌨️ 快捷键说明

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