📄 admin_shop.asp
字号:
Case 43: EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"ID："& ProductID &" 不存在") : Set ProductCmd = Nothing : Exit Sub
Case 44: EL_Common.ShowErrorMsg("未指定目标"& EL_Channel.ClassItemName) : Set ProductCmd = Nothing : Exit Sub
End Select
Select Case UpdateType
Case 0:
ProductID = ProductCmd(2)
RetMessage = "添加"& EL_Channel.ItemName &"成功！<br>"& EL_Channel.ItemName &"名称："& EL_Common.ServerHTMLEncode(ProductName)
RetMessage = RetMessage &"<p>"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>"& EL_Channel.ItemName &"管理</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&Action=Add'>添加"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ProductID="& ProductID &"&Action=Show'>预览"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"</p>"
Set ProductCmd = Nothing
Case 1:
RetMessage = "修改"& EL_Channel.ItemName &"成功！<br>"& EL_Channel.ItemName &"名称："& EL_Common.ServerHTMLEncode(ProductName)
RetMessage = RetMessage &"<p>"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>"& EL_Channel.ItemName &"管理</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&Action=Add'>添加"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"【<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ProductID="& ProductID &"&Action=Show'>预览"& EL_Channel.ItemName &"</a>】"
RetMessage = RetMessage &"</p>"
Set ProductCmd = Nothing
Case 2, 3, 4, 5, 6, 7, 9, 10:
Set ProductCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect ComeURL
Case 8:
Set ProductCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID
Case Else:
Set ProductCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID
End Select
EL_Common.ShowSuccessMsg(RetMessage)
EL_Common.ShowScriptError()
End Sub
Sub BatchSetup()
On Error Resume Next
Dim ArrProductID
ArrProductID = EL_Common.ELRequest("CheckObject", 1)
%>
<script language="javascript">
function Check(frm){
if(frm.SetupType[0].checked){
if(frm.ArrProductID.value.trim() == ""){
alert("请输入指定<%=EL_Channel.ItemName%>ID");
frm.ArrProductID.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_Shop.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="100%" class="top_25"><strong>批量<%=EL_Channel.ItemName%>设置</strong></td>
</tr>
<tr>
<td class="td_50"><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="ArrProductID" type="text" id="ArrProductID" size="31" value="<%=ArrProductID%>"></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 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 id="Points" size="10" value="0" name="Points"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="1"></td>
<td nowrap class="td_ItemName"><STRONG>库存量</STRONG></td>
<td class="td_25"><INPUT id="Num" size="10" value="0" name="Num"></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="Submit4" 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 ShowProduct()
On Error Resume Next
Dim ProductCmd, rsProduct
Dim ProductID
ProductID = EL_Common.ELRequest("ProductID", 2)
Call EL_Common.InitCommonCmd(ProductCmd, rsProduct, "EL_Shop", "*", "ChannelID="& EL_Channel.ChannelID &" AND ProductID="& ProductID)
rsProduct.Close()
If ProductCmd(0) <> 1 Then
Set rsProduct = Nothing
Set ProductCmd = Nothing
EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
Exit Sub
End If
rsProduct.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 class="td_Content"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td align="center" class="td_Title"><%=rsProduct("ProductName")%></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="23%" rowspan="3">
<fieldset style="width:100%; height:90%; text-align:center; vertical-align:middle;">
<img src="<%=EL_Common.PictrueURL(rsProduct("DefaultPictrue"), EL_Channel.FilePath)%>" width="140" height="100" border="0" onClick="window.open(this.src)" style="cursor:hand; padding:5px;">
</fieldset> </td>
<td width="77%" class="item_25">积 分：<span class="YellowText"><%=rsProduct("Points")%></span></td>
</tr>
<tr>
<td class="item_25">库 存 量：<span class="bluetext"><%=rsProduct("Num")%></span></td>
</tr>
<tr>
<td class="item_25">更新日期：<%=rsProduct("UpdateTime")%></td>
</tr>
</table></td>
</tr>
<tr>
<td><%=rsProduct("Content")%><br>
<br>
<br>
<div class="rightdiv">录入者：<%=rsProduct("Inputer")%> 编辑：<%=rsProduct("Editor")%></div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="td_50"><%=EL_Common.ShowNearInfo("EL_Shop", "ProductID", "ProductName", "ChannelID="& EL_Channel.ChannelID &" AND ClassID="& rsProduct("ClassID"), "ProductID", rsProduct("ProductID"), EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Show&ProductID=")%></td>
</tr>
<tr>
<td class="td_25"><div class="rightdiv"><a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>"><< 返回管理</a> | <a href="#">返回顶部</a></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td class="td_ItemName"><div class="rightdiv">相关操作：
<%
If EL_Admin.Purview = 1 Or EL_Admin.Purview = 2 Or EL_Admin.CheckAdminPurview(rsProduct("ClassID"), 2)=True Or rsProduct("Inputer")=EL_Admin.AdminName Then
If rsProduct("Deleted") = False Then
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&ProductID="& rsProduct("ProductID") &"'>修改</a> | "
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&ProductID="& rsProduct("ProductID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站，以后可以从回收站中恢复\n确认要执行删除吗？')"">删除</a> | "
If rsProduct("OnTop") = True Then
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&ProductID="& rsProduct("ProductID") &"'>解固</a> | "
Else
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&ProductID="& rsProduct("ProductID") &"'>固顶</a> | "
End If
If rsProduct("Commended") = True Then
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&ProductID="& rsProduct("ProductID") &"'>取消推荐</a> | "
Else
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&ProductID="& rsProduct("ProductID") &"'>设为推荐</a> | "
End If
If rsProduct("Passed") = True Then
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&ProductID="& rsProduct("ProductID") &"&SetValue="& EL_False &"'>取消发布</a>"
Else
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&ProductID="& rsProduct("ProductID") &"&SetValue="& EL_True &"'>立即发布</a>"
End If
Else
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=DeleteTrue&ProductID="& rsProduct("ProductID") &"' onClick=""return confirm('本次操作将彻底删除该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"，并不能恢复\n确认要执行彻底删除吗？')"">彻底删除</a> | "
Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Restore&ProductID="& rsProduct("ProductID") &"'>还原</a>"
End If
Else
If rsProduct("Deleted") = False Then
Response.Write "<span class=graytext>修改</span> | "
Response.Write "<span class=graytext>删除</span> | "
If rsProduct("OnTop") = True Then
Response.Write "<span class=graytext>解固</span> | "
Else
Response.Write "<span class=graytext>固顶</span> | "
End If
If rsProduct("Commended") = True Then
Response.Write "<span class=graytext>取消推荐</span> | "
Else
Response.Write "<span class=graytext>设为推荐</span> | "
End If
If rsProduct("Passed") = True Then
Response.Write "<span class=graytext>取消发布</span>"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -