📄 aa_group.asp

📁 整站源码jsp 有兴趣的可以看看
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		 End IF
strIfa = strIfa & "> 需要　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_10 VALUE='1' "
		 IF Groud_Flag(10)=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_4 VALUE='1' "
		 IF Groud_Flag(4)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_4 VALUE='0' "
		 IF Groud_Flag(4)=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_5 VALUE='1' "
		 IF Groud_Flag(5)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_5 VALUE='0' "
		 IF Groud_Flag(5)=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_6 VALUE='1' "
		 IF Groud_Flag(6)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_6 VALUE='0' "
		 IF Groud_Flag(6)=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_7 VALUE='1' "
		 IF Groud_Flag(7)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_7 VALUE='0' "
		 IF Groud_Flag(7)=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_8 VALUE='1' "
		 IF Groud_Flag(8)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_8 VALUE='0' "
		 IF Groud_Flag(8)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止　　用户可以将某个帖子删除，建议禁止此项</TD>"&_
		 "</TR>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>查看发帖者的IP地址：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS='radio_all' NAME=Group_13 VALUE='1' "
		 IF Groud_Flag(13)=1 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & "> 允许　<INPUT TYPE=radio CLASS='radio_all' NAME=Group_13 VALUE='0' "
		 IF Groud_Flag(13)=0 THEN
		 strIfa = strIfa & " checked "
		 End IF
strIfa = strIfa & ">禁止</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>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(57)
Dim GroudUserCount,GroudUser,GroudUserDel
Page_BootmName="用户组列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.RecordSet")
Sql="Select * From Tx_Groud order by Groud_Id"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD CLASS=Table6>用户组名称</TD><TD WIDTH=25% CLASS=Table6>等级图片</TD><TD WIDTH=10% CLASS=Table6>用户数</TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
while Not Rs_Manage.eof
IF Rs_Manage("Groud_Id")>1 THEN
GroudUser="<A HREF='Aa_User.asp?Action=Manage&xSelect=GroudId&Id=" & Rs_Manage("Groud_Id") & "'>列出用户</A>"
GroudUserDel="<A HREF=Aa_Group.asp?Action=Del&Id=" & Rs_Manage("Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A>"
Else
GroudUser="<FONT COLOR=#EFEFEF>列出用户</FONT>"
GroudUserDel="<FONT COLOR=#EFEFEF>删除</FONT>"
End IF
GroudUserCount=Conn.Execute("Select count(*) from Tx_User where User_Group=" & Rs_Manage("Groud_Id"))(0)
strIfa = strIfa & "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
				  "<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("Id") & "</TD>"&_
                  "<TD><A HREF=Aa_Group.asp?Action=Edit&Id=" & Rs_Manage("Id") & ">" & Rs_Manage("Groud_Name") & "</A></TD>"&_
                  "<TD ALIGN=center><IMG SRC=" & Rs_Manage("Groud_Pic") & "></TD>"&_
                  "<TD ALIGN=center>" & GroudUserCount & "</TD>"&_
                  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_Group.asp?Action=Edit&Id=" & Rs_Manage("Id") & ">修改</A> | "&_
                  "" & GroudUser & " | " & GroudUserDel & ""&_
                  "</TD>"&_
                  "</TR>"
Rs_Manage.moveNext
wEnd 
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "</TABLE>"
Call Page_aTable(0,0)
Case "sAdd"
Dim GroupName,Groud_Id
IF request.form("GroupName")<>"" THEN
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_Groud where Groud_Name='" & request.form("GroupName") & "'"
Rs.open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
GroupName=1
End IF
Rs.Close
Set Rs=nothing
End IF
IF request.form("GroupName")="" THEN
Errorst="请输入用户组名！"
founderr=True
ElseIF GroupName=1 THEN
Errorst="已有相同的用户组名！"
founderr=True
End IF
    IF founderr=True THEN
	    call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Groud"
        Rs.open Sql,Conn,1,3
		Rs.AddNew
		Rs("Groud_Name")=request.form("GroupName")
		Rs("Groud_Pic")=request.form("GroupPic")
		Rs("Groud_Id")=Groud_Id+1
		Rs("Groud_Flag")=request.form("Group_0") & "," & request.form("Group_1") & "," & request.form("Group_2") & "," & request.form("Group_3") & "," & request.form("Group_4") & "," & request.form("Group_5") & "," & request.form("Group_6") & "," & request.form("Group_7") & "," & request.form("Group_8") & "," & request.form("Group_9") & "," & request.form("Group_10") & "," & request.form("Group_11") & "," & request.form("Group_12") & "," & request.form("Group_13")
		Rs.UpDate
	Rs.Close
	Set Rs=Nothing
		ToHistory="Aa_Group.asp?Action=Manage"
		saveok="用户组：[ " & request.form("GroupName") & " ] 添加成功！"
	    Call Form_Saveok()
	End IF
Case "sEdit"
IF request.form("GroupName")="" THEN
Errorst="请输入用户组名！"
founderr=True
End IF
    IF founderr=True THEN
	    call Form_Error()
    Else
	Groud_Id=Conn.Execute("Select Groud_Id from Tx_Groud order by Groud_Id desc")(0)
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Groud Where Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Groud_Name")=request.form("GroupName")
		Rs("Groud_Pic")=request.form("GroupPic")
		Rs("Groud_Flag")=request.form("Group_0") & "," & request.form("Group_1") & "," & request.form("Group_2") & "," & request.form("Group_3") & "," & request.form("Group_4") & "," & request.form("Group_5") & "," & request.form("Group_6") & "," & request.form("Group_7") & "," & request.form("Group_8") & "," & request.form("Group_9") & "," & request.form("Group_10") & "," & request.form("Group_11") & "," & request.form("Group_12") & "," & request.form("Group_13")
		Rs.UpDate
	Rs.Close
	Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="用户组：[ " & request.form("GroupName") & " ] 修改成功！"
	    Call Form_Saveok()
	End IF
Case "Del"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Groud Where Id=" & Id
        Rs.open Sql,Conn,1,1
        IF Rs("Groud_Id")<=1 THEN
             Errorst="不能删除系统用户组！"
        End IF
	Rs.Close
	Set Rs=Nothing
    IF founderr=True THEN
	    call Form_Error()
    Else
    Conn.Execute "Delete From Tx_Groud Where Id=" & Id
    ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一页 12
⌨️ 快捷键说明

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