<html>
<head>
<link rel="stylesheet" href="../images/css.css" type="text/css">
<title>福建交友热线</title>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="0%">
  <tr>
    <td valign="middle" height="25">
            <p class="x">&nbsp;</p>
    </td>
  </tr>
  <tr> 
    <td valign="middle"> <br>
      <table border="0" cellspacing="0" cellpadding="0" align="center" width="90%">
        <tr> 
          <td bgcolor="#000000"> 
            <table width="100%" cellspacing="0" cellpadding="5" align="center" style="border-collapse:collapse;">
              <tr> 
                <td bgcolor="#FFCC00" style="border-width:1; border-color:black; border-style:solid;" width="671" colspan="6">
                                    <p align="center">ECard首页链接管理</td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" style="border-width:1; border-color:black; border-style:solid;" width="671" colspan="6">
 
                  <form name="form1" method="post" action="urledit.asp?name=add">
                                        <p align="left"><font color="#000000">网站名称：</font> 
                       
                      <font color="#000000"><input type="text" name="name" class=bk size="20">
                      <br>LOGO网址： <input type="text" name="pic" class=bk size="20"><br>链接网址：   
                      <input type="text" name="url" class=bk>
                      <input type="submit" name="Submit" value="添加链接" class=an>
                      </font>                  </form>
                </td>
              </tr>
              <tr> 
                <td bgcolor="#FFCC00" style="border-width:1; border-color:black; border-style:solid;" width="671" colspan="6"> <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
%>
              <%
    linkssql="SELECT * FROM link where linkyz=true"
    Set linksrs = Server.CreateObject("ADODB.Recordset")
    linksrs.OPEN linkssql, Conn
if linksrs.eof and linksrs.bof then
       response.write "<tr><td bgcolor='#FFFFFF'> 没有友情连接</td></tr>"
else 
do while not linksrs.eof
%>
              <tr> 
                <td bgcolor="#FFFFFF" style="border-width:1; border-color:black; border-style:solid;" width="88"> <a href='urledit.asp?id=<%=linksrs("linkid")%>&name=del'><font color="#000000"><img src="<%=linksrs("linkpic")%>" width="88" height="32" border="0"></font></a> 
                                    </td>
                <td bgcolor="#FFFFCC" style="border-width:1; border-color:black; border-style:solid;" width="20"> 
                                    <p>网站</p>
</a> 
                                    </font></td>
                <td bgcolor="#FFFFFF" style="border-width:1; border-color:black; border-style:solid;" width="193">             <p><a href='<%=linksrs("linkurl")%>' target="_blank"><%=linksrs("linkname")%></a></p>
</a> 
                                    </font></td>
                <td bgcolor="#FFFFCC" style="border-width:1; border-color:black; border-style:solid;" width="22"> 
                                    <p>地址</p>
</a> 
                                    </font></td>
                <td bgcolor="#FFFFFF" style="border-width:1; border-color:black; border-style:solid;" width="242">             <p><a href='<%=linksrs("linkurl")%>' target="_blank"><%=linksrs("linkurl")%></a></p>
</a> 
                                    </font></td>
                <td bgcolor="#FFFFCC" style="border-width:1; border-color:black; border-style:solid;" width="51">             <p align="center"><a href='urledit.asp?id=<%=linksrs("linkid")%>&name=del'><font color="red">删除</font></a></p>
</a> 
                                    </font></td>
              </tr>
              <%
	linksrs.movenext
	loop
	end if
	linksrs.close
%>
            </table>
          </td>
        </tr>
      </table>
      <br>    </td>
  </tr>
</table>
</body>
</html>