📄 admin_usergroup.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
			else
				Response.write "height=""0"""
			end if
			%> width="100%" src="Admin_SetClassPurview.asp?Type=u&ChannelID=<%=sMaxCID%>&Action=<%=frmAction%>&UserID=<%=GroupID%>"></iframe>
			</fieldset>
		</td>
	<%
'===================================================================================
sTempJs = sTempJs & "if(document.form1.Purview_" & sMaxCID & "[2].checked==true){" & vbCrlf
sTempJs = sTempJs & "	for(var i=0;i<arrClass_" & sMaxCID & ".document.myform.ClassView.length;i++){" & vbCrlf
sTempJs = sTempJs & "		if (arrClass_" & sMaxCID & ".document.myform.ClassView[i].checked==true){" & vbCrlf
sTempJs = sTempJs & "			if (document.form1.arrClassView.value=='')" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassView.value=arrClass_" & sMaxCID & ".document.myform.ClassView[i].value;" & vbCrlf
sTempJs = sTempJs & "			else" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassView.value+=','+arrClass_" & sMaxCID & ".document.myform.ClassView[i].value;" & vbCrlf
sTempJs = sTempJs & "		}" & vbCrlf
sTempJs = sTempJs & "	}" & vbCrlf
sTempJs = sTempJs & "	for(var i=0;i<arrClass_" & sMaxCID & ".document.myform.ClassInput.length;i++){" & vbCrlf
sTempJs = sTempJs & "		if (arrClass_" & sMaxCID & ".document.myform.ClassInput[i].checked==true){" & vbCrlf
sTempJs = sTempJs & "			if (document.form1.arrClassInput.value=='')" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassInput.value=arrClass_" & sMaxCID & ".document.myform.ClassInput[i].value;" & vbCrlf
sTempJs = sTempJs & "			else" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassInput.value+=','+arrClass_" & sMaxCID & ".document.myform.ClassInput[i].value;" & vbCrlf
sTempJs = sTempJs & "		}" & vbCrlf
sTempJs = sTempJs & "	}" & vbCrlf
sTempJs = sTempJs & "	for(var i=0;i<arrClass_" & sMaxCID & ".document.myform.ClassCheck.length;i++){" & vbCrlf
sTempJs = sTempJs & "		if (arrClass_" & sMaxCID & ".document.myform.ClassCheck[i].checked==true){" & vbCrlf
sTempJs = sTempJs & "			if (document.form1.arrClassCheck.value=='')" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassCheck.value=arrClass_" & sMaxCID & ".document.myform.ClassCheck[i].value;" & vbCrlf
sTempJs = sTempJs & "			else" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassCheck.value+=','+arrClass_" & sMaxCID & ".document.myform.ClassCheck[i].value;" & vbCrlf
sTempJs = sTempJs & "		}" & vbCrlf
sTempJs = sTempJs & "	}" & vbCrlf
sTempJs = sTempJs & "	for(var i=0;i<arrClass_" & sMaxCID & ".document.myform.ClassMaster.length;i++){" & vbCrlf
sTempJs = sTempJs & "		if (arrClass_" & sMaxCID & ".document.myform.ClassMaster[i].checked==true){" & vbCrlf
sTempJs = sTempJs & "			if (document.form1.arrClassMaster.value=='')" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassMaster.value=arrClass_" & sMaxCID & ".document.myform.ClassMaster[i].value;" & vbCrlf
sTempJs = sTempJs & "			else" & vbCrlf
sTempJs = sTempJs & "				document.form1.arrClassMaster.value+=','+arrClass_" & sMaxCID & ".document.myform.ClassMaster[i].value;" & vbCrlf
sTempJs = sTempJs & "		}" & vbCrlf
sTempJs = sTempJs & "	}" & vbCrlf
sTempJs = sTempJs & "}" & vbCrlf
'===================================================================================
	Next
	%>
		<input name="arrClassMaster" type="hidden" id="arrClassMaster" />
		<input name="arrClassCheck" type="hidden" id="arrClassCheck" />
		<input name="arrClassInput" type="hidden" id="arrClassInput" />
		<input name="arrClassView" type="hidden" id="arrClassView" />
		</tr>
      </table></td>
    </tr>
    <tr> 
      <td colspan="2" align="center" class="tdbg">
	   <input name="ID" type="hidden" value="<%=GroupID%>" />
		<input name="Action" type="hidden" id="Action" value="Save<%=frmAction%>" />
        <input  type="submit" name="Submit" value="确定<%=sSubmit%>用户组" style="cursor:hand;" />
        &nbsp;
        <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onclick="window.location.href='Admin_UserGroup.asp'" style="cursor:hand;" /></td>
    </tr>
  </table>
</form>
<script language="JavaScript" type="text/javascript">
function GetarrClassPurview()
{
<%=sTempJs%>
}
</script>
<%
	Set rs=Nothing
end sub

Sub SaveAdd()
	Dim GroupName,GroupImg,LoginPoint
	Dim ChargeType,ValidDays,GroupPoint
	dim Purview
	dim cMaxID,sPurview
	dim arrClassView,arrClassInput,arrClassCheck,arrClassMaster
	cMaxID=Cl.Execute("select Max(ChannelID) from Cl_Channel")(0)
	if Not IsNumeric(cMaxID) then cMaxID=5
	GroupName		= Trim(Request("GroupName"))
	ChargeType		= Cl.GetClng(Request("ChargeType"))
	ValidDays		= Cl.GetClng(Request("ValidDays"))
	GroupPoint		= Cl.GetClng(Request("GroupPoint"))
	LoginPoint		= Cl.GetClng(Request("LoginPoint"))
	GroupImg		= Trim(Request("GroupImg"))
	Purview			= Trim(Request("Purview_0"))
	if Purview="" or Not IsNumeric(Purview) then Purview=5
	for i=1 to cMaxID
		sPurview=Trim(Request("Purview_"&i&""))
		if sPurview="" or Not IsNumeric(sPurview) then sPurview=5
		Purview=Purview & "," & Clng(sPurview)
	next
	Purview_Other		= Trim(Request("Purview_Other"))
	arrClassView		= Trim(Request("arrClassView"))
	arrClassInput		= Trim(Request("arrClassInput"))
	arrClassCheck		= Trim(Request("arrClassCheck"))
	arrClassMaster		= Trim(Request("arrClassMaster"))
	Purview_Other		= Replace(Purview_Other," ","")
	arrClassView		= Replace(arrClassView," ","")
	arrClassInput		= Replace(arrClassInput," ","")
	arrClassCheck		= Replace(arrClassCheck," ","")
	arrClassMaster		= Replace(arrClassMaster," ","")
	if GroupName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>用户组名称不能为空！</li>"
	end if
	'if Not IsNumeric(Replace(Replace(Purview,",","")," ","")) then
	'	FoundErr=True
	'	ErrMsg=ErrMsg & "<br /><li>用户权限错误为空！</li>"
	'end if
	if FoundErr=True then Cl.ShowErr(ErrMsg)
	if ChargeType<>1 and ChargeType<>2 then ChargeType=1
	cMaxID=Cl.Execute("select Max(ID) from Cl_UserGroup")(0)
	if Not IsNumeric(cMaxID) then cMaxID=0
	sql="Select * from Cl_UserGroup where GroupName='"&GroupName&"'"
	Set rs=Server.CreateObject("Adodb.RecordSet")
	OpenConn : rs.Open sql,Conn,1,3
	if not (rs.bof and rs.EOF) then
		rs.close:set rs=Nothing
		Cl.ShowErr("<br /><li>数据库中已经存在此用户组名称！</li>")
	end if
   	rs.addnew
 	rs("ID")			= cMaxID+1
 	rs("GroupName")		= GroupName
   	rs("GroupImg")		= GroupImg
	rs("ChargeType")	= ChargeType
	rs("ValidDays")		= ValidDays
	rs("GroupPoint")	= GroupPoint
	rs("LoginPoint")	= LoginPoint
	rs("Purview")		= Purview
	rs("Purview_Other")	= Lcase(Purview_Other)
	Rs("arrClassView")	= arrClassView
	Rs("arrClassMaster")= arrClassMaster
	Rs("arrClassCheck")	= arrClassCheck
	Rs("arrClassInput")	= arrClassInput
	rs.update
	rs.Close:set rs=Nothing
	Cl.Load_UserGroupList
	Cl.SaveAdminLog
	Call Cl.ShowSuc("<div align='center'>添加新用户组成功！&gt;&gt;<b><a href=Admin_UserGroup.asp>点击返回</a></b><div>")
end sub

sub SaveModify()
	Dim GroupName,GroupImg,LoginPoint
	Dim ChargeType,ValidDays,GroupPoint
	dim cMaxID,Purview
	dim GroupID,sPurview
	dim arrClassView,arrClassInput,arrClassCheck,arrClassMaster
	cMaxID=Cl.Execute("select Max(ChannelID) from Cl_Channel")(0)
	if Not IsNumeric(cMaxID) then cMaxID=5
	GroupID		= Trim(Request("ID"))
	GroupName	= Trim(Request("GroupName"))
	ChargeType	= Cl.GetClng(Request("ChargeType"))
	ValidDays	= Cl.GetClng(Request("ValidDays"))
	GroupPoint	= Cl.GetClng(Request("GroupPoint"))
	LoginPoint	= Cl.GetClng(Request("LoginPoint"))
	GroupImg	= Trim(Request("GroupImg"))
	Purview		= Trim(Request("Purview_0"))
	if Purview="" or Not IsNumeric(Purview) then Purview=5
	for i=1 to cMaxID
		sPurview=Trim(Request("Purview_"&i&""))
		if sPurview="" or Not IsNumeric(sPurview) then sPurview=5
		Purview=Purview & "," & Clng(sPurview)
	next
	Purview_Other		= Trim(Request("Purview_Other"))
	arrClassView		= Trim(Request("arrClassView"))
	arrClassInput		= Trim(Request("arrClassInput"))
	arrClassCheck		= Trim(Request("arrClassCheck"))
	arrClassMaster		= Trim(Request("arrClassMaster"))
	Purview_Other		= Replace(Purview_Other," ","")
	arrClassView		= Replace(arrClassView," ","")
	arrClassInput		= Replace(arrClassInput," ","")
	arrClassCheck		= Replace(arrClassCheck," ","")
	arrClassMaster		= Replace(arrClassMaster," ","")
	if GroupName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>用户组名称不能为空！</li>"
	end if
	'if Not IsNumeric(Replace(Replace(Purview,",","")," ","")) then
	'	FoundErr=True
	'	ErrMsg=ErrMsg & "<br /><li>用户权限错误为空！</li>"
	'end if
	'Response.write Replace(Replace(Purview,",","")," ","")
	'Response.end
	if FoundErr=True then Cl.ShowErr(ErrMsg)
	if ChargeType<>1 and ChargeType<>2 then ChargeType=1
	Set Rs=Server.CreateObject("ADODB.Recordset")
	OpenConn : Rs.Open "Select * from Cl_UserGroup where ID=" & GroupID & "",Conn,1,3
	if Rs.bof and Rs.eof then
		Rs.Close:Set Rs=Nothing
		Cl.ShowErr("<br /><li>查无此用户组！</li>")
	end if
 	rs("GroupName")		= GroupName
   	rs("GroupImg")		= GroupImg
	rs("ChargeType")	= ChargeType
	rs("ValidDays")		= ValidDays
	rs("GroupPoint")	= GroupPoint
	rs("LoginPoint")	= LoginPoint
    rs("Purview")		= Purview
    rs("Purview_Other")	= Lcase(Purview_Other)
	Rs("arrClassView")	= arrClassView
	Rs("arrClassMaster")= arrClassMaster
	Rs("arrClassCheck")	= arrClassCheck
	Rs("arrClassInput")	= arrClassInput
	Rs.Update
	Rs.Close:Set Rs=Nothing
	Cl.Load_UserGroupList
	Cl.SaveAdminLog
	Call Cl.ShowSuc("<div align='center'>用户组权限修改成功！&gt;&gt;<b><a href=Admin_UserGroup.asp>点击返回</a></b><div>")
end sub

sub Del()
	dim GroupID
	GroupID=Trim(Request("ID"))
	if GroupID="" then
		Cl.ShowErr("<br /><li>请指定要删除的管理员ID</li>")
	end if
	GroupID=Clng(GroupID)
	'先取消前台用户权限
	if GroupID<=7 then Cl.ShowErr("<br /><li>您不能删除系统用户组！</li>")
	Cl.Execute_U("Update "&Db.UserTable&" Set "&Db.UserGroupID&"=4 where "&Db.UserGroupID&"=" & GroupID)
	Cl.Execute("delete from Cl_UserGroup where ID=" & GroupID)
	Cl.Load_UserGroupList
	Cl.SaveAdminLog
	Call Cl.ShowSuc("<div align='center'>删除用户组成功！&gt;&gt;<b><a href=Admin_UserGroup.asp>点击返回</a></b><div>")
end sub

Function TrueCheckBox(sValue)
	TrueCheckBox=""
	if Purview_Other="" or IsNull(Purview_Other) then Exit Function
	sValue=Lcase(sValue)
	if Instr(","&Purview_Other&",",","&sValue&",")>0 then
		TrueCheckBox="checked"
	else
		TrueCheckBox=""
	end if
End Function
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
上一页 12
⌨️ 快捷键说明

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