📄 admin_hotellevel.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><%=EL_Channel.ChannelName%>等级管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<%
Call EL_Common.CheckChannel(EL_Channel.ChannelID, 2)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td class="top_25" align="center"><strong><%=EL_Channel.ChannelName%>等级管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：
	<a href="Admin_HotelLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>"><%=EL_Channel.ItemName%>等级管理首页</a> | 
	<a href="Admin_HotelLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Add">添加等级</a>	</td>
  </tr>
</table>
<br>
<%
Select Case Action
  Case "": Call ManageHotelLevel()
  Case "Add": Call AddHotelLevel()
  Case "SaveNewLevel": Call SaveHotelLevel(0)
  Case "Modify": Call ModifyHotelLevel()
  Case "SaveModify": Call SaveHotelLevel(1)
  Case "Delete": Call SaveHotelLevel(2)
  Case "Reset": Call SaveHotelLevel(3)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub CreateLevelJs()
  On Error Resume Next
  Dim JsContent
  JsContent = EL_Common.Data2Options("EL_HotelLevel", "LevelID", "LevelName", "", "ChannelID="& EL_Channel.ChannelID)
  JsContent = "document.write("""& JsContent &""");"
  Call EL_Common.CreateFile(JsContent, InstallDir & EL_Channel.ChannelDir &"/Js/HotelLevel.js", True)  
  EL_Common.ShowScriptError()
End Sub

Sub SaveHotelLevel(UpdateType)
  On Error Resume Next
  Dim LevelCmd
  Dim LevelID, LevelName, LevelPictrue
  
  LevelID = EL_Common.ELRequest("LevelID", 2)
  LevelName = EL_Common.ELRequest("LevelName", 1)
  LevelPictrue = EL_Common.ELRequest("LevelPictrue", 1)
  
  Call EL_Common.InitCommand(LevelCmd, "EL_SP_HotelLevel")
  With LevelCmd
    .Parameters.Append .CreateParameter("RETURN", 2, 4)
	.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	If UpdateType = 0 Then
	   .Parameters.Append .CreateParameter("@LevelID", 3, 2, 4)
	Else
	   .Parameters.Append .CreateParameter("@LevelID", 3, 1, 4, LevelID)
	End If
	.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
	.Parameters.Append .CreateParameter("@LevelName", 200, 1, 20, LevelName)
	.Parameters.Append .CreateParameter("@LevelPictrue", 200, 1, 255, LevelPictrue)
	.Execute()
  End With
  Select Case LevelCmd(0)
    Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set LevelCmd = Nothing : Exit Sub
	Case 41: EL_Common.ShowErrorMsg("指定等级不存在") : Set LevelCmd = Nothing : Exit Sub
  End Select
  Set LevelCmd = Nothing
  EL_Common.ShowScritError()
  Select Case UpdateType
    Case 0: EL_Common.ShowSuccessMsg("成功添加等级：<span class=bluetext>"& LevelName &"</span>") : Call CreateLevelJs()
	Case 1: EL_Common.ShowSuccessMsg("成功修改等级：<span class=bluetext>"& LevelName &"</span>") : Call CreateLevelJs()
	Case 2, 3: Response.Redirect ComeURL
  End Select  
End Sub

Sub ModifyHotelLevel()
On Error Resume Next
Dim LevelCmd, rsLevel
Dim LevelID
LevelID = EL_Common.ELRequest("LevelID", 2)
Call EL_Common.InitCommonCmd(LevelCmd, rsLevel, "EL_HotelLevel", "*", "ChannelID="& EL_Channel.ChannelID &" AND LevelID="& LevelID)
rsLevel.Close()
If LevelCmd(0) <> 1 Then
   Set rsLevel = Nothing
   Set LevelCmd = Nothing
   EL_Common.ShowErrorMsg("指定等级不存在")
   Exit Sub
End If
rsLevel.Open()
%>
<script language="javascript">
function Check(frm){
  if(frm.LevelName.value.trim()==""){
     alert("请输入等级名称");
	 frm.LevelName.focus();
	 return false;
  }
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_HotelLevel.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="22%" class="td_ItemName"><strong>等级名称</strong></td>
    <td width="78%" class="td_25"><input name="LevelName" type="text" id="LevelName" value="<%=EL_Common.ServerHTMLEncode(rsLevel("LevelName"))%>" size="30" maxlength="20"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>等级图片URL地址</strong></td>
    <td class="td_25"><input name="LevelPictrue" type="text" id="LevelPictrue" value="<%=EL_Common.ServerHTMLEncode(rsLevel("LevelPictrue"))%>" size="60"></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="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="LevelID" type="hidden" id="LevelID" value="<%=LevelID%>"></td>
  </tr>
</table>
</form>
<%
rsLevel.Close()
Set rsLevel = Nothing
Set LevelCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub ManageHotelLevel()
On Error Resume Next
Dim ManageCmd, rsManage, RowCount, i
Call EL_Common.InitCommonCmd(ManageCmd, rsManage, "EL_HotelLevel", "LevelID,LevelName,LevelPictrue,ItemCount", "ChannelID="& EL_Channel.ChannelID)
rsManage.Close()
RowCount = ManageCmd(0)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="7%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="23%" align="center" class="top_item"><strong>等级名称</strong></td>
    <td width="25%" align="center" class="top_item"><strong>等级图片</strong></td>
    <td width="14%" align="center" class="top_item"><strong>数据统计</strong></td>
    <td width="31%" align="center" class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td class=td_50 align=center colspan=5>没有任何等级数据</td></tr>"
	Else
	   rsManage.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
    <td align="center"><%=rsManage("LevelID")%></td>
    <td align="center">
	<%
	  If rsManage("LevelID")<5 Then
	     Response.Write "<span class=bluetext>"& rsManage("LevelName") &"</span>"
	  Else
	     Response.Write rsManage("LevelName")
	  End If
	%>	</td>
    <td align="center">
	<%
	  If Trim(rsManage("LevelPictrue"))="" Or IsNULL(rsManage("LevelPictrue")) Then
	     Response.Write "<span class=graytext>[无图片]</span>"
	  Else
	     Response.Write "<img src='"& rsManage("LevelPictrue") &"' border=0>"
	  End If
	%>	</td>
    <td align="center"><%="<span class=redtext>"& rsManage("ItemCount") &"</span> "& EL_Channel.ItemUnit & EL_Channel.ItemName%></td>
    <td align="center">
	<%
	  Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&LevelID="& rsManage("LevelID") &"'>修改</a> | "
	  If rsManage("LevelID")<5 Or rsManage("ItemCount")>0 Then
	     Response.Write "<span class=graytext>删除</span> | "
	  Else
	     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&LevelID="& rsManage("LevelID") &"'>删除</a> | "
	  End If
	  Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Reset&LevelID="& rsManage("LevelID") &"'>重计数据</a>"
	%>	</td>
  </tr>
  <%
         If i<RowCount Then rsManage.MoveNext
	   Next
	   rsManage.Close()
	End If
  %>
</table>
<br>
<hr size="1">
<span class="redText">注：名称为</span><span class="BlueText">蓝色</span><span class="redText">系统默认等级，不能被删除，数据统计大于0也不能删除</span>
<br>
<%
Set rsManage = Nothing
Set ManageCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub AddHotelLevel()
%>
<script language="javascript">
function Check(frm){
  if(frm.LevelName.value.trim()==""){
     alert("请输入等级名称");
	 frm.LevelName.focus();
	 return false;
  }
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_HotelLevel.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="22%" class="td_ItemName"><strong>等级名称</strong></td>
    <td width="78%" class="td_25"><input name="LevelName" type="text" id="LevelName" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>等级图片URL地址</strong></td>
    <td class="td_25"><input name="LevelPictrue" type="text" id="LevelPictrue" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加等级">
      <input type="button" name="Submit22" value="返回上页" onClick="history.back()">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveNewLevel"></td>
  </tr>
</table>
</form>
<%
End Sub
%>
</body>
</html>
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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