<!--#include file="Const.Asp"-->
<!--#include file="error.ini"-->
<%PageName="Admin_LinkSite"%>
<!--#include file="Top.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<table border="0" width="100%" cellspacing="1" cellpadding="1">
  <tr>
    <td align=center valign=top>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from FriendSite order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "<p align='center'>暂时没有友情站点</p>" 
else 
%>
      <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
             <form method="POST" action="Admin_LinkSite_Err.asp?act=set">
          <tr class="title">
            <td width="100%" height="22" colspan=10 align=center>管 理 友 情 站 点</td>
          </tr>
          <tr>
            <td width="5%" class=tdbg align="center">选择</td>
            <td width="5%" class=tdbg align="center">ID</td>
            <td width="10%" class=tdbg align="center">站名</td>
            <td width="10%" class=tdbg align="center">地址</td>
            <td width="10%" class=tdbg align="center">简介</td>
            <td width="20%" class=tdbg align="center">网站Logo</td>
            <td width="10%" class=tdbg align="center">站长</td>
            <td width="5%" class=tdbg align="center">推荐</td>
            <td width="5%" class=tdbg align="center">修改</td>
            <td width="5%" class=tdbg align="center">删除</td>
          </tr>
<%
do while not rs.eof
%>
          <tr>
            <td class=tdbg width="5%"><input type="checkbox" name="checked" value="<%=rs("ID")%>"<%if rs("IsOK")=true then%> checked<%end if%>></td>
            <td class=tdbg width="5%" align="center"><%=rs("ID")%></td>
            <td class=tdbg width="10%" align="center"><%=rs("SiteName")%></td>
            <td class=tdbg width="10%" align=center><a href="<%=rs("SiteUrl")%>" target="_blank" title="<%=rs("SiteUrl")%>">网站地址</a></td>
            <td class=tdbg width="10%" align=center><a style="cursor:hand" title="<%if rs("SiteIntro")="" or isnull(rs("SiteIntro")) then%>无<%else%><%=rs("SiteIntro")%><%end if%>">网站简介</td>
            <td class=tdbg width="20%" align=center><%if not isNull(rs("LogoUrl")) then%><img src="<%=rs("LogoUrl")%>" width=88 height=31 border=0 alt="<%=rs("LogoUrl")%>"><%end if%></td>
            <td class=tdbg width="10%" align="center"><%=rs("SiteAdmin")%></td>
            <td class=tdbg width="5%" align="center"><input class=input onClick="javascript:window.open('Admin_LinkSite_Err.asp?act=SetIsGood&id=<%=rs("ID")%>','_self','')" type="button" name="button1"></td>
            <td class=tdbg width="5%" align="center"><input class=input onClick="javascript:window.open('Admin_LinkSite_Edit.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button2"></td>
            <td class=tdbg width="5%" align="center"><input class=input onClick="javascript:window.open('Admin_LinkSite_Err.asp?act=del&id=<%=rs("ID")%>','_self','')" type="button" value="删除"></td>
          </tr>
<%
rs.movenext
loop
end if
rs.Close
%>
          <tr>
            <td colspan=10 class=tdbg height=25 align=center><input class=input type="submit" value="选定并生成友情连接" name="submit">   <input class=input onClick="javascript:window.open('Admin_LinkSite_Action_Add.asp','_self','')" type="button" value="添加新网站" name="button"></td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<br>
<%
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>