<%sub adminflink_body()
dim totalcs
sql="select fl_id from friendlink"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<!--#include file="admintop.asp"-->
<table width="<%=tablewidth%>" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="205" bgcolor="#FFFFFF" valign="top" class="line">
      <%call adminmenu()%>
    </td>
    <td width="565" bgcolor="#FFFFFF" valign="top" align="center" class="linee"> 
      <table width="98%" border="0" cellspacing="1" cellpadding="0" background="images/dh.gif" class="linee">
        <tr align="center"> 
          <td width="25%" height="25"><a href="admin_friendlink.asp">鏈接分類管理</a></td>
          <td width="20%"><a href="admin_friendlink.asp?action=link">鏈接管理</a></td>
          <td width="20%"><a href="admin_flink.asp">新增鏈接</a></td>
          <%dim passing
		  sql="select fl_id from friendlink where passed=1"
		  set rs2=server.createobject("adodb.recordset")
		  rs2.open sql,conn,1,1
		  passing=rs2.recordcount
		  rs2.close
		  set rs2=nothing%>
		  <td width="35%"><a href="admin_friendlink.asp?action=check">鏈接審核</a>(待審核鏈接:<font color="#FF0000"><%=passing%></font>個(gè))</td>
        </tr>
      </table><br>
<table width="98%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#09DD77" style="border-collapse: collapse">
  <form name="form1" method="post" action="admin_flinksave.asp">
          <tr> 
            <td height="25" colspan="2" background="images/dh.gif">&nbsp;&nbsp;<strong>新增鏈接</strong></td>
          </tr>
          <tr> 
            <td width="16%" bgcolor="#FFFFFF">選擇類別:</td><td width="84%" bgcolor="#FFFFFF"><p>
                <select name="flcat_id" id="flcat_id">
                  <%sql="select * from flcat"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
                  <option value="<%=rs("flcat_id")%>"><%=rs("flcat_name")%></option>
                  <%rs.movenext
loop
if rs.bof and rs.eof then%>
                  <option value="0">暫無(wú)分類</option>
                  <%end if%>
                </select>
            </p></td>
              </tr>
          <tr>
            <td bgcolor="#FFFFFF">站點(diǎn)名稱:</td><td bgcolor="#FFFFFF"><input name="fl_name" type="text" class="textarea" size="18" maxlength="16">
              <font color="#FF0000">八個(gè)字</font></td>
          </tr>
          <tr>
            <td bgcolor="#FFFFFF">站點(diǎn)地址:</td><td bgcolor="#FFFFFF"><input type="text" name="fl_url" size="30" value="http://" class="textarea"></td>
          </tr>
          <tr> 
            <td colspan="2" align="center" bgcolor="#FFFFFF"> 
        <input type="submit" name="Submit" value="確定新增" class="button"> 
        <input type="reset" name="reset" value="清空重寫" class="button"></td>
          </tr>
        </form>
      </table></td></tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
end sub%>