<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../images/css.css" type="text/css">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr>
    <td valign="middle" height="25">
            <p>&nbsp;</p>
    </td>
  </tr>
  <tr> 
    <td valign="middle">       &nbsp;
      <table border="0" cellspacing="0" cellpadding="0" align="center" width="90%">
        <tr> 
          <td bgcolor="#000000"> 
            <table width="100%" border="0" cellspacing="1" cellpadding="5" align="center">
              <tr>
                <td bgcolor="#FFCC00">
                  <div align="center">管理系统连接</div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFCC"><font color="#000000"><br>
                  </font> 
                  <form name="form1" method="post" action="linkedit.asp?name=lineadd">
                    <div align="center"><font color="#000000">添加新的连接：链接名称：</font> 
                       
                      <font color="#000000"><input type="text" name="name2" class=bk>
                      网址：   
                      <input type="text" name="url2" class=bk>
                      <input type="submit" name="Submit2" value="添加" class=an>
                      </font> </div>
                  </form>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#FFCC00"> <font color="#000000">点击下边的连接将删除该友情连接</font></td>
              </tr><%
dim db
db="../db/sjxffriend.asa"
    Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    Conn.Open MyConn
%>
              <%
    linesql="SELECT * FROM line"
    Set liners = Server.CreateObject("ADODB.Recordset")
    liners.OPEN linesql, Conn
if liners.eof and liners.bof then
       response.write "<tr><td bgcolor='#FFFFFF'> 没有连接</td></tr>"
else 
do while not liners.eof
%>
              <tr> 
                <td bgcolor="#FFFFFF"> <font color="#000000"><a href="linkedit.asp?id=<%=liners("id")%>&name=linedel"><%=liners("linename")%></a></font></td>
              </tr>
              <%
	liners.movenext
	loop
	end if
	liners.close
%>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>