<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" Inherits="b2bNet.Admin_Links_manger" %>
<%On Error Resume Next%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="inc/admin_style.css" rel="stylesheet" type="text/css" /><link href="inc/style.css" rel="stylesheet" type="text/css" />
<title><%=AppConst.SiteName%></title>
<script type="Text/JavaScript" language="javascript" src="inc/title.js"></script>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FF0000}
.style2 {
	color: #font146;
	font-weight: bold;
}
-->
</style>
<script type="Text/JavaScript" language="javascript">
function del(strurl,msg){
if (confirm(msg)){
window.location=strurl
}
}
function selectall(){
	for(i=0;i!=document.news.elements.length;i++){
		document.news.elements[i].checked=!document.news.elements[i].checked;
	}
}
</script>
</head>

<body>
<table style="width:100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="top"><table style="width:100%" border="0" cellpadding="0" cellspacing="1">
      <tr class="topbg">
        <td style="height:22" align="center" class="topbg"><strong><%=PassedName & linkTypeName%>友情链接</strong></td>
      </tr>
    </table>    </td>
  </tr>
  <tr>
    <td><table style="width:100%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td style="height:27; width:25" align="center"><img src="<%=AppConst.SiteUrl%>/<%=AppConst.Skinpath%>/gojump01.gif" width="16" height="16" /></td>
          <td><a href="Links_manger.aspx">全部友情链接</a> | <a href="Links_add.aspx">添加链接</a> | <a href="Links_manger.aspx?linktype=0&passed=1">文字链接[已审]</a> | <a href="Links_manger.aspx?linktype=0&passed=0">文字链接[待审]</a> | <a href="Links_manger.aspx?linktype=1&passed=1">LOGO链接[已审]</a> | <a href="Links_manger.aspx?linktype=1&passed=0">LOGO链接[待审]</a></td>
        </tr>
      </table>
      <table style="width:100%" border="0" align="center" cellpadding="3" cellspacing="1" class="border">
  <form name="news" id="news" method="post" action="Links_set.aspx?action=delall">
      <tr class="Title">
        <td style="width:5%"><div align="center"><strong>ID</strong></div></td>
        <td><strong>名称</strong></td>
        <td style="width:10%"><div align="center"><strong>链接类型</strong></div></td>
        <td style="width:15%"><div align="center"><strong>是否在首页显示</strong></div></td>
        <td style="width:20%"><div align="center"><strong>LOGO</strong></div></td>
        <td style="width:60px"><div align="center"><strong>是否审核</strong></div></td>
        <td style="width:120px"><div align="center"><strong>操 作</strong></div></td>
      </tr>
      <%Dim i = 0 : Do While Not rssort.EOF AndAlso i < rssort.PageSize%>
	  <tr class='tdbg' onmouseout="this.className='tdbg'" onmouseover="this.className='tdbgmouseover'">
        <td><div align="center"><%=rssort("id").Value%></div></td>
        <td><img src="images/12.gif" width="6" height="10" />&nbsp;<a href="<%=rssort("L_url").Value%>" target="_blank" title="友情链接：<%=rssort("L_name").Value%><br>链接地址：<%=rssort("L_url").Value%>"><%=rssort("L_name").Value%></a></td>
        <td style="width:16%"><div align="center"><%=GetLinkTypeName(rssort("L_type").Value)%>
        </div></td>
        <td><div align="center"><span class="style1"></span>(<font color="#666666"><%="次页,首页".Split(",")(rssort("L_order").Value)%></font>)</div></td>
        <td><div align="center"><a href="<%=rssort("L_url").Value%>" target="_blank"><%If IsTrue(rssort("L_tw").Value) Then%><img src="../Ad/Userlink/<%=rssort("L_pic").Value%>" width="88" height="31" border="0" /><%Else%>文字链接<%End If%></a></div></td>
        <td><div align="center"><%="未审,已审".Split(",")(rssort("L_unit").Value)%></div></td>
	    <td><div align="center"><span class="style1">〖<a href="Links_edit.aspx?id=<%=rssort("id").Value%>">修改</a>│<a href="#" onclick="del('Links_set.aspx?id=<%=rssort("id").Value%>&action=Link_del','你确定要删除该友情链接吗？')">删除</a>〗</span> <input type="checkbox" name="id" value="<%=rssort("id").Value%>" class="box1" /></div></td>
	  </tr>
	  <%i=i+1:rssort.movenext() : loop%>
    <tr>
      <td style="height:22" colspan="7"><div align="right"><input type="button" name="Submit22" value="反选" onclick="selectall()" />
        <input type="submit" name="Submit2" value="删除所选" /></div></td>
    </tr>
   </form>
    </table></td>
  </tr>
  <tr>
    <td><%=Pagination(rssort.pagecount,IsNull(Request("page"),1),rssort.recordcount,rssort.pagesize)%></td>
  </tr>
  <tr>
    <td valign="top"> <span class="style1"> &nbsp; &nbsp; &nbsp; &nbsp;注:[首页]代表在首页显示,[次页]代表在更多页显示</span></td>
  </tr>
</table><table style="width:100%"  border="0" cellpadding="1" cellspacing="1" class="border">
  <tr>
    <td colspan="2" class="Title"><div align="center"><strong>调用演示</strong></div></td>
  </tr>
  <tr>
    <td style="width:30%" class="tdbg"><div align="right">首页文字链接调用:</div></td>
    <td class="tdbg"><textarea name="code" style="width:550" onfocus="this.select()" onmouseover="this.focus()"><script type="Text/JavaScript" src="<%=AppConst.SiteUrl%>/TagJS.aspx?t=CreateLinks(0,10)"></script></textarea></td>
  </tr>
  <tr>
    <td class="tdbg"><div align="right">首页图片链接调用:</div></td>
    <td class="tdbg"><textarea name="code" rows="3" style="width:550" onfocus="this.select()" onmouseover="this.focus()"><script type="Text/JavaScript" src="<%=AppConst.SiteUrl%>/TagJS.aspx?t=CreateLinks(1,10)"></script></textarea></td>
  </tr>
</table>
</body>
<%Page_Loaded()%>
</html>
