link.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 id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=l></TD><TD align=middle width=100><font color="blue">黑名单列表：</font></TD>
<TD class=m 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><TD class=r></TD></TR></TBODY></TABLE>
<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder="0">
  <TBODY>
  <TR vAlign=top align=left>
    <TD>
<DIV class=mframe><SCRIPT type=text/javascript>lanyutable("当前共有<%=totalfl%>个友情链接，其中包含等待通过验证的<%=passing%>个，黑名单<%=lk%>个");</SCRIPT>
<table width="100%" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" 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"><UL class=nl><LI class=lanyu><%=rs("flcat_name")%></li></ul></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="1" colspan="3"></td></tr></table><br>
</TD><TD width=5></TD><TD width=190>
<DIV class=member>
<SCRIPT type=text/javascript>lanyutabletop("链 接 说 明","mr");</SCRIPT>
<div style="LINE-HEIGHT: 180%">·站点必须美观大方，有一定的内容，具有发展潜力……
<br>·站点有一定的访问量。
<br>·LOGO连接应确保LOGO能够正常打开,如果不,将删除。
<br>·请您提交前先加入FJ126.NET的相应链接，否则不会被通过，谢谢！
<br>·连接一般一个星期复核一次，无法打开的连接将<font color="red">删除</font>，未做本站连接的将拉入<font color=blue>黑名单</font>（不再接受再次连接请求）！！！！
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("本 站 LOGO","mr");</SCRIPT>
<div style="padding-top:5px;padding-bottom:5px;"><center><img border="0" src="img/logo.gif"></center></div>
<div style="LINE-HEIGHT: 180%">&nbsp;&nbsp;网站名称：<%=webname%><br>
&nbsp;&nbsp;网站地址：<%=weburl%></center>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("提 交 信 息","mr");</SCRIPT>
<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="lanyu"><%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" class="lanyu" autocomplete="off"></div>
<div style="padding-top:5px;">&nbsp;地址:<input type="text" name="fl_url" size="20" value="http://" class="lanyu" autocomplete="off"></div>
<div style="padding-top:5px;">&nbsp;图标:<input type="text" name="fl_logo" size="20" class="lanyu" autocomplete="off"></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>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>

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