📄 admin_sight.asp
字号:
.Execute()
End With
Select Case SightCmd(0)
Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set SightCmd = Nothing : Exit Sub
Case 43: EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"ID："& SightID &" 不存在") : Set SightCmd = Nothing : Exit Sub
End Select
EL_Common.ShowScriptError()
Dim RetMessage
Select Case UpdateType
Case 0:
RetMessage = "修改"& EL_Channel.ItemName &"成功！<br>所属"& EL_Channel.ClassItemName &"："& Province &" "& City &" "& Area &"<br>"& EL_Channel.ItemName &"名称："& EL_Common.ServerHTMLEncode(SightName)
RetMessage = RetMessage &"<p>"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"'>"& EL_Channel.ItemName &"管理</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&SightID="& SightID &"'>修改"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Add&"& CityURL &"'>添加新"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&SightID="& SightID &"&Action=Show'>预览"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"</p>"
EL_Common.ShowSuccessMsg(RetMessage)
Case 1:
RetMessage = "修改"& EL_Channel.ItemName &"成功！<br>所属"& EL_Channel.ClassItemName &"："& Province &" "& City &" "& Area &"<br>"& EL_Channel.ItemName &"名称："& EL_Common.ServerHTMLEncode(SightName)
RetMessage = RetMessage &"<p>"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"'>"& EL_Channel.ItemName &"管理</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&SightID="& SightID &"'>修改"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Add&"& CityURL &"'>添加新"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&SightID="& SightID &"&Action=Show'>预览"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"</p>"
EL_Common.ShowSuccessMsg(RetMessage)
Case Else:
Set SightCmd = Nothing
If ComeURL = "" Then ComeURL = EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID
Response.Redirect ComeURL
End Select
Set SightCmd = Nothing
Response.Write "<script>scrollBy(0,document.body.scrollHeight)</script>"
End Sub
Sub BatchSetup()
On Error Resume Next
Dim ArrSightID
ArrSightID = EL_Common.ELRequest("CheckObject", 1)
%>
<script language="javascript">
function Check(frm){
if(frm.SetupType[0].checked){
if(frm.ArrSightID.value.trim() == ""){
alert("请输入指定<%=EL_Channel.ItemName%>ID");
frm.ArrSightID.focus();
return false;
}
}else{
if(frm.ArrClassID.value.trim() == "" || frm.ArrClassID.selectedIndex == -1){
alert("请选择指定<%=EL_Channel.ClassItemName%>");
frm.ArrClassID.focus();
return false;
}
}
var check = false;
for(var i=0;i<frm.SetItems.length;i++){
if(frm.SetItems[i].checked){
check = true;
break;
}
}
if(!check){
alert("请至少选择一个项目");
frm.SetItems[0].focus();
return false;
}
SubmitOnce(frm);
return;
}
function initOption(o, df, source, pname, pvalue){
var e = getObject(o);
var sindex = 0;
var name, spell;
clearOption(o);
for(var i=0;i<source.length;i++){
name = source[i].name
spell = source[i].spell;
if(pname == ""){
e.options.add(new Option(spell.substring(0, 1).toUpperCase() +" - "+ name, name));
sindex++;
}else{
if(source[i][pname]==pvalue){
e.options.add(new Option(spell.substring(0, 1).toUpperCase() +" - "+ name, name));
sindex++;
}
}
if(name==df) e.selectedIndex = sindex;
}
}
function onProvinceChange(dfCity){
var o = getObject("sProvince");
if(o.value!=""){
initOption("sCity", dfCity, City, "province", o.value);
}else{
clearOption("sCity");
}
onCityChange("");
getObject("Province").value = o.value;
}
function onCityChange(dfArea){
var o = getObject("sCity");
if(o.value!=""){
initOption("sArea", dfArea, Area, "city", o.value);
}else{
clearOption("sArea");
}
onAreaChange();
getObject("City").value = o.value;
}
function onAreaChange(){
var o = getObject("sArea");
getObject("Area").value = o.value;
}
function clearOption(o){
var e = getObject(o);
for(i=e.options.length-1;i>0;i--){
e.remove(i);
}
}
</script>
<form name="myform" action="Admin_Sight.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td class="top_25"><strong>批量<%=EL_Channel.ItemName%>设置</strong></td>
</tr>
<tr>
<td class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="25%" align="center" valign="top" class="td_ItemName"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td nowrap><input name="SetupType" type="radio" class="nomargin" value="0" checked>
<strong>指定<%=EL_Channel.ItemName%>ID</strong>(用英文","逗号分隔)</td>
</tr>
<tr>
<td><input name="ArrSightID" type="text" id="ArrSightID" size="31" value="<%=ArrSightID%>"></td>
</tr>
<tr>
<td><input name="SetupType" type="radio" class="nomargin" value="1">
<strong>指定<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td><input name="Province" type="text" id="Province" size="15">
<select name="sProvince" id="sProvince" onChange="onProvinceChange('')">
<option value="" selected>选择省份…</option>
</select>
<br>
<input name="City" type="text" id="City" size="15">
<select name="sCity" id="select4" onChange="onCityChange('')">
<option value="" selected>选择城市…</option>
</select>
<br>
<input name="Area" type="text" id="Area" size="15">
<select name="sArea" id="select5" onChange="onAreaChange()">
<option value="" selected>选择区域…</option>
</select>
<script>
initOption("sProvince", "", Province, "", "");
onProvinceChange("");
onCityChange("");
</script></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="75%" valign="top" class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="9"></td>
<td nowrap class="td_ItemName"><strong>门市价</strong></td>
<td class="td_25"><INPUT name="MarketPrice" id="MarketPrice" value="0" size="10"></td>
</tr>
<tr>
<td width="6%" align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="0"></td>
<td width="17%" nowrap class="td_ItemName"><STRONG>预订价格</STRONG></td>
<td width="77%" class="td_25"><INPUT name="BookPrice" id="BookPrice" value="0" size="10"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="3"></td>
<td nowrap class="td_ItemName"><STRONG>开放时间</STRONG></td>
<td class="td_25"><INPUT id="OpenTime" size="40" value="全天" name="OpenTime"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="4"></td>
<td nowrap class="td_ItemName"><strong><%=EL_Channel.ItemName%>属性</strong></td>
<td class="td_25"><input name="OnTop" type="checkbox" class="nomargin" id="OnTop" value="<%=EL_True%>">
固顶 </td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="5"></td>
<td nowrap class="td_ItemName"><strong><%=EL_Channel.ItemName%>属性</strong></td>
<td class="td_25"><input name="Commended" type="checkbox" class="nomargin" id="Commended" value="<%=EL_True%>">
推荐</td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="6"></td>
<td nowrap class="td_ItemName"><strong>初始点击数</strong></td>
<td class="td_25"><input name="Hits" type="text" id="Hits" value="0" size="5"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="7"></td>
<td nowrap class="td_ItemName"><strong>配色风格</strong></td>
<td class="td_25"><select name="SkinID" id="SkinID">
<option value="0">使用系统默认</option>
<%=EL_Common.SkinList(-1)%>
</select></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="8"></td>
<td nowrap class="td_ItemName"><strong>页面模板</strong></td>
<td class="td_25"><select name="TemplateID" id="TemplateID">
<option value="0">使用系统默认</option>
<%=EL_Common.TemplateList(EL_Channel.ChannelID, 3, -1)%>
</select></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" class="td_50"><input type="submit" name="Submit42" value="保存设置">
<input type="button" name="Submit5" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveBatch">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Sub ShowSight()
On Error Resume Next
Dim SightCmd, rsSight, i
Dim SightID
SightID = EL_Common.ELRequest("SightID", 2)
Call EL_Common.InitCommonCmd(SightCmd, rsSight, "EL_Sight", "*", "ChannelID="& EL_Channel.ChannelID &" AND SightID="& SightID)
rsSight.Close()
If SightCmd(0) <> 1 Then
Set rsSight = Nothing
Set SightCmd = Nothing
EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
Exit Sub
End If
rsSight.Open()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td class="top_25"><strong>浏览<%=EL_Channel.ItemName%></strong></td>
</tr>
<tr>
<td align="center" class="td_Title"><%=rsSight("SightName")%></td>
</tr>
<tr>
<td class="td_25"><table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="11%" align="right" nowrap class="td_ItemName">门市价格：</td>
<td width="27%" class="td_25"><strong class="YellowText"><%=rsSight("MarketPrice")%></strong></td>
<td width="10%" align="right" nowrap class="td_ItemName">预订统计：</td>
<td width="29%" class="td_25"><%=rsSight("BookCount")%></td>
<td width="23%" align="center" class="td_ItemName"><strong>默认缩略图</strong></td>
</tr>
<tr>
<td align="right" nowrap class="td_ItemName">预订价格：</td>
<td class="td_25"><strong class="bluetext"><%=rsSight("BookPrice")%></strong></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -