📄 admin_car.asp
字号:
End If
End Select
Call EL_Common.InitCommand(CarCmd, "EL_SP_Car")
With CarCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
If UpdateType = 0 Then
.Parameters.Append .CreateParameter("@CarID", 3, 2, 4)
Else
.Parameters.Append .CreateParameter("@CarID", 3, 1, 4, CarID)
End If
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
.Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, ClassID)
.Parameters.Append .CreateParameter("@CarName", 200, 1, 255, CarName)
.Parameters.Append .CreateParameter("@Seat", 3, 1, 4, Seat)
.Parameters.Append .CreateParameter("@Foregift", 6, 1, 8, Foregift)
.Parameters.Append .CreateParameter("@PriceHour1", 6, 1, 8, PriceHour1)
.Parameters.Append .CreateParameter("@PriceHour2", 6, 1, 8, PriceHour2)
.Parameters.Append .CreateParameter("@PriceDay1", 6, 1, 8, PriceDay1)
.Parameters.Append .CreateParameter("@PriceDay2", 6, 1, 8, PriceDay2)
.Parameters.Append .CreateParameter("@PriceMonth1", 6, 1, 8, PriceMonth1)
.Parameters.Append .CreateParameter("@PriceMonth2", 6, 1, 8, PriceMonth2)
.Parameters.Append .CreateParameter("@IsDiscount", 3, 1, 4, IsDiscount)
.Parameters.Append .CreateParameter("@OverExpense", 200, 1, 100, OverExpense)
.Parameters.Append .CreateParameter("@Content", 203, 1, EL_Common.LenParameter(Content), Content)
.Parameters.Append .CreateParameter("@DefaultPictrue", 200, 1, 255, DefaultPictrue)
.Parameters.Append .CreateParameter("@Uploadfiles", 203, 1, EL_Common.LenParameter(Uploadfiles), Uploadfiles)
.Parameters.Append .CreateParameter("@Hits", 3, 1, 4, Hits)
.Parameters.Append .CreateParameter("@OnTop", 11, 1, 1, OnTop)
.Parameters.Append .CreateParameter("@Commended", 11, 1, 1, Commended)
.Parameters.Append .CreateParameter("@Passed", 11, 1, 1, Passed)
.Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
.Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
.Parameters.Append .CreateParameter("@UpdateTime", 135, 1, 8, UpdateTime)
.Parameters.Append .CreateParameter("@Inputer", 200, 1, 50, Inputer)
.Parameters.Append .CreateParameter("@Editor", 200, 1, 50, Editor)
.Parameters.Append .CreateParameter("@DefineField", 200, 1, 4000, DefineField)
.Parameters.Append .CreateParameter("@ClassName", 200, 2, 50)
.Execute()
End With
Select Case CarCmd(0)
Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set CarCmd = Nothing : Exit Sub
Case 41: EL_Common.ShowErrorMsg("指定"& EL_Channel.ClassItemName &"不存在") : Set CarCmd = Nothing : Exit Sub
Case 42: EL_Common.ShowErrorMsg("不允许在有子"& EL_Channel.ClassItemName &"的"& EL_Channel.ClassItemName &"中添加"& EL_Channel.ItemName) : Set CarCmd = Nothing : Exit Sub
Case 43: EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"ID："& CarID &" 不存在") : Set CarCmd = Nothing : Exit Sub
Case 44: EL_Common.ShowErrorMsg("未指定目标"& EL_Channel.ClassItemName) : Set CarCmd = Nothing : Exit Sub
End Select
Dim RetMessage
Select Case UpdateType
Case 0:
CarID = CarCmd(2)
RetMessage = "添加"& EL_Channel.ItemName &"成功<br>"& EL_Channel.ItemName &"车型："& EL_Common.HTMLEncode(CarName)
RetMessage = RetMessage &"<br>所属"& EL_Channel.ClassItemName &"："& CarCmd(29)
RetMessage = RetMessage &"<p algin=center><a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【管理"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='"& EL_CurrentScriptName &"?Action=Modify&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&CarID="& CarID &"'>【修改"& EL_Channel.ItemName &"内容】</a>"
RetMessage = RetMessage &"<a href='"& EL_CurrentScriptName &"?Action=Add&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【添加新的"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='"& EL_CurrentScriptName &"?Action=Show&ChannelID="& EL_Channel.ChannelID &"&CarID="& CarID &"'>【浏览"& EL_Channel.ItemName &"】</a></p>"
Set CarCmd = Nothing
Case 1:
RetMessage = "修改"& EL_Channel.ItemName &"成功<br>"& EL_Channel.ItemName &"车型："& EL_Common.HTMLEncode(CarName)
RetMessage = RetMessage &"<br>所属"& EL_Channel.ClassItemName &"："& CarCmd(29)
RetMessage = RetMessage &"<p algin=center><a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【管理"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='"& EL_CurrentScriptName &"?Action=Modify&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&CarID="& CarID &"'>【修改"& EL_Channel.ItemName &"内容】</a>"
RetMessage = RetMessage &"<a href='"& EL_CurrentScriptName &"?Action=Add&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【添加新的"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='"& EL_CurrentScriptName &"?Action=Show&ChannelID="& EL_Channel.ChannelID &"&CarID="& CarID &"'>【浏览"& EL_Channel.ItemName &"】</a></p>"
Set CarCmd = Nothing
Case 2, 3, 4, 5, 6, 7, 9, 10:
Set CarCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect ComeURL
Case 8:
Set CarCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID
Case Else:
Set CarCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID
End Select
EL_Common.ShowSuccessMsg(RetMessage)
EL_Common.ShowScriptError()
Response.Write "<script>scrollBy(0,document.body.scrollHeight)</script>"
End Sub
Sub BatchSetup()
On Error Resume Next
Dim ArrCarID
ArrCarID = EL_Common.ELRequest("CheckObject", 1)
%>
<script language="javascript">
function Check(frm){
if(frm.SetupType[0].checked){
if(frm.ArrCarID.value.trim() == ""){
alert("请输入指定<%=EL_Channel.ItemName%>ID");
frm.ArrCarID.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;
}
</script>
<form name="myform" action="Admin_Car.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="ArrCarID" type="text" id="ArrCarID" size="31" value="<%=ArrCarID%>"></td>
</tr>
<tr>
<td><input name="SetupType" type="radio" class="nomargin" value="1">
<strong>指定<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td><select name="ArrClassID" size="20" multiple id="ArrClassID" style="width:200px; height:200px;">
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")%>
</select>
</td>
</tr>
<tr>
<td>·按"Ctrl"键可多选</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="SetItems2" type="checkbox" class="nomargin" id="SetItems2" value="0"></td>
<td nowrap class="td_ItemName"><STRONG>押金</STRONG></td>
<td class="td_25"><INPUT name="Foregift" id="Foregift" 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="1"></td>
<td width="17%" nowrap class="td_ItemName"><STRONG>超费计算</STRONG></td>
<td width="77%" class="td_25"><INPUT name="OverExpense" id="OverExpense" value="0" size="45"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="2"></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="3"></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="4"></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="5"></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="6"></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 ShowCar()
On Error Resume Next
Dim CarCmd, rsCar, i
Dim CarID
CarID = EL_Common.ELRequest("CarID", 2)
Call EL_Common.InitCommonCmd(CarCmd, rsCar, "EL_Car", "*", "ChannelID="& EL_Channel.ChannelID &" AND CarID="& CarID)
rsCar.Close()
If CarCmd(0) <> 1 Then
Set rsCar = Nothing
Set CarCmd = Nothing
EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
Exit Sub
End If
rsCar.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"><%=EL_Common.HTMLEncode(rsCar("CarName"))%></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"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%">自驾：<strong class="YellowText"><%=rsCar("PriceHour1")%></strong> </td>
<td width="61%">带司机：<strong class="BlueText"><%=rsCar("PriceHour2")%></strong></td>
</tr>
</table></td>
<td width="10%" align="right" nowrap class="td_ItemName">座位：</td>
<td width="29%" class="td_25"><%=rsCar("Seat")%></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"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%">自驾：<strong class="YellowText"><%=rsCar("PriceDay1")%></strong> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -