📄 addusergroup.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
on error resume next
Dim Conn,User_Conn,AddGroupRs,if_repage_RS
Dim GroupName,AllowUpFile,UpfileNum,UpfileSize,GroupDate,GroupPoint,GroupMoney,GroupType,CorpTemplet,LimitInfoNum,GroupDebateNum,GroupDebateNum_Array,JuniorDomain,KeywordsNumber,Ishtml,BcardNumber,Templetwatermark
Admin_Login_State
'************************************Update
if Request("Act")="addGroup" then
MF_Default_Conn
MF_User_Conn
MF_Session_TF
Set AddGroupRs=server.CreateObject(G_FS_RS)
AddGroupRs.open "select GroupName,UpfileNum,UpfileSize,GroupDate,GroupPoint,GroupMoney,GroupType,CorpTemplet,LimitInfoNum,GroupDebateNum,JuniorDomain,KeywordsNumber,isHtml,BcardNumber,Templetwatermark From FS_ME_Group",User_Conn,1,3
AddGroupRs.addNew
AddGroupRs("GroupName")=Request.Form("GroupName")
AddGroupRs("UpfileNum")=Request.Form("UpfileNum")
AddGroupRs("UpfileSize")=Request.Form("UpfileSize")
AddGroupRs("GroupDate")=Request.Form("GroupDate")
AddGroupRs("GroupPoint")=Request.Form("GroupPoint")
AddGroupRs("GroupMoney")=Request.Form("GroupMoney")
AddGroupRs("GroupType")=Request.Form("GroupType")
AddGroupRs("CorpTemplet")=Request.Form("CorpTemplet")
AddGroupRs("LimitInfoNum")=Request.Form("LimitInfoNum")
AddGroupRs("GroupDebateNum")=trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))
AddGroupRs("JuniorDomain")=Request.Form("JuniorDomain")
AddGroupRs("KeywordsNumber")=Request.Form("KeywordsNumber")
AddGroupRs("isHtml")=Request.Form("isHtml")
AddGroupRs("BcardNumber")=Request.Form("BcardNumber")
AddGroupRs("Templetwatermark")=Request.Form("Templetwatermark")
'判断是否名字重复
Set if_repage_RS=User_Conn.execute("Select GroupName from FS_ME_Group where GroupName='"&trim(Request.Form("GroupName"))&"'")
if not if_repage_RS.eof then
Response.Redirect("../error.asp?ErrCodes=<li>组名不能重复</li>")
Response.End()
End if
AddGroupRs.update
if err.number=0 then
Response.Redirect("../success.asp?ErrCodes=操作成功")
Response.End()
else
Response.Redirect("../error.asp?ErrCodes=<li>"&err.description&"</li>")
Response.End()
end if
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
function AddGroupSubmit()
{
var flag1=isEmpty('GroupName','GroupName_Alert')
var flag2=isNumber('UpfileNum','UpfileNum_Alert','文件个数应为正整数',true)
var flag3=isNumber('UpfileSize','UpfileSize_Alert','文件大小应为正整数',true)
var flag4=isNumber('GroupDate','GroupDate_Alert','有效期限应为正整数',true)
var flag5=isNumber('GroupPoint','GroupPoint_Alert','积分应为正整数',true)
var flag6=isNumber('GroupMoney','GroupMoney_Alert','金币应为正整数',true)
var flag7=isNumber('LimitInfoNum','CorpTemplet_Alert','金币应为正整数',true)
var flag8=isNumber('GroupDebateNum_1','GroupDebateNum_Alert1','社群最大数量应为正整数',true)
var flag9=isNumber('GroupDebateNum_2','GroupDebateNum_Alert2','社群最大人数应为正整数',true)
var flag10=isNumber('KeywordsNumber','KeywordsNumber_Alert','关键字个数应为正整数',true)
var flag11=isNumber('BcardNumber','BcardNumber_Alert','名片收藏个数应为正整数',true)
var flag12=isEmpty('CorpTemplet','CorpTemplet_Alert')
if(flag1&&flag2&&flag3&&flag4&&flag5&&flag6&&flag7&&flag8&&flag9&&flag10&&flag11&&flag12)
document.AddGroup.submit();
}
</script>
</HEAD>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="JavaScript" src="UserJS.js" type="text/JavaScript"></script>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes oncontextmenu="return false;">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr class="hback">
<td align="right" class="xingmu" colspan="2"><div align="left">添加用户组</div></td></tr>
<form action="?Act=addGroup" method="post" name="AddGroup" id="AddGroup">
<tr class="hback">
<td width="150" align="right">组名称：</td>
<td width="537"> <input name="GroupName" type="text" id="GroupName" size="50" />
<font color="#FF0000">*</font><span id="GroupName_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">文件个数限制： </td>
<td><input name="UpfileNum" type="text" id="UpfileNum" value="0" size="50">
k<span id="UpfileNum_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">文件大小限制：</td>
<td><input name="UpfileSize" type="text" id="UpfileSize" value="0" size="50">
<span id="UpfileSize_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">组有效期限：</td>
<td><input name="GroupDate" type="text" id="GroupDate" value="0" size="50"/>
天 <span id="GroupDate_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">该组所需积分：</td>
<td><input name="GroupPoint" type="text" id="GroupPoint" value="0" size="50"/>
<span id="GroupPoint_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">该组所需金币：</td>
<td><input name="GroupMoney" type="text" id="GroupMoney" value="0" size="50"/>
<span id="GroupMoney_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">组类型：</td>
<td><label>
<input name="GroupType" type="radio" value="1" checked <%if GroupType=1 then response.Write("checked") end if%>>
个人会员组</label>
<label>
<input type="radio" name="GroupType" value="0" <%if GroupType=0 then response.Write("checked") end if%>>
企业会员组</label></td>
</tr>
<tr class="hback">
<td align="right">信息发布数量上限：</td>
<td><input name="LimitInfoNum" type="text" id="LimitInfoNum" value="10" size="50"/>
<span id="LimitInfoNum_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">企业会员模板地址：</td>
<td><input name="CorpTemplet" type="text" size="50"><span id="CorpTemplet_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">社群参数：</td>
<td>社群最大数量：
<input name="GroupDebateNum_1" type="text" id="GroupDebateNum_1" value="0" size="15">
社群最大人数
<input name="GroupDebateNum_2" type="text" id="GroupDebateNum_2" value="0" size="15">
<span id="GroupDebateNum_Alert1"></span> <span id="GroupDebateNum_Alert2"></span></td>
</tr>
<tr class="hback">
<td align="right">开通二级域名：</td>
<td><p>
<label>
<input type="radio" name="JuniorDomain" value="1" <%if JuniorDomain=1 then Response.Write("checked") end if%>>
是</label>
<label>
<input type="radio" name="JuniorDomain" value="0" <%if JuniorDomain=0 then Response.Write("checked") end if%>>
否</label>
<br>
</p></td>
</tr>
<tr class="hback">
<td align="right">信息关键字个数：</td>
<td><input name="KeywordsNumber" type="text" id="KeywordsNumber" value="0" size="50"/>
<span id="KeywordsNumber_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">生成静态文件：</td>
<td><label>
<input type="radio" name="Ishtml" value="1" <%if Ishtml=1 then Response.Write("checked") end if%>>
是</label>
<label>
<input type="radio" name="Ishtml" value="0" <%if Ishtml=0 then Response.Write("checked") end if%>>
否</label></td>
</tr>
<tr class="hback">
<td align="right">名片收藏个数限制：</td>
<td><input name="BcardNumber" type="text" id="BcardNumber" value="0" size="50"/>
<span id="BcardNumber_Alert"></span></td>
</tr>
<tr class="hback">
<td align="right">开通水印：</td>
<td><label>
<input type="radio" name="Templetwatermark" value="1" <%if Templetwatermark=1 then Response.Write("checked") end if%>>
是</label>
<label>
<input name="Templetwatermark" type="radio" value="0" checked <%if Templetwatermark=0 then Response.Write("checked") end if%>>
否</label></td>
</tr>
<tr class="hback">
<td align="right"> </td>
<td><input type="Button" name="AddGroupButton" value=" 保存 " onClick="AddGroupSubmit()"/>
<input type="reset" name="Submit2" value=" 重置 " /></td>
</tr>
</form>
</tr>
</table>
</body>
<%
if Request("Act")="addGroup" then
AddGroupRs.close
set AddGroupRs=nothing
Conn.close
Set Conn=nothing
User_Conn.close
Set User_Conn=nothing
if_repage_RS.close
Set if_repage_RS=nothing
end if
%>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -