<%@ Page Language="VB" AutoEventWireup="false" ContentType="text/html" ResponseEncoding="gb2312" Inherits="b2bNet.user_user_website_link" %>
<%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="<%=AppConst.SiteUrl%>/<%=AppConst.Skinpath%>/style.css" rel="stylesheet" type="text/css" />
<title>我的友情链接管理</title>
<script type="Text/JavaScript" language="javascript">
function TableMouseClick(Url){
	window.location=Url;
}
//提示信息
function Working(URL,Msg){
	if(confirm(Msg)){
		window.location=URL;
	}
}
</script>
</head>
<body>
<table style="width:100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table style="width:700" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td style="width:100"><div align="center"><a href="user_company_modi.aspx"><img src="images/website_07.gif" width="50" height="48" border="0" /></a></div></td>
        <td style="width:100"><div align="center"><a href="user_website_config.aspx"><img src="images/website_01.gif" width="50" height="48" border="0" /></a></div></td>
        <td style="width:100"><div align="center"><a href="user_website_style.aspx"><img src="images/website_02.gif" width="50" height="48" border="0" /></a></div></td>
        <td style="width:100"><div align="center">
          <div align="center"><a href="user_website_class.aspx"><img height="48" src="images/website_04.gif" width="50" border="0" /></a></div>
          <a href="User_work_search.aspx"></a></div></td>
        <td style="width:100"><div align="center">
          <div align="center"><a href="user_company_html.aspx"><img height="48" src="images/website_03.gif" width="50" border="0" /></a></div>
          <a href="User_work_favorite.aspx"></a></div></td>
        <td style="width:100"><div align="center">
          <div align="center"><a href="user_website_link.aspx"><img height="48" src="images/website_05.gif" width="50" border="0" /></a></div>
          <a href="User_work_person.aspx"></a></div></td>
        <td style="width:100"><div align="center">
          <div align="center"><a href="user_website_addlink.aspx"><img height="48" src="images/website_06.gif" width="50" border="0" /></a><a href="User_products_add.aspx"></a></div>
          <a href="User_work_search.aspx"></a></div></td>
      </tr>
      <tr>
        <td style="width:100"><div align="center"><strong>修改企业介绍</strong></div></td>
        <td style="width:100"><div align="center"><strong>网站信息配置</strong></div></td>
        <td style="width:100"><div align="center"><strong>网站风格设置</strong></div></td>
        <td style="width:100"><div align="center"><strong>网站栏目设置</strong><strong></strong></div></td>
        <td style="width:100"><div align="center"><strong>生成网站</strong></div></td>
        <td style="width:100"><div align="center"><strong>友情链接管理</strong></div></td>
        <td style="width:100"><div align="center"><strong>添加友情链接</strong></div></td>
      </tr>
    </table></td>
  </tr>
</table>
<table style="width:100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table style="width:100%; height:24" cellspacing="0" cellpadding="0"  border="0">
  <tr>
    <td style="background-color:#FFF1EB; height:24; width:142" align="center" valign="bottom" class="TDBG1"><strong><span #invalid_attr_id="none"><strong>友情链接管理</strong></span></strong></td>
    <td class="bottom"><div align="right">注意：友情链接删除后不能恢复，请谨慎使用！</div></td>
  </tr>
</table>
<table style="width:100%"  border="0" cellpadding="0" cellspacing="0" class="topnone">
  <tr>
    <td style="background-color:#FFFFFF"><table style="width:100%; height:50" bordercolor="#FFF1EB" cellspacing="0" cellpadding="4" align="center" border="6">
      <tr>
        <td style="height:50" valign="middle" bordercolor="#EDD6CA" class="0008">
          <%  If Rs.EOF Then Response.Write("<center><font color='#FF0000'>还没有友情链接！</font></center>")
              
              Dim Total = 0
              Do While Not Rs.EOF And Total <> Rs.PageSize%>
          <table style="height:125; width:100%"  border="0" cellpadding="0" cellspacing="1">
            <tr>
              <td style="background-color:#FFEDE1; height:6"><table style="height:32; width:98%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td style="height:16"><span class="00003">网站名称:<%=Rs("L_title").Value%></span></td>
                    <td style="width:200"><div align="right"><a href="user_website_editlink.aspx?Id=<%=Rs("Id").Value%>" class="a07">编辑此链接</a>　<a href="javascript:Working('user_website_link.aspx?action=del&id=<%=Rs("ID").Value%>','您确定要删除这条信息吗，这将是不可撤消的？')" class="style1">删除此链接</a></div></td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td style="background-color:#FFFFFF; height:86"><table style="height:90; width:100%"  border="0" cellpadding="3" cellspacing="0">
                  <tr>
                    <td style="width:24%" rowspan="3"><table style="background-color:#CCCCCC; width:100"  border="0" align="center" cellpadding="0" cellspacing="1">
                        <tr>
                          <td style="background-color:#FFFFFF; height:50" align="center"><a href="../include/url.aspx?url=<%=Rs("L_comment").Value%>" target="_blank">
                            <%If IsNull(Rs("L_logo").Value) Then%>
                            文字链接
                            <%else%>
                            <img src="../ad/userlink/<%=Rs("L_logo").Value%>" width="88" height="31" border="0" />
                            <%end if%>
                          </a></td>
                        </tr>
                    </table></td>
                    <td style="width:76%" class="00003">网站名称:<%=Rs("L_title").Value%></td>
                  </tr>
                  <tr>
                    <td class="00003">链接地址: <a href="../include/url.aspx?url=<%=Rs("L_comment").Value%>" target="_blank"><%=Rs("L_comment").Value%></a></td>
                  </tr>
                  <tr>
                    <td class="00003">审核状态：<%if rs("L_unit").Value=1 then%>已审<%else%>未审<%end if%></td>
                  </tr>
              </table></td>
            </tr>
          </table>
          <%  Rs.MoveNext() : Total = Total + 1 : Loop%>
          <table style="width:100%"  border="0" cellspacing="0" cellpadding="3">
            <tr>
              <td style="height:28"><%=Pagination(Rs.PageCount, IsNull(Request("page"), 1), Rs.RecordCount, Rs.PageSize, "")%></td>
            </tr>
          </table></td>
      </tr>
    </table></td>
  </tr>
</table>
</body><%Page_Loaded()%>
</html>
