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

📄 admin_sight.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
        <td align="right" nowrap class="td_ItemName">开放时间：</td>
        <td class="td_25"><%=EL_Common.ServerHTMLEncode(rsSight("OpenTime"))%></td>
        <td rowspan="4" align="center" class="td_25"><fieldset style="width:100%; height:90%; text-align:center; vertical-align:middle;">
          <img src="<%=EL_Common.PictrueURL(rsSight("DefaultPictrue"), EL_Channel.FilePath)%>" width="140" height="100" border="0" onClick="window.open(this.src)" style="cursor:hand; padding:5px;">
        </fieldset></td>
      </tr>
      <tr>
        <td align="right" nowrap class="td_ItemName">地理位置：</td>
        <td colspan="3" class="td_25"><%=EL_Common.ServerHTMLEncode(rsSight("Address"))%></td>
      </tr>
      <tr>
        <td align="right" nowrap class="td_ItemName">周围景观：</td>
        <td colspan="3" class="td_25"><%
		  Dim TempAround, arr, TempA
		  TempAround = rsSight("AroundHotel")
		  If TempAround <> "" And NOT IsNULL(TempAround) Then
		     arr = Split(TempAround, "$")
			 For i = 0 To Ubound(arr)
				TempA = Split(arr(i), "|")
				Response.Write TempA(1) &" &nbsp;&nbsp; "
			 Next
			 Response.Write "<br>"
		  End If
		  
		  TempAround = rsSight("AroundSight")
		  If TempAround <> "" And NOT IsNULL(TempAround) Then
		     arr = Split(TempAround, "$")
			 For i = 0 To Ubound(arr)
				TempA = Split(arr(i), "|")
				Response.Write TempA(1)
			 Next
		  End If
		%>        </td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_25" style="padding:10px;"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#99CCFF">
      <tr>
        <td width="11%" class="td_ItemName">旅游提示：</td>
        <td width="89%" class="td_25" style="padding:5px;"><%=rsSight("TravelHint")%></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_25"><table width="100%" border="0" cellspacing="10" cellpadding="0">
      <tr>
        <td><%=rsSight("Content")%></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="td_50"><%=EL_Common.ShowNearInfo("EL_Sight", "SightID", "SightName", "ChannelID="& EL_Channel.ChannelID &" AND ClassID="& rsSight("ClassID"), "SightID", rsSight("SightID"), EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Show&SightID=")%></td>
  </tr>
  <tr>
    <td align="right" 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(rsSight("ClassID"), 2)=True Or rsSight("Inputer")=EL_Admin.AdminName Then
	     If rsSight("Deleted") = False Then
	         Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Modify&SightID="& rsSight("SightID") &"'>修改</a> | "
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&SightID="& rsSight("SightID") &"' onClick=""return confirm('本次操作将该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"删除至回收站，以后可以从回收站中恢复\n确认要执行删除吗？')"">删除</a> | "
		     If rsSight("OnTop") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&SightID="& rsSight("SightID") &"'>解固</a> | "
		     Else
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetOnTop&SightID="& rsSight("SightID") &"'>固顶</a> | "
		     End If
		     If rsSight("Commended") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&SightID="& rsSight("SightID") &"'>取消推荐</a> | "
		     Else
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetCommended&SightID="& rsSight("SightID") &"'>设为推荐</a> | "
		     End If
			 If rsSight("Passed") = True Then
		        Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&SightID="& rsSight("SightID") &"'>取消发布</a>"
		     Else
			    Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=SetPassed&SightID="& rsSight("SightID") &"'>立即发布</a>"
			 End If	
		 Else
		     Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=DeleteTrue&SightID="& rsSight("SightID") &"' onClick=""return confirm('本次操作将彻底删除该"& EL_Channel.ItemUnit & EL_Channel.ItemName &"，并不能恢复\n确认要执行彻底删除吗？')"">彻底删除</a> | "
			 Response.Write "<a href='"& EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&Action=Restore&SightID="& rsSight("SightID") &"'>还原</a>"
		 End If			      
	  Else
	    If rsSight("Deleted") = False Then
	         Response.Write "<span class=graytext>修改</span> | "
		     Response.Write "<span class=graytext>删除</span> | "
		     If rsSight("OnTop") = True Then
		        Response.Write "<span class=graytext>解固</span> | "
		     Else
		        Response.Write "<span class=graytext>固顶</span> | "
		     End If
		     If rsSight("Commended") = True Then
		        Response.Write "<span class=graytext>取消推荐</span> | "
		     Else
		        Response.Write "<span class=graytext>设为推荐</span> | "
		     End If
			 If rsSight("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(rsSight("OnTop").value, "<span class=bluetext title='固顶"& EL_Channel.ItemName &"'>顶</span>", "<span class=graytext>顶</span>") &"&nbsp;&nbsp;"
	  Response.Write EL_Common.ShowBoolean(rsSight("Commended").value, "<span class=greentext title='推荐"& EL_Channel.ItemName &"'>荐</span>", "<span class=graytext>荐</span>") &"&nbsp;&nbsp;"
	  If rsSight("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
Call EL_Common.InitCommonCmd(CommentCmd, rsComment, "EL_Comment", "Top 10 CommentID,Content,UserName,Content,UpdateTime", "ChannelID="& EL_Channel.ChannelID &" And InfoID="& SightID)
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=<%=SightID%>" 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=<%=SightID%>">回复</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
rsSight.Close()
Set rsSight = Nothing
Set SightCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub ModifySight()
On Error Resume Next
Dim ModifyCmd, rsModify
Dim SightID
SightID = EL_Common.ELRequest("SightID", 2)
Call EL_Common.InitCommonCmd(ModifyCmd, rsModify, "EL_Sight", "*", "ChannelID="& EL_Channel.ChannelID &" AND SightID="& SightID)
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 SelectItem(DialogType){
  var s,objectName;
  switch(DialogType){
     case "Hotel":
	   s = getObject("AroundHotel").value;
	   objectName = "HotelList";
	   break;
	 case "Sight":
	   s = getObject("AroundSight").value;
	   objectName = "SightList"
	   break;
	 default: return;
  }
  var arr=showModalDialog('Admin_ItemList.asp?DialogType='+ DialogType +'&s='+ s, '', 'dialogWidth:700px; dialogHeight:500px; help: no; scroll: yes; status: no');
  if(arr!=null){
	AddList(objectName, arr);
  }
}
function AddList(objName, Info){  
  
  if(Info.trim()=="") return;
  var tObj = getObject(objName);
  var arr = Info.split("$");
  for(var i=0;i<arr.length;i++){
     var tempA = arr[i].split("|");
	 if(!CheckLister(tObj.targetobject, tempA[0])){
        tObj.innerHTML += "<div id=\""+ objName +"_"+ tempA[0] +"\" class=\"itemlister\" onmouseover=\"this.className='itemlisterover'\" onmouseout=\"this.className='itemlister'\"><div class=\"leftdiv\">"+ tempA[1] +"</div> <div class=\"rightdiv\" style=\"color:#ff6600;text-decoration:underline;cursor:hand;\" onclick=\"DeleteList('"+ objName +"','"+ tempA[0] +"')\">删除</div></div>";
		getObject(tObj.targetobject).value += (getObject(tObj.targetobject).value.trim()=="")?arr[i]:"$"+arr[i];
	 }
  }
}
function DeleteList(objName, id){
  var tObj = getObject(objName);
  var targetobject = tObj.targetobject
  var values = getObject(targetobject).value;
  getObject(objName +"_"+ id).outerHTML = "";
  var arr = values.split("$");
  values = "";
  for(var i=0;i<arr.length;i++){
	 if(arr[i].split("|")[0] != id){
	    values += (values=="")?arr[i]:"$"+ arr[i];
	 }
  }
  if(values == ""){
     tObj.outerHTML = "<div id=\""+ objName +"\" targetobject=\""+ targetobject +"\">";  
  }
  getObject(tObj.targetobject).value = values;
}
function CheckLister(targetObject, id){
   var to = getObject(targetObject);
   if(to.value.trim() == "") return false;
   var arr = to.value.split("$");
   for(var i=0;i<arr.length;i++){
      if(arr[i].split("|")[0] == id){
	      return true;
	  }
   }
12345

⌨️ 快捷键说明

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