📄 admin_article.asp
字号:
End If
End Select
Call EL_Common.InitCommand(ArticleCmd, "EL_SP_Article")
With ArticleCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
If UpdateType = 0 Then
.Parameters.Append .CreateParameter("@ArticleID", 3, 2, 4)
Else
.Parameters.Append .CreateParameter("@ArticleID", 3, 1, 4, ArticleID)
End If
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
.Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, ClassID)
.Parameters.Append .CreateParameter("@Title", 200, 1, 255, Title)
.Parameters.Append .CreateParameter("@Keywords", 200, 1, 255, Keywords)
.Parameters.Append .CreateParameter("@Author", 200, 1, 50, Author)
.Parameters.Append .CreateParameter("@Copyfrom", 200, 1, 50, Copyfrom)
.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("@UpdateTime", 135, 1, 8, UpdateTime)
.Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
.Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
.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 ArticleCmd(0)
Case 0:
Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set ArticleCmd = Nothing : Exit Sub
Case 41: EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"ID："& ArticleID &" 不存在") : Set ArticleCmd = Nothing : Exit Sub
Case 42: EL_Common.ShowErrorMsg("不允许在有子"& EL_Channel.ClassItemName &"的"& EL_Channel.ClassItemName &"中添加"& EL_Channel.ItemName) : Set ArticleCmd = Nothing : Exit Sub
Case 43: EL_Common.ShowErrorMsg("未指定目标"& EL_Channel.ClassItemName) : Set ArticleCmd = Nothing : Exit Sub
End Select
Dim RetMessage
Select Case UpdateType
Case 0:
ArticleID = ArticleCmd(2)
RetMessage = "添加"& EL_Channel.ItemName &"成功<br>"& EL_Channel.ItemName &"标题："& EL_Common.HTMLEncode(Title)
RetMessage = RetMessage &"<br>所属"& EL_Channel.ClassItemName &"："& ArticleCmd(22)
RetMessage = RetMessage &"<p algin=center><a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【管理"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Article.asp?Action=Modify&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&ArticleID="& ArticleID &"'>【修改"& EL_Channel.ItemName &"内容】</a>"
RetMessage = RetMessage &"<a href='Admin_Article.asp?Action=Add&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【添加新的"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Article.asp?Action=Show&ChannelID="& EL_Channel.ChannelID &"&ArticleID="& ArticleID &"'>【浏览"& EL_Channel.ItemName &"内容】</p>"
Set ArticleCmd = Nothing
Case 1:
RetMessage = "修改"& EL_Channel.ItemName &"成功<br>"& EL_Channel.ItemName &"标题："& EL_Common.HTMLEncode(Title)
RetMessage = RetMessage &"<br>所属"& EL_Channel.ClassItemName &"："& ArticleCmd(22)
RetMessage = RetMessage &"<p algin=center><a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【管理"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Article.asp?Action=Modify&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&ArticleID="& ArticleID &"'>【修改"& EL_Channel.ItemName &"内容】</a>"
RetMessage = RetMessage &"<a href='Admin_Article.asp?Action=Add&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【添加新的"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Article.asp?Action=Show&ChannelID="& EL_Channel.ChannelID &"&ArticleID="& ArticleID &"'>【浏览"& EL_Channel.ItemName &"内容】</p>"
Set ArticleCmd = Nothing
Case 2, 3, 4, 5, 6, 7, 9, 10:
Set ArticleCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect ComeURL
Case 8:
Set ArticleCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID
Case Else:
Set ArticleCmd = 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 ArrArticleID
ArrArticleID = EL_Common.ELRequest("CheckObject", 1)
%>
<script language="javascript">
function Check(frm){
if(frm.SetupType[0].checked){
if(frm.ArrArticleID.value.trim() == ""){
alert("请输入指定<%=EL_Channel.ItemName%>ID");
frm.ArrArticleID.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;
}
if(frm.SetItems[2].checked){
if(frm.Keywords.value.trim() == ""){
alert("请输入关键字");
frm.Keywords.focus();
return false;
}
}
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_Article.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="ArrArticleID" type="text" id="ArrArticleID" size="31" value="<%=ArrArticleID%>"></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><%=EL_Channel.ItemName%>作者</strong></td>
<td width="77%" class="td_25"><input name="Author" type="text" id="Author" value="未知" size="30">
<span class="BlueText"><= 【</span><span class="GreenText" onClick="document.myform.Author.value=this.innerText" style="cursor:hand; ">佚名</span><span class="BlueText">】【</span><span class="GreenText" onClick="document.myform.Author.value=this.innerText" style="cursor:hand; ">未知</span><span class="BlueText">】【</span><span class="GreenText" onClick="document.myform.Author.value=this.innerText" style="cursor:hand; "><%=EL_Admin.AdminName%></span><span class="BlueText">】</span></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><%=EL_Channel.ItemName%>来源</strong></td>
<td class="td_25"><input name="Copyfrom" type="text" id="Copyfrom" value="未知" size="30">
<span class="BlueText"><= 【<span class="GreenText" onClick="document.myform.Copyfrom.value=this.innerText" style="cursor:hand; ">本站原创</span>】【<span class="GreenText" onClick="document.myform.Copyfrom.value=this.innerText" style="cursor:hand; ">未知</span>】</span></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>关键字</strong><br>多个关键用“|”分隔</td>
<td class="td_25"><input name="Keywords" type="text" id="Keywords" size="60"></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="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="4"></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="5"></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="6"></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="7"></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 ShowArticle()
'n Error Resume Next
Dim ShowCmd, rsShow
Dim ArticleID
ArticleID = EL_Common.ELRequest("ArticleID", 2)
Call EL_Common.InitCommonCmd(ShowCmd, rsShow, "EL_Article", "*", "ChannelID="& EL_Channel.ChannelID &" AND ArticleID="& ArticleID)
rsShow.Close()
If ShowCmd(0) <> 1 Then
Set rsShow = Nothing
Set ShowCmd = Nothing
EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
Exit Sub
End If
rsShow.Open()
CurrentPath = CurrentPath & EL_Common.GetParentPath(ClassURL, rsShow("ClassID")) &">> "& EL_Common.HTMLEncode(rsShow("Title"))
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<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"><%=EL_Common.HTMLEncode(rsShow("Title"))%></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -