?? admin_hotellevel.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">管理導(dǎo)航：
<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("頻道參數(shù)錯誤") : 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"> </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>數(shù)據(jù)統(tǒng)計</strong></td>
<td width="31%" align="center" class="top_item"><strong>相關(guān)操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class=td_50 align=center colspan=5>沒有任何等級數(shù)據(jù)</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") &"'>重計數(shù)據(jù)</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">藍(lán)色</span><span class="redText">系統(tǒng)默認(rèn)等級，不能被刪除，數(shù)據(jù)統(tǒng)計大于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"> </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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -