admin_groups.asp

电子备课系统

		  		sChecked=" checked"
		  	Else
		  		sChecked=""
		  	End If
			Response.Write "<input name=""g_skins"" type=""checkbox"" value="& rstTmp("classId")& sChecked &">" & rstTmp("classname") & "("&rstTmp("iCount")&")&nbsp;"
			i=i+1
			If i Mod 6 =0 Then Response.Write "<br/>"
			rstTmp.MoveNext
		  Loop
	  End If
	  rstTmp.Close
	  Set rstTmp=Nothing
	  %>
	  </td>
    </tr>
	  <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许编辑模板</td>
      <td height="25" > <% Call EchoRadio("g_skin_edit","","",sSkinEdit)%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >模板中是否使用脚本</td>
      <td height="25" > <% Call EchoRadio("g_skin_script","","",sSkinScript)%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >允许创建的群组数目(0为不允许创建)</td>
     <td><% Call EchoInput("g_qqnumbers",40,40,sQQNumber)%></td>
    </tr>
    <!--
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否可以使用通讯录</td>
       <td height="25" > <% Call EchoRadio("g_mod_address","","",sModAddress)%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >是否允许使用网摘</td>
       <td height="25" > <% Call EchoRadio("g_mod_Zhai","","",sModZhai)%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >是否允许个人记事本</td>
       <td height="25" > <% Call EchoRadio("g_mod_note","","",sModNote)%></td>
    </tr>
    -->
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >上传空间的大小(0为不限制,-1为不允许)</td>
      <td height="25" ><% Call EchoInput("g_UpSpace",40,40,sUpSpace)%>KB</td>
    </tr>
	 <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >单一文件限制</td>
      <td height="25" ><% Call EchoInput("g_UpSize",40,40,sUpSize)%>KB</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >上传文件类型</td>
      <td height="25" ><% Call EchoInput("g_uptypes",50,100,sUpTypes)%>(用|分割)</td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >图片是否加水印</td>
      <td height="25" > <% Call EchoRadio("g_upwatermark","","",sUpWaterMark)%> </td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许整站加密</td>
      <td height="25" > <% Call EchoRadio("g_is_password","","",sIsPassword)%> </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >用户短信息数目限制</td>
      <td height="25" ><% Call EchoInput("g_pms",5,5,sPMs)%></td>
    </tr>

    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >是否强制显示广告</td>
      <td height="25" ><% Call EchoRadio("g_ad_system","","",sAdSystem)%></td>
    </tr>
	    <!--
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许用户发布自己的广告</td>
      <td height="25" > <% Call EchoRadio("g_ad_user","","",sAdUser)%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许用户启用脚本(需要进行审核,每次修改后仍然需要审核)</td>
      <td height="25" > <% Call EchoRadio("g_modscript","","",sModScript)%></td>
    </tr>
      <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许用户发起辩论申请</td>
      <td height="25" > <% Call EchoRadio("g_modArgue","","",sModArgue)%></td>
    </tr>

	 <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许用户发起活动申请</td>
      <td height="25" > <% Call EchoRadio("g_modactions","","",sModActions)%></td>
    </tr>
    -->
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td height="25" >用户发表日志是否需要验证码：</td>
      <td height="25" ><% Call EchoRadio("is_code_addblog","","",sCodePost)%></td>
    </tr>
     <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >每天允许用户更新全站多少次：</td>
      <td height="25" ><% Call EchoInput("oneday_update",5,5,sUpdates)%>次(设置为0则不进行限制)</td>
    </tr>
	  <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >允许加入的群组数：</td>
      <td height="25" ><% Call EchoInput("sIn_group",5,5,sIn_group)%>个</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >是否允许下载附件：</td>
      <td height="25" ><% Call EchoRadio("g_download","","",sDownLoad)%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >是否允许取回密码：</td>
      <td height="25" ><% Call EchoRadio("g_getpwd","","",sGetPwd)%></td>
    </tr>
    <%If oblog.CacheConfig(51)="1" Then%>
     <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25" >是否允许使用邮件或彩信发布日志：</td>
      <td height="25" ><% Call EchoRadio("g_mailpost","","",sMailPost)%></td>
    </tr>
    <%End If%>
	<tr>
      <td colspan=2 align="center">
	  <input type="submit" value="保存" class="submit"> <input type="reset" value="取消"></td>
    </tr>
   	</table>
	</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<%
End Sub

Sub Save()
	On Error Resume Next
	Dim Sql,tsql

	sGid=CheckInt(Request("gid"),"")
	sName=CheckStr(Request.Form("g_name"),20,"0")
	sLevel=CheckInt(Request.Form("g_level"),"1")
	sStyle=CheckStr(Request.Form("g_style"),"10","0")
	sPoints=CheckInt(Request.Form("g_points"),"")
	sAutoUpdate=Check01(Request.Form("g_autodate"),"1")
	sOBCodes=CheckInt(Request.Form("g_obcodes"),"2")
	sDayPosts=CheckInt(Request.Form("g_dayposts"),"10")
	sPostChk=Check01(Request.Form("g_logchk"),0)
	sSecondDomain=Check01(Request.Form("g_seconddomain"),1)
	sAutoUpdate=Check01(Request.Form("g_autoupdate"),1)
	sDomain=Check01(Request.Form("g_domain"),0)
	sClasses=FilterIds(Request.Form("g_classes"))
	sSkins=Request.Form("g_skins")
	sSkinEdit=Check01(Request.Form("g_skin_edit"),0)
	sSkinScript=Check01(Request.Form("g_skin_script"),0)
	sPostScript=Check01(Request.Form("g_post_script"),0)
	sADSystem=Check01(Request.Form("g_ad_system"),0)
	sADuser=Check01(Request.Form("g_ad_user"),0)
	sQQNumber=CheckInt(Request.Form("g_qqnumbers"),3)
	sModNote=Check01(Request.Form("g_mod_note"),1)
	sModAddress=Check01(Request.Form("g_mod_address"),0)
	sModZhai=Check01(Request.Form("g_mod_zhai"),1)
	sModArgue=Check01(Request.Form("g_mod_aruge"),1)
	sModActions=Check01(Request.Form("g_mod_action"),0)
	sUpTypes=Request.Form("g_uptypes")
	sUpSize=CheckInt(Request.Form("g_upsize"),"")
	sUpSpace=CheckInt(Request.Form("g_upspace"),"")
	sUpWaterMark=Check01(Request.Form("g_upwatermark"),0)
	sIsPassword=Check01(Request.Form("g_is_password"),0)
	sPMs=Int(OB_IIF(Request.Form("g_pms"),30))
	sUpdates=OB_IIF(Request.Form("oneday_update"),5)
	sIn_group=OB_IIF(Request.Form("sIn_group"),10)
	sCodePost=Check01(Request.Form("is_code_addblog"),0)
	sMailPost=Check01(Request.Form("g_mailpost"),0)
	sDownLoad = Check01(Request.Form("g_download"),0)
	sGetPwd = Check01(Request.Form("g_getpwd"),1)
	'进行数据校验
	If sName="" Then oblog.AddErrStr("必须填写组名称")
  	If sLevel="" Or Not IsNumeric(sLevel)   Then oblog.AddErrStr("<li>必须填写组级别</li>")
	If sPoints="" Then  sPoints="0"
	If oblog.ErrStr<>"" Then Response.Write oblog.ErrStr:Response.End
	sql="select * From oblog_groups"
	If sGid>0 Then
		sql=sql & " Where groupid=" & sGid
		tsql=" AND groupid<>" & sGid
	Else
		sql=sql & " Where 1=0"
	End If
	'Check Group Name
	Set rst=conn.Execute("select groupid From oblog_groups Where g_name='" & sName & "'"& tsql)
	If Not rst.Eof Then
		oblog.ShowMsg "该等级名已经存在",""
		Exit Sub
	End If
	Set rst=conn.Execute("select groupid From oblog_groups Where g_level=" & sLevel & tsql )
	If Not rst.Eof Then
		oblog.ShowMsg "该等级序号已经存在",""
		Exit Sub
	End If
	rst.Close
	Dim nAddMode
	nAddMode=false
	Set rst=Server.CreateObject("Adodb.Recordset")
	rst.Open sql,conn,1,3
	If  rst.Eof Then
		nAddMode=true
		rst.AddNew
	End If
	rst("g_name")=sName
	rst("g_level")=sLevel
	rst("g_style") = sStyle
	rst("g_points")=sPoints
	rst("g_autoupdate") = sAutoUpdate
	rst("g_obcodes") = sOBCodes
	rst("g_post_day") = sDayPosts
	rst("g_post_chk") = sPostChk
	rst("g_seconddomain")=sSecondDomain
	rst("g_domain") = sDomain
	rst("g_classes") = sClasses
	rst("g_skins") = sSkins
	rst("g_skin_edit") = sSkinEdit
	rst("g_skin_script") = sSkinScript
	rst("g_post_script") = sPostScript
	rst("g_ad_sys") = sADSystem
	rst("g_ad_user") = sADuser
	rst("g_qq_number") = sQQNumber
	rst("g_mod_note") = sModNote
	rst("g_mod_address") = sModAddress
	rst("g_mod_zhai") = sModZhai
	rst("g_mod_argue") = sModArgue
	rst("g_mod_meet") = sModActions
	rst("g_up_types") = sUpTypes
	rst("g_up_size") = sUpSize
	rst("g_up_space") = sUpSpace
	rst("g_up_watermark") = sUpWaterMark
	rst("g_is_password") = sIsPassword
	rst("g_pm_numbers")=sPMs
	rst("oneday_update")=sUpdates
	rst("is_code_addblog")=sCodePost
	rst("In_group")=sIn_group
	If oblog.cacheconfig(51)="1" Then
		rst("g_mailpost")=sMailPost
	End If
	rst("g_download") = sDownLoad
	rst("g_getpwd") = sGetPwd
	rst.Update
	If Err Then
		If nAddMode Then rst.Delete
		%>
		<script lanaguage="javascript">
			alert("必须正确填写每一个项目!")
			history.back();
		</script>
		<%
		Response.End
	End If
	EventLog "进行用户组资料的添加（修改）操作，目标用户组ID为："&OB_IIF(sGid,"无"),oblog.NowUrl&"?"&Request.QueryString
	'Response.Write "用户等级 " & sName & " 操作成功!"
 	Response.Redirect "admin_groups.asp"
 End Sub

 Function ShowMove()
 	Dim sSelect,rs
 	Set rs=oblog.Execute("select groupid,g_name From oblog_groups")
 	Do While Not rs.Eof
 		sSelect=sSelect & "<option value="&rs(0)&">" & rs(1) & "</option>" & vbcrlf
 		rs.MoveNext
	Loop
 	Set rs=Nothing
 %>
 <script language="javascript">
 	function checksubmit1(){
 		if(document.form1.g1.value==document.form1.g2.value){
 			alert("不能在同一组间进行数据转移!")
 			return false;
 			}
}
 </script>
 <div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">用户等级数据转移</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
 <form method="post" action="admin_groups.asp?action=savemove" id="form1" name="form1" onSubmit="return checksubmit1();">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
     <td width="100%" height="25" >选择要进行转移的组:
     	<select name=g1><%=sSelect%></select>&nbsp;&nbsp;&nbsp;&nbsp;目标组:<select name=g2><%=sSelect%></select>&nbsp;&nbsp;&nbsp;&nbsp;<input type=submit value="执行">
     	</td>
    </tr>
   </table>
</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
    <%
 End Function

 Function SaveMove()
 	Dim g1,g2,rs,rst
 	g1=Int(Request.Form("g1"))
 	g2=Int(Request.Form("g2"))
 	If g1=g2 Then Response.Redirect "admin_groups.asp"
 	oblog.Execute "Update oblog_user Set user_group=" & g2 & " Where user_group=" & g1
	oblog.CountGroupUser
	EventLog "进行用户组的转移操作，用户组ID"&g1&"转移到用户组ID"&g2,oblog.NowUrl&"?"&Request.QueryString
	%>
	<script language="javascript">
 			alert("数据转移完成!")
			document.location.href="admin_groups.asp";
 </script>
	<%
 End Function
 Set oblog = Nothing
%>