coolsites_body.asp

一个很好的下载系统原码

<%sub coolsites_body()
dim totalcs
opensites
sql="select cs_id from coolsites"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td height="2" colspan="3"></td>
  </tr>
  <tr> 
    <td align="center" valign="top" width="74%"> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="6"></td>
        </tr>
      </table>
      <table width="98%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center">&nbsp;</td>
        </tr>
      </table>
      <%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 = 4
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
%>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="#F0F0F4" align="center">
        <tr> 
          <td align="center" bgcolor="#FFFFFF" class="diaryhead"><font color="#666666">：：：<%=rs("flcat_name")%> 
            <%if rs("isimage")=1 then response.write "[文本形式的链接]" end if%>
            ：：： </font> </td>
        </tr>
      </table>
      <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td bgcolor="#FFFFFF">
            <table width="100%" border="0" cellspacing="0" cellpadding="10" align="center">
              <%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="25%" align="center" bgcolor="#FFFFFF"><a href="<%=rs2("fl_url")%>" title="<%=rs2("fl_name")%>" target="_blank">
                  <%if rs("isimage")=0 then response.write "<img src='"&rs2("fl_logo")&"' border='0'>" 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 bgcolor="#FFFFFF" align="center" class="chinese">当前该分类中还没有链接！</td>
              </tr>
              <%end if
rs2.close
set rs2=nothing
%>
            </table>
          </td>
        </tr>
      </table>
      <%rs.movenext
loop
if rs.eof and rs.bof then%>
      <table width="98%" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
          <td bgcolor="#FFFFFF" align="center" class="chinese">当前没有友情链接！</td>
        </tr>
      </table>
      <%end if%>
      <br>
      <table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="#F0F0F4" align="center">
        <tr> 
          <td align="center" bgcolor="#FFFFFF" class="diaryhead"><font color="#666666">：：：本站认证 
            ：：： </font> </td>
        </tr>
      </table>
      <br><!-- 零刻联盟LinkMeng荣誉认证标识代码 -->
<!-- LinkMeng.Com(.Net) WebSite Codes -->
<script src="http://www.linkmeng.com/LinkMeng_HonorCodes.asp?Site_ID=2605"></script>
<!-- Just Let Us Join to LinkMeng Now -->
<!-- 力争国内评测模式最先进的联盟站点 -->
    </td>
    <td align="center" valign="top" width="4" background="images/dotlinev.gif"></td>
    <td align="center" valign="top" width="25%"><br>
      <table width="94%" border="0" cellspacing="0" cellpadding="3" class="chinese">
        <form name="form1" method="post" action="savefl.asp" target="_blank">
          <tr> 
            <td bordercolor="#0099FF" bgcolor="#FFFFFF"><span class="newshead"><strong>::</strong></span> 
              <strong><span class=unnamed1><font color="#0000FF">链接要求</font></span></strong></td>
          </tr>
          <tr> 
            <td bordercolor="#0099FF" bgcolor="#FFFFFF"><font color="#666666">1：站点必须美观大方，有一定的内容，具有发展潜力。<br>
              <br>
              2：申请后请尽快在您的贵站上加上我们的连接！如果满足以上要求，本站对于日ip流量等并无特殊要求。<br>
              <br>
              3：连接LOGO要求使用88×31大小的标准！如不符标准的LOGO将不被添加到连接中！<br>
              <br>
              4：如果Logo地址不填写，我们将会把它作为文本链接来录入数据库</font><font color="#999999">！<br>
              </font><br>
              <span class="newshead"><strong>::</strong></span> <strong><span class=unnamed1><font color="#0000FF">链接申请填写</font></span></strong> 
            </td>
          </tr>
          <tr> 
            <td> <font color="#666666">选择类别 
              <select name="flcat_id" id="flcat_id">
                <%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>
              <br>
              站点名称 
              <input type="text" name="fl_name" size="18" class="textarea">
              <br>
              站点地址 
              <input type="text" name="fl_url" size="18" class="textarea">
              <br>
              Logo地址</font> 
              <input type="text" name="fl_logo" size="18" class="textarea">
            </td>
          </tr>
          <tr> 
            <td align="center"> 
              <input type="submit" name="Submit" value="提交" class="button">
              <input type="reset" name="reset" value="清空" class="button">
            </td>
          </tr>
        </form>
      </table>
      <br>
      <table width="94%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><span class="newshead"><strong>::</strong></span> <strong><span class=unnamed1><font color="#0000FF">本站88*31LOGO链接</font></span></strong> 
          </td>
        </tr>
        <tr>
          <td height="46" align="center"><a href="http://y2k.9126.com" target="_blank"><img src="http://ken888.8u8.com/logo.gif" alt="蓝蓝天空" width="88" height="31" border="0"></a></td>
        </tr>
      </table> 
      <br>
      <table width="94%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td><span class="newshead"><strong>::</strong></span> <strong><span class=unnamed1><font color="#0000FF">本站 
            88*31 LOGO链接代码</font></span></strong> </td>
        </tr>
        <tr>
          <td height="64" align="center"><form name="form2" method="post" action="">
              <textarea class=testarea1 onmouseover=this.focus() onfocus=this.select() name=textfield3 rows=3><a href="http://y2k.9126.com/" target="_blank"><img src="http://ken888.8u8.com/logo.gif" width="88" height="31" border="0" alt=":::Art Rascal:::"></a></textarea>
            </form></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="1" width="551"></td>
    <td height="1" width="4"></td>
    <td height="1" width="205"></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>