<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="友情連接"
if request.querystring("action")="" then
call head()
call menu()
dim totalfl,passing,lk
sql="select fl_id from friendlink"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalfl=rs.recordcount
sql="select fl_id from friendlink where passed=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
passing=rs.recordcount
sql="select fl_id from friendlink where lk=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
lk=rs.recordcount%>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s"><TBODY><TR><TD align=middle width=100><font color="blue">黑名單列表：</font></TD>
<TD style="PADDING-RIGHT: 20px; PADDING-LEFT: 20px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"><MARQUEE scrollAmount=2 scrollDelay=5 width="100%"><%
sql="select * from friendlink where lk=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
for i=1 to rs.recordcount
sql="select flcat_name from flcat where flcat_id="&rs("flcat_id")
set rs2=conn.execute(sql)%><font color=#cccccc>·<%=rs("fl_name")%></font> <%rs.movenext
next
if rs.bof and rs.eof then%>謝謝各位站長的支持，本站當前沒有黑名單鏈接！<%end if%></MARQUEE></TD></TR></TBODY></TABLE>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s">
  <TBODY>
  <TR vAlign=top align=left>
    <TD>
<DIV class=mframe>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 當前共有<%=totalfl%>個友情鏈接，其中包含等待通過驗證的<%=passing%>個，黑名單<%=lk%>個</td>
   </tr>
</table>
<table width="99%" border="1" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" style="border-collapse: collapse" class="table-right" align="left" frame=rhs>
<%sql="select * from flcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
dim rs2_numrows
rs2_numrows=0
Dim HLooper1__numRows
Dim HLooper1__index
HLooper1__index = 0
startrw = 0
endrw = HLooper1__index
numberColumns = 5
sql="select fl_id,fl_name,flcat_id,fl_date,fl_logo,fl_url,count,passed from friendlink where flcat_id="&rs("flcat_id")&" and passed=0 and lk=0"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
HLooper1__numRows = rs2.recordcount
if HLooper1__numRows=0 then
   numrows=1
else
if HLooper1__numRows>=numberColumns then
if (HLooper1__numRows mod numberColumns)=0 then
   numrows=HLooper1__numRows\numberColumns
else
   numrows=HLooper1__numRows\numberColumns+1
end if
else
numrows=1
end if
end if
%>
<tr bgcolor="#ffffff"><td height="10"></td></tr>
<tr bgcolor="#ffffff"><td height="30"><LI><%=rs("flcat_name")%></li></td></tr>
<tr bgcolor="#ffffff"><td>
<table border="0" width="530" cellpadding="5" cellspacing="0">
<%do while((numrows <> 0) AND (Not rs2.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
rs2_numRows = rs2_numRows + HLooper1__numRows%>
<tr bgcolor="#ffffff"> 
<%do While ((startrw <= endrw) AND (Not rs2.EOF))%>
<td width="106" align="center"><a href="?action=go&fl_id=<%=rs2("fl_id")%>" target="_blank" title='網站名稱：<%=rs2("fl_name")%>&#13&#10網站地址：<%=rs2("fl_url")%>&#13&#10加入時間：<%=rs2("fl_date")%>&#13&#10點擊次數：<%=rs2("count")%>'><%if rs("isimage")=0 then response.write "<img src='"&rs2("fl_logo")&"' width='88' height='31' border='0' style='text-decoration: none'>" else response.write rs2("fl_name") end if%></a></td>
<%
startrw = startrw + 1
rs2.MoveNext()
loop
%>
</tr>
<%numrows=numrows-1
loop
if rs2.eof and rs2.bof then%> 
<tr><td align=middle height="60" >當前該分類中還沒有鏈接！</td></tr>
<%end if
rs2.close
set rs2=nothing
%></table>
</TD>
</TR>
      <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#808080"> </font>
        <tr> 
          <td align=middle height="60" >當前沒有友情鏈接！歡迎你加入我們的連接！</td>
        </tr>
      <%end if%>
</TD>
</TR>
<tr align="center"><td height="10" colspan="3"></td></tr></table><br>
</TD><TD width=188>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 鏈 接 說 明</td>
   </tr>
</table>
<div style="LINE-HEIGHT: 180%" class="table-left">&nbsp;<font color=#FF0000>·</font>站點必須美觀大方，有一定的內容，具有發展潛力……
<br>&nbsp;<font color=#FF0000>·</font>站點有一定的訪問量。
<br>&nbsp;<font color=#FF0000>·</font>LOGO連接應確保LOGO能夠正常打開，如果不，將刪除。
<br>&nbsp;<font color=#FF0000>·</font>請您提交前先加入HX66.NET的相應鏈接，否則不會被通過，謝謝！
<br>&nbsp;<font color=#FF0000>·</font>連接一般一個星期復核一次，無法打開的連接將<font color="red">刪除</font>，未做本站連接的將拉入<font color=blue>黑名單</font>！
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 本 站 LOGO</td>
   </tr>
</table>
<div style="padding-top:5px;padding-bottom:5px;"><center><img border="0" src="img/logo.gif"></center></div>
<div style="LINE-HEIGHT: 180%">&nbsp;網站名稱：<%=webname%><br>
&nbsp;網站地址：<%=weburl%></center>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
   <tr>
    <td height="23"  class="a1">&nbsp;&nbsp; 提 交 信 息</td>
   </tr>
</table>
<div style="padding-top:5px;"><iframe name="lanyulink" style="display:none"></iframe><form name="form" method="post" action="relink.asp" target="lanyulink" onsubmit="return link()">
&nbsp;類別:<select name="flcat_id" id="flcat_id" class='input'><%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">暫無分類</option><%end if%></select></div>
<div style="padding-top:5px;">&nbsp;名稱:<input type="text" name="fl_name" size="20" autocomplete="off" class='input'></div>
<div style="padding-top:5px;">&nbsp;地址:<input type="text" name="fl_url" size="20" value="http://" autocomplete="off" class='input'></div>
<div style="padding-top:5px;">&nbsp;圖標:<input type="text" name="fl_logo" size="20" autocomplete="off" class='input'></div>
<div style="padding-top:5px;padding-bottom:5px;"><center><input type="submit" name="Submit" value="提交" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff">&nbsp;<input type="reset" name="reset" value="清空"  onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"></div></center>
</form>
          </td>
        </tr>
      </table>
<%
rs.close
set rs=nothing
call footer()
end if
if request.querystring("action")="go" then
dim founderr
founderr=false
if request.querystring("fl_id")<>"" then
  if not isInteger(request.querystring("fl_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('參數非法');javascript:history.back();</script>"
  end if
end if
dim flid
flid=cint(request.querystring("fl_id"))
sql="select count,fl_url from friendlink where fl_id="&flid
set rs=conn.execute(sql)
dim flurl
flurl=rs("fl_url")
sql="UPDATE friendlink SET count = count + 1 where fl_id="&flid
conn.execute(sql)
rs.close
set rs=nothing
response.redirect flurl
end if
%>