⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_group.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
字号:
🔍 
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>会员组管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
   If EL_Admin.CheckAdminPurview(15, 3) = False Then
      EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
   End If
End If
Dim CurrentPath
CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>会员组管理</a> "
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong>会员组管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_Group.asp">会员组管理首页</a> | <a href="Admin_Group.asp?Action=Add">添加会员组</a></td>
  </tr>
</table>
<br>
<%
Dim ArrGroupType(2)
ArrGroupType(0) = "待验证会员"
ArrGroupType(1) = "待审批会员"
ArrGroupType(2) = "注册会员"

Select Case Action
   Case "": Call ManageGroup()
   Case "Add": Call AddGroup()
   Case "SaveGroup": Call SaveGroup(0)
   Case "Modify": Call ModifyGroup()
   Case "SaveModify": Call SaveGroup(1)
   Case "Delete": Call SaveGroup(2) 
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveGroup(UpdateType)
  On Error Resume Next
  Dim GroupCmd
  Dim GroupID, GroupName, Intro, GroupType, DiscountOfHotel, DiscountOfFlight, DiscountOfProduct, DiscountOfSight, DiscountOfCar, ArrDiscountOfBook
  
  GroupID = EL_Common.ELRequest("GroupID", 2)
  GroupName = EL_Common.ELRequest("GroupName", 1)
  Intro = EL_Common.ELRequest("Intro", 1)
  GroupType = EL_Common.ELRequest("GroupType", 2)
  DiscountOfHotel = EL_Common.ELRequest("DiscountOfHotel", 2)
  DiscountOfFlight = EL_Common.ELRequest("DiscountOfFlight", 2)
  DiscountOfProduct = EL_Common.ELRequest("DiscountOfProduct", 2)
  DiscountOfSight = EL_Common.ELRequest("DiscountOfSight", 2)
  DiscountOfCar = EL_Common.ELRequest("DiscountOfCar", 2)
  
  ArrDiscountOfBook = DiscountOfHotel &","& DiscountOfFlight &","& DiscountOfProduct &","& DiscountOfSight &","& DiscountOfCar
  
  Call EL_Common.InitCommand(GroupCmd, "EL_SP_Group")
  With GroupCmd
     .Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	 .Parameters.Append .CreateParameter("@GroupID", 3, 1, 4, GroupID)
	 .Parameters.Append .CreateParameter("@GroupName", 200, 1, 50, GroupName)
	 .Parameters.Append .CreateParameter("@Intro", 200, 1, 255, Intro)
	 .Parameters.Append .CreateParameter("@GroupType", 3, 1, 4, GroupType)
	 .Parameters.Append .CreateParameter("@ArrDiscountOfBook", 200, 1, 100, ArrDiscountOfBook)
	 .Execute()
  End With
  Set GroupCmd = Nothing
  EL_Common.ShowScriptError()
  If UpdateType = 0 Then
     EL_Common.ShowSuccessMsg("添加会员组成功！")
  ElseIf UpdateType = 1 Then
     EL_Common.ShowSuccessMsg("修改会员组成功！")
  Else
     Response.Redirect ComeURL
  End If  
End Sub

Sub ModifyGroup()
On Error Resume Next
Dim GroupCmd, rsGroup
Dim GroupID, ArrDiscountOfBook
GroupID = EL_Common.ELRequest("GroupID", 2)

Call EL_Common.InitCommonCmd(GroupCmd, rsGroup, "EL_Group", "*", "GroupID="& GroupID)
rsGroup.Close()
If GroupCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定会员组不存在")
   Set rsGroup = Nothing
   Set GroupCmd = Nothing
End If
rsGroup.Open()
ArrDiscountOfBook = rsGroup("ArrDiscountOfBook")
ArrDiscountOfBook =  Split(ArrDiscountOfBook, ",")
%>
<script language="javascript">
function Check(frm){
   if(frm.GroupName.value.trim()==""){
      alert("请输入会员组名");
	  frm.GroupName.focus();
	  return false;
   }
   if(frm.Intro.value.trim()==""){
      alert("请输入会员组简介");
	  frm.Intro.focus();
	  return false;
   }
   
   SubmitOnce(frm);
   return ;
}
</script>
<form name="myform" action="Admin_Group.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>修改会员组</strong></td>
  </tr>
  <tr>
    <td width="18%" class="td_ItemName"><strong>会员组名称</strong></td>
    <td width="82%" class="td_25"><input name="GroupName" type="text" id="GroupName" value="<%=rsGroup("GroupName")%>" size="50"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>会员组简介</strong></td>
    <td class="td_25"><textarea name="Intro" cols="60" rows="6" id="Intro"><%=rsGroup("Intro")%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>会员组类型</strong></td>
    <td class="td_25">
	<select name="GroupType" id="GroupType" <%If rsGroup("GroupID")<=3 Then Response.Write "disabled"%>>
      <option value="0" <%=EL_Common.SetObjectSelected(0, rsGroup("GroupType"))%>>待验证会员</option>
      <option value="1" <%=EL_Common.SetObjectSelected(1, rsGroup("GroupType"))%>>待审批会员</option>
      <option value="2" <%=EL_Common.SetObjectSelected(2, rsGroup("GroupType"))%>>注册会员</option>
    </select>
    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>预订享受折扣设置</strong><br>
      “0”为不享受折扣</td>
    <td class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
      <tr>
        <td width="16%" nowrap class="td_ItemName">1. 酒店客房预订</td>
        <td width="84%" class="td_25"><input name="DiscountOfHotel" type="text" id="DiscountOfHotel" value="<%=ArrDiscountOfBook(0)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">2. 航班机票预订</td>
        <td class="td_25"><input name="DiscountOfFlight" type="text" id="DiscountOfFlight" value="<%=ArrDiscountOfBook(1)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">3. 度假产品预订</td>
        <td class="td_25"><input name="DiscountOfProduct" type="text" id="DiscountOfProduct" value="<%=ArrDiscountOfBook(2)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">4. 景点门票预订</td>
        <td class="td_25"><input name="DiscountOfSight" type="text" id="DiscountOfSight" value="<%=ArrDiscountOfBook(3)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">5. 汽车租用预订</td>
        <td class="td_25"><input name="DiscountOfCar" type="text" id="DiscountOfCar" value="<%=ArrDiscountOfBook(4)%>" size="10">
          折</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit3" value="保存修改">
        <input type="button" name="Submit22" value=" 取 消 " onClick="history.back()">
        <input name="Action" type="hidden" id="Action" value="SaveModify">
    <input name="GroupID" type="hidden" id="GroupID" value="<%=rsGroup("GroupID")%>"></td>
  </tr>
</table>
</form>
<%
rsGroup.Close()
Set rsGroup = Nothing
Set GroupCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub ManageGroup()
On Error Resume Next
Dim GroupCmd, rsGroup, i, RowCount

Call EL_Common.InitCommonCmd(GroupCmd, rsGroup, "EL_Group", "*", "1=1")
rsGroup.Close()
RowCount = GroupCmd(0)
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="5%" align="center" nowrap class="top_item"><strong>ID</strong></td>
    <td width="16%" align="center" nowrap class="top_item"><strong>会员组名</strong></td>
    <td width="39%" align="center" nowrap class="top_item"><strong>会员组简介</strong></td>
    <td width="13%" align="center" nowrap class="top_item"><strong>组类型</strong></td>
    <td width="6%" align="center" nowrap class="top_item"><strong>会员数</strong></td>
    <td width="21%" align="center" nowrap class="top_item"><strong>操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td class='td_50' colspan=6 align=center>没有任何会员组</td></tr>"
	Else
	   rsGroup.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
    <td align="center"><%=rsGroup("GroupID")%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsGroup("GroupName"))%></td>
    <td style="padding-left:5px;"><%=EL_Common.ServerHTMLEncode(rsGroup("Intro"))%></td>
    <td align="center"><%=ArrGroupType(rsGroup("GroupType"))%></td>
    <td align="center" class="redText"><%=rsGroup("UserCount")%></td>
    <td align="center" nowrap>
	<a href="Admin_Group.asp?Action=Modify&GroupID=<%=rsGroup("GroupID")%>">修改</a> | 
	<%
	  If rsGroup("GroupID")<=3 Then
	     Response.Write "<span class=graytext>删除</span> | "
	  Else
	%>
	<a href="Admin_Group.asp?Action=Delete&GroupID=<%=rsGroup("GroupID")%>" onClick="return confirm('本次删除将删除掉该组下所有的会员，不可恢复，确认要删除该会员组吗？')">删除</a> | 
	<% End If%>
	<a href="Admin_User.asp?GroupID=<%=rsGroup("GroupID")%>">列出该组会员</a>	</td>
  </tr>
  <%
          If i<RowCount Then rsGroup.MoveNext
	   Next
	   rsGroup.Close()
	End If
  %>
</table>
<%
Set rsGroup = Nothing
Set GroupCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub AddGroup()
On Error Resume Next
%>
<script language="javascript">
function Check(frm){
   if(frm.GroupName.value.trim()==""){
      alert("请输入会员组名");
	  frm.GroupName.focus();
	  return false;
   }
   if(frm.Intro.value.trim()==""){
      alert("请输入会员组简介");
	  frm.Intro.focus();
	  return false;
   }
   
   SubmitOnce(frm);
   return ;
}
</script>
<form name="myform" action="Admin_Group.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>添加会员组</strong></td>
  </tr>
  <tr>
    <td width="18%" class="td_ItemName"><strong>会员组名称</strong></td>
    <td width="82%" class="td_25"><input name="GroupName" type="text" id="GroupName" size="50"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>会员组简介</strong></td>
    <td class="td_25"><textarea name="Intro" cols="60" rows="6" id="Intro"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>会员组类型</strong></td>
    <td class="td_25"><select name="GroupType" id="GroupType">
      <option value="0">待验证会员</option>
      <option value="1">待审批会员</option>
      <option value="2" selected>注册会员</option>
    </select>
    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>预订享受折扣设置</strong><br>
      “0”为不享受折扣</td>
    <td class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
      <tr>
        <td width="16%" nowrap class="td_ItemName">1. 酒店客房预订</td>
        <td width="84%" class="td_25"><input name="DiscountOfHotel" type="text" id="DiscountOfHotel" value="0" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">2. 航班机票预订</td>
        <td class="td_25"><input name="DiscountOfFlight" type="text" id="DiscountOfFlight" value="0" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">3. 度假产品预订</td>
        <td class="td_25"><input name="DiscountOfProduct" type="text" id="DiscountOfProduct" value="0" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">4. 景点门票预订</td>
        <td class="td_25"><input name="DiscountOfSight" type="text" id="DiscountOfSight" value="0" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">5. 汽车租用预订</td>
        <td class="td_25"><input name="DiscountOfCar" type="text" id="DiscountOfCar" value="0" size="10">
          折</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加会员组">
      <input type="button" name="Submit2" value=" 取 消 " onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveGroup"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>

⌨️ 快捷键说明

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