link.asp

欢迎使用酷航设计系统

<!--#include file="ku_top.asp" -->




<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "友情链接"
    end sub
%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="800" height="50" bgcolor="#ffffff">
		<tr>
			<td width="218" valign="top">
			<div align="center">
				<table border="0" width="208" id="table2" bgcolor="#ebebeb" cellpadding="0" cellspacing="0">
					<tr>
						<td height="30"  background="xbqq_img/gonggao.gif">
						<p align="center"><b>站 内 公 告</b></td>
					</tr>
					<tr>
						<td><% xbqq_Marquee %></td>
					</tr>
					<tr>
						<td height="0"><hr></td>
					</tr>					
					<tr>
						<td height="30"  background="xbqq_img/gonggao.gif">
						<p align="center"><b>信 息 搜 索</b></td>
					</tr>
					<tr>
						<td height="23"><% xbqq_Search %></td>
					</tr>
					<tr>
						<td height="0"><hr></td>
					</tr>	
					<tr>
						<td height="30"  background="xbqq_img/gonggao.gif">
						<p align="center"><b>站 内 投 票</b></td>
					</tr>
					<tr>
						<td><% xbqq_vote %></td>
					</tr>
					<tr>
						<td height="0"><br></td>
					</tr>	
				</table>
			</div>
</td>
			<td width="560" valign="top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="28" background="xbqq_img/kind1.gif">
					<tr>

						<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;<img border="0" src="xbqq_img/ico1.gif" width="11" height="9">&nbsp;<font color="#FFFFFF"><span style="letter-spacing: 3px">友情链接</span></font></td>
					</tr>
				</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="580" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="580" height="160" style="border: 1px solid #2C87E9">
		<tr>
			<td bgcolor="#FFFFFF" width="548">   
<!--主要内容开始-->

<%
    if request.querystring("action")="" then
    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="580" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse">
<%
    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="30"><%=rs("flcat_name")%></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
%>

        <tr> 
          <td align=middle height="60" >当前没有友情链接</td>
        </tr>
<% end if %>
</TD>
</TR>
</table>
<%
    rs.close
    set rs=nothing
    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
%>
	
<!--主要内容结束-->
			</td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="580" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>




			</td>
		</tr>
	</table>
</div>
<!--#include file="xbqq_foot.asp" -->