link.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

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




<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "图片展示"
    end sub
%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
		<tr>
			<td width="218" valign="top">
<% call userlogin() %>
<% Call Gaobei_Marquee() %>
<% call Gaobei_Search() %>
<% 'call Gaobei_vote() %>
</td>
			<td width="560" valign="top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" background="images/gaobei_skin/public_dh.gif">
					<tr>

						<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;&nbsp;&nbsp;<span style="letter-spacing: 3px">友情链接</span></td>
					</tr>
				</table>
</div>

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

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #CECFCE">
		<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="550" 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="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>




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