📄 admin_friendsite.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
%>
<script language="javascript">
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<script language="javascript">function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}

var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";

function Check(frm){
  SubmitOnce(frm);
  return true;
}

function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1个链接");
	 return false;
  }
  frm.action = JURL + "&Action=Delete";
  if(confirm("本次操作将彻底删除选定的链接，不可以恢复\n确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doCommend(type){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1个链接");
	 return false;
  }
  switch(type){
    case 1: 
	   frm.action = JURL + "&Action=SetCommend&SetValue=<%=EL_True%>";
	   if(confirm("确认要推荐选定的链接吗？")){
         frm.submit();
	     return;
       }
	   break;
	case 2:
	   frm.action = JURL + "&Action=SetCommend&SetValue=<%=EL_False%>";
	   if(confirm("确认要取消推荐选定的链接吗？")){
         frm.submit();
	     return;
       }
	   break;
	default: return;break;
  }  
  return false;
}
function doPassed(type){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1个链接");
	 return false;
  }
  switch(type){
    case 1: 
	   frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_True%>";
	   if(confirm("确认要通过审核选定的链接吗？")){
         frm.submit();
	     return;
       }
	   break;
	case 2:
	   frm.action = JURL + "&Action=SetPassed&SetValue=<%=EL_False%>";
	   if(confirm("确认要取消审核选定的链接吗？")){
         frm.submit();
	     return;
       }
	   break;
	default: return;break;
  }  
  return false;
}
</script>
<form name="myform" action="" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
    <td width="10%" align="center" class="top_item"><strong>链接类别</strong></td>
    <td width="22%" align="center" class="top_item"><strong>网站名称</strong></td>
    <td width="15%" align="center" class="top_item"><strong>网站LOGO</strong></td>
    <td width="14%" align="center" class="top_item"><strong>站长</strong></td>
    <td width="7%" align="center" class="top_item"><strong>状态</strong></td>
    <td width="5%" align="center" class="top_item"><strong>审核</strong></td>
    <td width="24%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td class=td_50 align=center colspan=8>没有任何友情链接数据</td></tr>"
   Else
      Dim i
	  rsFriendSite.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsFriendSite("SiteID")%>"></td>
    <td align="center">
	<%
	  If rsFriendSite("SiteLogo") = "" Or IsNULL(rsFriendSite("SiteLogo")) Then
	     Response.Write "文字链接"
	  Else
	     Response.Write "LOGO链接"
	  End If
	%>
	</td>
    <td align="center"><a href="<%=rsFriendSite("SiteURL")%>" target="_blank"><%=rsFriendSite("SiteName")%></a></td>
    <td align="center">
	<% If rsFriendSite("SiteLogo") <> "" Then %>
	<a href="<%=rsFriendSite("SiteURL")%>" target="_blank"><img src="<%=rsFriendSite("SiteLogo")%>" width="88" height="31" border="0" style="padding:2px;"></a>
	<% End If %>
	</td>
    <td align="center"><%=rsFriendSite("WebmasterName")%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsFriendSite("Commended").value, "<span class=greentext>推荐</span>", "")%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsFriendSite("Passed").value, "<strong class=greentext>√</strong>", "<strong class=redtext>×</strong>")%></td>
    <td align="center" nowrap>
	<a href="<%=EL_CurrentScriptName%>?Action=Modify&SiteID=<%=rsFriendSite("SiteID")%>">修改</a> | 
	<a href="<%=EL_CurrentScriptName%>?Action=Delete&SiteID=<%=rsFriendSite("SiteID")%>" onClick="return confirm('本次操作将彻底删除这个友情链接，不能恢复，确定要执行删除吗？')">删除</a> | 	
	<%
	  If rsFriendSite("Commended") Then
	     Response.Write "<a href='"& EL_CurrentScriptName &"?Action=SetCommend&SiteID="& rsFriendSite("SiteID") &"&SetValue="& EL_False &"'>取消推荐</a> | "
	  Else
	     Response.Write "<a href='"& EL_CurrentScriptName &"?Action=SetCommend&SiteID="& rsFriendSite("SiteID") &"&SetValue="& EL_True &"'>设为推荐</a> | "
	  End If
	  
	  If rsFriendSite("Passed") Then
	     Response.Write "<a href='"& EL_CurrentScriptName &"?Action=SetPassed&SiteID="& rsFriendSite("SiteID") &"&SetValue="& EL_False &"'>取消审核</a>"
	  Else
		 Response.Write "<a href='"& EL_CurrentScriptName &"?Action=SetPassed&SiteID="& rsFriendSite("SiteID") &"&SetValue="& EL_True &"'>通过审核</a>"
	  End If
	%>
	</td>
  </tr>
  <%
        If i < RowCount Then rsFriendSite.MoveNext
	  Next
	  rsFriendSite.Close()
   End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
    <td width="88%" align="right" nowrap><%Call EL_Common.ShowPage("", CurrentPage, PageSizes, PageCounts, TotalRowCount, "链接", "个")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"><input type="button" name="Submit3" value="删除选定链接" onClick="doDelete()">
      <input type="button" name="Submit4" value="推荐选定链接" onClick="doCommend(1)">
      <input type="button" name="Submit43" value="取消推荐选定链接" onClick="doCommend(2)">
      <input type="button" name="Submit42" value="通过审核选定链接" onClick="doPassed(1)">
      <input type="button" name="Submit422" value="取消审核选定链接" onClick="doPassed(2)"></td>
  </tr>
</table>
</form>

<form name="search" method="get" action="<%=EL_CurrentScriptName%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="8%" nowrap class="td_50">链接搜索：</td>
    <td width="92%" class="td_50">
	  <select name="Search_Field" id="Search_Field">
	  <option value="SiteName">网站名称</option>
	  <option value="SiteURL">网站地址</option>
	  <option value="Content">网站简介</option>
      </select>
      <input name="Search_Keywords" type="text" id="Search_Keywords" value="关键字">
      <input type="submit" name="Submit3" value="搜索">
	</td>
  </tr>
</table>
</form>

<%
Set rsFriendSite = Nothing
Set ManageCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub AddFriendSite()
On Error Resume Next
CurrentPath = CurrentPath &">> 添加友情链接"
%>
<script language="javascript">
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<script language="javascript">function Check(frm){
  if(frm.SiteName.value.trim()==""){
     alert("请输入网站名称");
	 frm.SiteName.focus();
	 return false;
  }
  if(frm.SiteURL.value.trim()==""){
     alert("请输入网站地址");
	 frm.SiteURL.focus();
	 return false;
  }
  if(frm.Password.value.trim()==""){
     alert("请输入管理密码");
	 frm.Password.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
}
</script>
<form name="myform" action="Admin_FriendSite.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>添加友情链接</strong></td>
  </tr>
  <tr>
    <td width="18%" class="td_ItemName"><strong>网站名称</strong></td>
    <td width="82%" class="td_25"><input name="SiteName" type="text" id="SiteName" size="50"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>网站地址</strong></td>
    <td class="td_25"><input name="SiteURL" type="text" id="SiteURL" value="http://" size="80"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>LOGO地址</strong></td>
    <td class="td_25"><input name="SiteLogo" type="text" id="SiteLogo" value="http://" size="80"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>站长名称</strong></td>
    <td class="td_25"><input name="WebmasterName" type="text" id="WebmasterName" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>站长邮箱</strong></td>
    <td class="td_25"><input name="WebmasterEmail" type="text" id="WebmasterEmail" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>管理密码</strong></td>
    <td class="td_25"><input name="Password" type="password" id="Password" size="30">
      <span class="redText">用于站长修改信息时用</span></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>密码确认</strong></td>
    <td class="td_25"><input name="Password2" type="password" id="Password2" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>网站简介</strong></td>
    <td class="td_25"><textarea name="Content" cols="90" rows="6" id="Content"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否推荐</strong></td>
    <td class="td_25"><input name="Commended" type="radio" class="nomargin" value="<%=EL_True%>" checked>
      是
        <input name="Commended" type="radio" class="nomargin" value="<%=EL_False%>">
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否通过审核</strong></td>
    <td class="td_25"><input name="Passed" type="radio" class="nomargin" value="<%=EL_True%>" checked>
      是
        <input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>">
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>录入日期</strong></td>
    <td class="td_25"><input name="RegDateTime" type="text" id="RegDateTime" value="<%=Now()%>" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加链接">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="Save"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>

</body>
</html>
上一页 12
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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