📄 usergroup.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,ManageGroupRs,GType,GroupIndex
Dim GroupName,UpfileNum,UpfileSize,GroupDate,GroupPoint,GroupMoney,GroupType,CorpTemplet,LimitInfoNum,GroupDebateNum,JuniorDomain,KeywordsNumber,Ishtml,BcardNumber,Templetwatermark
'************************************Update
if Request("Act")="update" then
MF_Default_Conn
MF_User_Conn
MF_Session_TF
GType=Request.Form("GType")
GroupIndex=Request.Form("GroupIndex")
if GType="all" then
User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='"&Request.Form("CorpTemplet")&"',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',JuniorDomain="&Request.Form("JuniorDomain")&",KeywordsNumber="&Request.Form("KeywordsNumber")&",isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark"))
elseif GroupIndex="user" then
User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='"&Request.Form("CorpTemplet")&"',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',JuniorDomain="&Request.Form("JuniorDomain")&",KeywordsNumber="&Request.Form("KeywordsNumber")&",isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark")&" where GroupType=1")
elseif GroupIndex="corp" then
User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='"&Request.Form("CorpTemplet")&"',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',JuniorDomain="&Request.Form("JuniorDomain")&",KeywordsNumber="&Request.Form("KeywordsNumber")&",isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark")&" where GroupType=0")
else
User_Conn.execute("Update FS_ME_Group set GroupName='"&Request.Form("GroupName")&"',UpfileNum="&Request.Form("UpfileNum")&",UpfileSize="&Request.Form("UpfileSize")&",GroupDate="&Request.Form("GroupDate")&",GroupPoint="&Request.Form("GroupPoint")&",GroupMoney="&Request.Form("GroupMoney")&",GroupType="&Request.Form("GroupType")&",CorpTemplet='"&Request.Form("CorpTemplet")&"',LimitInfoNum="&Request.Form("LimitInfoNum")&",GroupDebateNum='"&trim(Request.Form("GroupDebateNum_1"))&","&trim(Request.Form("GroupDebateNum_2"))&"',JuniorDomain="&Request.Form("JuniorDomain")&",KeywordsNumber="&Request.Form("KeywordsNumber")&",isHtml="&Request.Form("isHtml")&",BcardNumber="&Request.Form("BcardNumber")&",Templetwatermark="&Request.Form("Templetwatermark")&" where GroupID="&GroupIndex)
End if
if err.number=0 then
Response.Redirect("../success.asp")
else
Response.Redirect("../error.asp?ErrCodes=<li>"&err.description&"</li>")
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 MySubmit()
{
var flag1=isNumber('UpfileNum','UpfileNum_Alert','文件个数应为正整数',true)
var flag2=isNumber('UpfileSize','UpfileSize_Alert','文件大小应为正整数',true)
var flag3=isNumber('GroupDate','GroupDate_Alert','文件大小应为正整数',true)
var flag4=isNumber('GroupMoney','GroupMoney_Alert','金币数量应为正整数',true)
var flag5=isNumber('LimitInfoNum','LimitInfoNum_Alert','信息数量应为正整数',true)
var flag6=isNumber('GroupDebateNum_1','GroupDebateNum1_Alert','社群数量应为正整数',true)
var flag7=isNumber('GroupDebateNum_2','GroupDebateNum2_Alert','社群人数应为正整数',true)
var flag8=isNumber('KeywordsNumber','KeywordsNumber_Alert','关键字个数应为正整数',true)
var flag9=isNumber('BcardNumber','BcardNumber_Alert','关键字个数应为正整数',true)
var flag10=isEmpty('GroupName','GroupName_Alert','组名不能为空')
var flag11=isEmpty('CorpTemplet','CorpTemplet_Alert','模版地址不能为空')
if(document.ManageGroup.GroupType[0].checked|document.ManageGroup.GroupType[1].checked)
{
document.getElementById("GroupType_Alert").innerHTML=""
if(flag1&&flag2&&flag3&&flag4&&flag5&&flag6&&flag7&&flag8&&flag9&&flag10&flag11)
{
if(document.getElementById("GType").value=="all")
{
if(confirm("确定修改所有用户组?"))
{
document.ManageGroup.submit();
}
}else if(document.getElementById("GroupIndex").value=="user")
{
if(confirm("确定修改所有个人会员组?"))
{
document.ManageGroup.submit();
}
}
else if(document.getElementById("GroupIndex").value=="corp")
{
if(confirm("确定修改所有企业会员组?"))
{
document.ManageGroup.submit();
}
}
else
document.ManageGroup.submit();
}
}else
{
document.getElementById("GroupType_Alert").innerHTML="<font color='F43631'>组类性处必须选择</font>";
}
}
//Ajax
var request=true;
var result;
var ParamArray;
try
{
request=new XMLHttpRequest();
}catch(trymicrosoft)
{
try
{
request=new ActiveXObject("Msxml2.XMLHTTP")
}catch(othermicrosoft)
{
try
{
request=new ActiveXObject("Microsoft.XMLHTTP")
}catch(filed)
{
request=false;
}
}
}
if(!request) alert("Error initializing XMLHttpRequest!");
function getFormInfo(Obj)
{
var typeID=Obj.value;
if(isNaN(typeID))
{
document.getElementById("GroupIndexContent").innerHTML="";
return ;
}
var url="getUserGroup.asp?page=UserGroup&id="+typeID+"&r="+Math.random();//构造url
request.open("GET",url,true);//建立连接
request.onreadystatechange = getFormInfoResult;
request.send(null);//传送数据,因为数据通过url传递了,所以这里传递的是null
}
function getFormInfoResult()//当服务器响应的时候就使用这个方法
{
if(request.readyState ==4)//根据HTTP 就绪状态判断响应是否完成
{
if(request.status == 200)//判断请求是否成功
{
result=request.responseText;//获得响应的结果,也就是新的<select>
document.getElementById("GroupIndexContent").innerHTML="| 会员组:"+result;//将这个结果现实在客户端
}
}
}
function getGroupParam(Obj)
{
var GroupID=Obj.value;
if(!isNaN(GroupID))
{
var url="getUserGroupParam.asp?id="+GroupID+"&r="+Math.random();//构造url
request.open("GET",url,true);//建立连接
request.onreadystatechange = getGroupParamResult;
request.send(null);//传送数据,因为数据通过url传递了,所以这里传递的是null
}
}
//ajax end
function getGroupParamResult()//当服务器响应的时候就使用这个方法
{
if(request.readyState ==4)//根据HTTP 就绪状态判断响应是否完成
{
if(request.status == 200)//判断请求是否成功
{
result=request.responseText;//获得响应的结果,也就是新的<select>
//获取原有设置
ParamArray=result.split("|");
document.getElementById("GroupName").value=ParamArray[0];
document.getElementById("UpfileNum").value=ParamArray[1];
document.getElementById("UpfileSize").value=ParamArray[2];
document.getElementById("GroupDate").value=ParamArray[3];
document.getElementById("GroupPoint").value=ParamArray[4];
document.getElementById("GroupMoney").value=ParamArray[5];
if(ParamArray[6]==1)
{
document.ManageGroup.GroupType[0].checked=true;
}
else
{
document.ManageGroup.GroupType[1].checked=true;
}
document.getElementById("LimitInfoNum").value=ParamArray[7];
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -