⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_article.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
      </tr>
      <tr>
        <td align="center">作者：<%=EL_Common.HTMLEncode(rsShow("Author"))%> &nbsp; 来源：<%=EL_Common.HTMLEncode(rsShow("Copyfrom"))%> &nbsp; 点击：<%=rsShow("Hits")%>次 &nbsp; 更新日期：<%=rsShow("UpdateTime")%></td>
      </tr>
      <tr>
        <td height="10"></td>
      </tr>
      <tr>
        <td>
		<%=rsShow("Content")%><br><br><br>
        <div class="rightdiv">录入者：<%=rsShow("Inputer")%> &nbsp;&nbsp; 编辑：<%=rsShow("Editor")%></div>		</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_50">	
	<%=EL_Common.ShowNearInfo("EL_Article", "ArticleID", "Title", "ChannelID="& EL_Channel.ChannelID &" AND ClassID="& rsShow("ClassID"), "ArticleID", rsShow("ArticleID"), EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Show&ArticleID=")%>
	</td>
  </tr>
  <tr>
    <td class="td_25"><div class="rightdiv"><a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>">&lt;&lt; 返回管理</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(rsShow("ClassID"), 2)=True Or rsShow("Inputer")=EL_Admin.AdminName Then
	     If rsShow("Deleted") = False Then
	         Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&ArticleID="& rsShow("ArticleID") &"'>修改</a> | "
		     Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&ArticleID="& rsShow("ArticleID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站，以后可以从回收站中恢复\n确认要执行删除吗？')"">删除</a> | "
		     If rsShow("OnTop") = True Then
		        Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&ArticleID="& rsShow("ArticleID") &"'>解固</a> | "
		     Else
		        Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&ArticleID="& rsShow("ArticleID") &"'>固顶</a> | "
		     End If
		     If rsShow("Commended") = True Then
		        Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&ArticleID="& rsShow("ArticleID") &"'>取消推荐</a> | "
		     Else
		        Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&ArticleID="& rsShow("ArticleID") &"'>设为推荐</a> | "
		     End If
			 If rsShow("Passed") = True Then
		        Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&ArticleID="& rsShow("ArticleID") &"&SetValue="& EL_False &"'>取消发布</a>"
		     Else
			    Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&ArticleID="& rsShow("ArticleID") &"&SetValue="& EL_True &"'>立即发布</a>"
			 End If	
		 Else
		     Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=DeleteTrue&ArticleID="& rsShow("ArticleID") &"' onClick=""return confirm('本次操作将彻底删除该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"，并不能恢复\n确认要执行彻底删除吗？')"">彻底删除</a> | "
			 Response.Write "<a href='Admin_Article.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Restore&ArticleID="& rsShow("ArticleID") &"'>还原</a>"
		 End If			      
	  Else
	    If rsShow("Deleted") = False Then
	         Response.Write "<span class=graytext>修改</span> | "
		     Response.Write "<span class=graytext>删除</span> | "
		     If rsShow("OnTop") = True Then
		        Response.Write "<span class=graytext>解固</span> | "
		     Else
		        Response.Write "<span class=graytext>固顶</span> | "
		     End If
		     If rsShow("Commended") = True Then
		        Response.Write "<span class=graytext>取消推荐</span> | "
		     Else
		        Response.Write "<span class=graytext>设为推荐</span> | "
		     End If
			 If rsShow("Passed") = True Then
		        Response.Write "<span class=graytext>取消发布</span>"
		     Else
			    Response.Write "<span class=graytext>立即发布</span>"
			 End If
		  Else
		     Response.Write "<span class=graytext>彻底删除</span> | "
			 Response.Write "<span class=graytext>还原</span>"
		  End If
	  End If
	%>
    </div>
    <div class="leftdiv">状态：
    <%
	  Response.Write EL_Common.ShowBoolean(rsShow("OnTop").value, "<span class=bluetext title='固顶"& EL_Channel.ItemName &"'>顶</span>", "<span class=graytext>顶</span>") &"&nbsp;&nbsp;"
	  Response.Write EL_Common.ShowBoolean(rsShow("Commended").value, "<span class=greentext title='推荐"& EL_Channel.ItemName &"'>荐</span>", "<span class=graytext>荐</span>") &"&nbsp;&nbsp;"
	  If rsShow("Passed") Then
	     Response.Write "<span class=greentext>已发布</span> &nbsp;"
	  Else
	     Response.Write "<span class=redtext>未发布</span> &nbsp;"
	  End If
	%>
    </div></td>
  </tr>
</table>
<br>
<%
Dim CommentCmd, rsComment, RowCount, i
Call EL_Common.InitCommonCmd(CommentCmd, rsComment, "EL_Comment", "Top 10 CommentID,Content,UserName,Content,UpdateTime", "ChannelID="& EL_Channel.ChannelID &" And InfoID="& ArticleID)
rsComment.Close()
RowCount = CommentCmd(0)
If RowCount>0 Then
rsComment.Open()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="94%"><strong>·最近10条评论：</strong></td>
    <td width="6%" nowrap><a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=ShowAll&InfoID=<%=ArticleID%>" style="color:blue;">查看所有评论</a></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="5%" align="center" class="top_item"><strong>ID</strong></td>
    <td width="50%" align="center" class="top_item"><strong>评论内容</strong></td>
    <td width="12%" align="center" class="top_item"><strong>评论人</strong></td>
    <td width="17%" align="center" class="top_item"><strong>评论时间</strong></td>
    <td width="16%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%
   For i = 1 To RowCount
  %>
  <tr class='td_25' onMouseOut=this.className='td_25' onMouseOver=this.className='MouseOver_25'>
    <td align="center"><%=rsComment("CommentID")%></td>
    <td style="padding-left:5px;" title="<%=EL_Common.ServerHTMLEncode(rsComment("Content"))%>"><%=EL_Common.GetTopic(rsComment("Content"), 60)%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsComment("UserName"))%></td>
    <td align="center"><%=rsComment("UpdateTime")%></td>
    <td align="center" nowrap><a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Reply&InfoID=<%=ArticleID%>">回复</a> | <a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Modify&CommentID=<%=rsComment("CommentID")%>">修改</a> | <a href="Admin_Comment.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Delete&CommentID=<%=rsComment("CommentID")%>">删除</a></td>
  </tr>
  <%
     If i<RowCount Then rsComment.MoveNext
   Next
  %>
</table>
<%
rsComment.Close()
End If
Set rsComment = Nothing
Set CommentCmd = Nothing
rsShow.Close()
Set rsShow = Nothing
Set ShowCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ModifyArticle()
On Error Resume Next
Dim ModifyCmd, rsModify
Dim ArticleID
ArticleID = EL_Common.ELRequest("ArticleID", 2)
Call EL_Common.InitCommonCmd(ModifyCmd, rsModify, "EL_Article", "*", "ChannelID="& EL_Channel.ChannelID &" AND ArticleID="& ArticleID)
rsModify.Close()
If ModifyCmd(0) <> 1 Then
   Set rsModify = Nothing
   Set ModifyCmd = Nothing
   EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
   Exit Sub
End If
rsModify.Open()
If rsModify("Deleted") = True Then
   rsModify.Close()
   Set rsModify = Nothing
   Set ModifyCmd = Nothing
   EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"已被删除，请从回收站恢复后再做修改")
   Exit Sub
End If

%>
<script language="javascript">
function AddItem(strFileName){
  var arrName = strFileName.split('.');
  var FileExt = arrName[1];
  if (FileExt == 'gif' || FileExt == 'jpg' || FileExt == 'jpeg' || FileExt == 'jpe' || FileExt == 'bmp' || FileExt == 'png'){
     document.all.PictruePreview.src = '<%=EL_Channel.FilePath%>'+strFileName;
     document.myform.DefaultPictrue.value = strFileName;
	 document.myform.PictrueList.options[document.myform.PictrueList.length] = new Option(strFileName, strFileName);
     document.myform.PictrueList.selectedIndex += 1;
  }
  
  if(document.myform.Uploadfiles.value.trim() == ''){
    document.myform.Uploadfiles.value = strFileName;
  }else{
    document.myform.Uploadfiles.value += '|'+ strFileName;
  }
}

function Check(frm){
  var CurrentMode = Editor.CurrentMode;
  if (CurrentMode == 0){
    frm.Content.value = Editor.HtmlEdit.document.body.innerHTML; 
  }else if(CurrentMode==1){
    frm.Content.value = Editor.HtmlEdit.document.body.innerText;
  }else{
    alert('<%=EL_Channel.ItemName%>内容处于预览状态不能保存');
    return false;
  }
  
  if(frm.ClassID.value.trim()=="" || frm.ClassID.selectedIndex == -1){
    alert("请选择所属<%=EL_Channel.ClassItemName%>");
	frm.ClassID.focus();
	return false;
  }
  if(frm.Title.value.trim()==''){
    alert('请输入<%=EL_Channel.ItemName%>标题');
	frm.Title.focus();
	return false;
  }else if(frm.Title.value.length>255){
    alert('<%=EL_Channel.ItemName%>标题太长，最多不能超过255个字');
	frm.Title.focus();
	return false;
  }
  if(frm.Keywords.value.trim()==''){
    alert('请输入<%=EL_Channel.ItemName%>关键字');
	frm.Keywords.focus();
	return false;
  }else if(frm.Keywords.value.length>255){
    alert('<%=EL_Channel.ItemName%>关键字太多，最多不能超过255个字');
	frm.Keywords.focus();
	return false;
  }
  if(frm.Content.value.trim()==''){
    alert('请输入<%=EL_Channel.ItemName%>内容');
	Editor.HtmlEdit.focus();
	return false;
  }
  
  <%=EL_Common.ShowDefinedField_Js(EL_Channel.ChannelID, "frm")%>
  
  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 colspan="4" class="top_25"><strong>修改<%=EL_Channel.ItemName%></strong></td>
  </tr>
  <tr>
    <td width="18%" class="td_ItemName"><strong>所属<%=EL_Channel.ClassItemName%></strong></td>
    <td colspan="3" class="td_25"><select name="ClassID" id="ClassID">
      <%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, rsModify("ClassID"), "")%>
    </select>
	<%If EL_Admin.Purview = 3 Then Response.Write "<span class=redtext>注：您只能在<span class=greentext>绿色</span>的"& EL_Channel.ClassItemName &"中操作</span>"%>
	</td>
  </tr>
  <tr>
    <td class="td_ItemName" ><strong><%=EL_Channel.ItemName%>标题</strong></td>
    <td colspan="3" class="td_25"><input name="Title" type="text" class="RulerInput" id="Title" value="<%=EL_Common.HTMLEncode(rsModify("Title"))%>" size="80"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>关键字</strong><br>
      多个关键用“|”分隔</td>
    <td colspan="3" class="td_25"><input name="Keywords" type="text" id="Keywords" value="<%=EL_Common.HTMLEncode(rsModify("Keywords"))%>" size="60"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>作者</strong></td>
    <td colspan="3" class="td_25"><input name="Author" type="text" id="Author" value="<%=EL_Common.HTMLEncode(rsModify("Author"))%>" size="30">
      <span class="BlueText">&lt;= 【</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 class="td_ItemName"><strong><%=EL_Channel.ItemName%>来源</strong></td>
    <td colspan="3" class="td_25"><input name="Copyfrom" type="text" id="Copyfrom" value="<%=EL_Common.HTMLEncode(rsModify("Copyfrom"))%>" size="30">
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -