link_body.asp

一个不错的企业网站

<%sub link_body()
dim totalfl,passing
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%> 
<TABLE bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
  <!--DWLayoutTable-->
  <TR> 
    <td width="758" height="72" align="center" valign="middle" background="img/index_link.gif"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="758" height="114">
        <param name="movie" value="img/4.swf">
        <param name="quality" value="high">
        <embed src="img/4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="758" height="114"></embed><param name="wmode" value="transparent"></object></TD>
  </TR>
  <TR> 
    <td height="24" align="right" valign="top" bgcolor="#FFFFFF">&nbsp;&nbsp; 
    </TD>
  </TR>
  <tr> 
    <td height="3" background="img/menu_bg2.gif"></td>
  </tr>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td width=553 align=left vAlign=top bgcolor="#ffffff"><%call br%>
<table width='530' height="25" border='0' align="center"cellpadding='2' cellspacing='0' background="img/mainbg.gif">
              <tr> 
                <td>&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp;当前共有<span><%=totalfl%></span>个友情链接，其中正在等待通过验证的<span><%=passing%></span>个。</td>
              </tr>
            </table>
<table width="530" border="0" align="center" cellspacing="0" cellpadding="1" bgcolor="#F5F5F5" style="border-collapse: collapse" bordercolor="#111111">
<tr><td>
      <%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 * from friendlink where flcat_id="&rs("flcat_id")&" and passed=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
%>
<table width="530" border="0" align="center" cellspacing="0" cellpadding="1" bgcolor="#F5F5F5" style="border-collapse: collapse" bordercolor="#111111">
<tr><td height='25'>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<%=rs("flcat_name")%>
</td></tr><tr><td><table border="0" width="530" cellpadding="0" cellspacing="0" height='100%'><tr><td><table border="0" width="530" cellpadding="5" cellspacing="0" bgcolor="#ffffff">
<%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="<%=rs2("fl_url")%>" target="_blank"><%if rs("isimage")=0 then response.write "<img src='"&rs2("fl_logo")&"' width='88' height='31' border='0' title='"&rs2("fl_name")&"' 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="center">当前该分类中还没有链接！</td></tr>
<%end if
rs2.close
set rs2=nothing
%></table>
</TD>
</TR></TABLE>
</TD>
</TR>
</TBODY></TABLE>
      <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#808080">&nbsp; </font>
      <table width="530" align="center" border="0" cellspacing="1" cellpadding="10" bgcolor="#E8E8E8" align="center">
        <tr> 
          <td bgcolor="#F5F5F5" align="center">当前没有友情链接！</td>
        </tr>
      </table>
      <%end if%>
</TD>
</TR>
</TBODY></TABLE>
<%call br%></TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=204 align=left vAlign=top background=img/left_bg2.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top2.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="61,11,87,24" href="book.asp?page=1" title="留言本"><area shape="rect" coords="134,11,160,24" href="admin.asp" title="后台管理"></map></td></tr>
</table>
<TABLE width=196 border=0 align=right cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
        
      <td align=center height="61"><img src="img/two/linksm.gif" width="197" height="91"></td>
</tr>
<TR><td><%call br%>·站点必须美观大方，有一定的内<%call br%>&nbsp;&nbsp;容，具有发展潜力……<%call br%>·LOGO连接应确保LOGO能够正常打<%call br%>&nbsp;&nbsp;开,如果不,将删除。<%call br%>·请您<font color="#FF0000">提交前</font>先加入本站LOGO或相<%call br%>&nbsp;&nbsp;应链接，谢谢！<%call br%></td>
          </tr>
<TR>
        
      <td align=center height="61"><img src="img/two/blogo.gif" width="197" height="91"></td>
</tr>
<tr><td align="center"><%call br%><%call br%><img border="0" src="img/logo.gif"><%call br%></td></tr>
<tr><td><%call br%>&nbsp;&nbsp;名&nbsp;称：<FONT COLOR="#FF0000"><%=webname%></FONT><%call br%>&nbsp;&nbsp;地&nbsp;址：<FONT COLOR="#FF0000"><%=weburl%></FONT><%call br%></td></tr>
<TR>
        
      <td align=center height="61"><img src="img/two/tij.gif" width="197" height="91"></td>
</tr>
<form name="form1" method="post" action="relink.asp" target="link" onsubmit="return link()">
<tr> 
<td><%call br%>&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>
<%call br%>&nbsp;名称:<input type="text" name="fl_name" size="18" class="lanyu">
<%call br%>&nbsp;地址:<input type="text" name="fl_url" size="18" class="lanyu">
<%call br%>&nbsp;图标:<input type="text" name="fl_logo" size="18" class="lanyu">
</td>
</tr>
<tr> 
<td align="center"><%call br%><input type="submit" name="Submit" value="提交" class="button">&nbsp;<input type="reset" name="reset" value="清空" class="button"><%call br%>
</td>
</tr>
</form>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<%
rs.close
set rs=nothing
end sub%>