<!--#include file="conn.asp"-->
<%
'-------------------------------------
'功能：显示所有符合条件的友情链接页
'更新：2004-12-27 19:02
'作者：未知-部落忍者
'演示：http://www.0cc.cn/link/
'-------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>版权申明及下载_<%=WebName&ChannelName%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #0000FF}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp"-->
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="main_title1">
  <tr> 
    <td align="center"> <a href="index.asp">系统使用说明</a>&nbsp;|&nbsp;<a href="addlink.asp">申请友情链接</a>&nbsp;|&nbsp;<a href="morelink.asp">查询网站点击</a>&nbsp;|&nbsp;<a href="editlink.asp">管理网站信息</a>&nbsp;|&nbsp;<a href="getcode.asp" class="style1">重获链接代码</a>&nbsp;</td>
  </tr>
</table>


<table width="768" border="0" align="center" cellpadding="3" cellspacing="0" class="main_tdbg">
  <tr> 
    <td height="30">您的位置:<a href="<%=WebUrl%>">首页</a> -- <a href="index.asp"><%=ChannelName%></a> -- <a href="readme.asp"><font color="#0000FF">所有友情链接</font></a></td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="main_tdbg">
  <tr> 
    <td>
	<%
	dim rs
	set rs=hx.execute("select username,siteurl,sitename,sitelogo,siteintro,inp from CL_Link where inp>="&inpc&" order by inp desc")
	dim i,n,j,tdwidth
	i=1
	n=1
	j=1
	dim strjs
	tdwidth=formatnumber(100/LineNum,1)
	strjs="<table border=0 cellpadding=3 cellspacing=0>"	
	if rs.eof then
		strjs=strjs + "<tr><td align=center>暂时还没有友情链接</td></tr>"
	else	
			Do While Not rs.eof
				if i mod LineNum =1 then
					strjs=strjs + "<tr>"
				end if
				if i <= LineNum * LineLogo then
					strjs=strjs + "<td width="""&tdwidth&"%"" align=center>"
					strjs=strjs + "<a href=""http://"&hx.BaseUrl&"out.asp?username="&rs(0)&""" target=""_blank"">"
					strjs=strjs + "<img src="""&hx.htmlencode2(rs(3))&""" width=88 height=31 border=0 alt="""&hx.htmlencode2(rs(2))&" -- "&hx.htmlencode2(rs(4))&"""></a>"
					strjs=strjs + "</td>"
				else
					strjs=strjs + "<td width="""&tdwidth&"%"" align=center>"
					strjs=strjs + "<a href=""http://"&hx.BaseUrl&"out.asp?username="&rs(0)&""" target=""_blank"">"				
					strjs=strjs + hx.htmlencode2(rs(2))
					strjs=strjs + "</a>"
					strjs=strjs + "</td>"	
				end if
				if i mod LineNum =0 then
					strjs=strjs + "</tr>"
				end if
				
				rs.MoveNext
				i=i+1
			Loop
		
			if i mod LineNum>0 then			
				strjs=strjs + "<td colspan="&LineNum-(i mod LineNum)+1&"></td>"
				strjs=strjs + "</tr>"
			end if	
	end if	
	strjs=strjs + "</table>"
	rs.close:set rs=nothing
	response.write strjs
	%>
    </td>
  </tr>
</table>
<%
CloseDatabase
%>
<!--#include file="under.asp"-->
</body>
</html>
