link.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#include file="head.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "友情链接--"&a125_title
    end sub
%>

	<table border="0" cellpadding="0" cellspacing="0" width="996"  height="50"  bgcolor="#ffffff">
		<tr>
            <td width="216" valign="top" background="images/2/left_bg.gif">
            <div align="center">
			<%call a125_tianqi()%>
			</div>
		   <div align="center">
			<% call a125_Search5() %>
           </div>	   
	   

		   
            <div align="center">
            <TABLE cellSpacing=0 cellPadding=0 width=212 border=0>
              <TBODY>
              <TR>
                <TD align=middle height=30><img src="images/2/index_80.gif" width="206" height="30" alt=""></TD>
			  </TR>
              <TR>
                <TD align=middle height=200><% Call a125_articleInfo(1,8,20,0,0) %></TD>
			  </TR>
			  </TBODY>
			</TABLE>
           </div>
		   
          </td>	
			<td width="780" valign="top">

	      <table border="0"  cellpadding="0"  cellspacing="0" width="780" height="160">
            <tr> 
              <td width="780">
<!--主要内容开始-->



<div align="left" >
				<table border="0" cellpadding="0" cellspacing="0" width="580" height="20" >
					<tr>
                      <TD width="100%" height="20" ><IMG height=45 src="images/2/class_top.gif" width=780></TD>
					</tr>
				</table>
</div>

				<table border="0" cellpadding="0" cellspacing="0" width="780" height="36" style="border-bottom:2px #ff9900 solid;">
					<tr>
					  <TD align=middle height=36 width=9><img src="images/2/index_06.gif" width="9" height="36" alt=""></TD>	
                      <TD width="30" height="36" background="images/2/index_08.gif"><DIV align=center><IMG height=17 src="images/bottom4.gif" width=18></DIV></TD>
				      <TD width="730" height="36" background="images/2/index_08.gif">您现在的位置：首页 >> 友情链接</TD>
					  <TD align=middle height=36 width=11><img src="images/2/index_10.gif" width="11" height="36" alt=""></TD>
					</tr>
				</table>


<%
    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
%>


<%
    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
%>

<div align="left">
				<table border="0" cellpadding="0" cellspacing="0"  width=780 height="20">
					<tr>
                      <TD width="100%" height="20">
			
							<table border="0" cellpadding="0" cellspacing="0"  width=100% height="32" id="table1" background="images/2/class_bg.gif">
								<tr>
									<td width="500" style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style="letter-spacing: 3px"><%=rs("flcat_name")%></span></td>
									<td width="47" valign="middle"></td>
									<td width="3">　</td>
								</tr>
							</table>
					
					  </TD>
					</tr>
				</table>
</div>




<TABLE style="border: 1px solid #CECFCE" bgcolor="#FFFFFF" cellSpacing=5 cellPadding=5 width="780" align=center border=0>
<%
    do while((numrows <> 0) AND (Not rs2.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
    rs2_numRows = rs2_numRows + HLooper1__numRows
%>
<tr> 
<%
    do While ((startrw <= endrw) AND (Not rs2.EOF))
%>
<td width="106" align="center"  Valign="top"><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>

			</td>

		</tr>
	</table>

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