coolsites_body.asp

ASP源码

	%><font color="#808080">
              </tr>
              <%numrows=numrows-1
loop
if rs2.eof and rs2.bof then%> </font>
              <tr> 
                <td bgcolor="#F5F5F5" align="center" class="chinese">
                <font color="#808080">当前该分类中还没有链接！</td>
              </tr>
              <%end if
rs2.close
set rs2=nothing
%> </font>
            </table>
          </td>
        </tr>
      </table>
      <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#808080"> </font>
      <table width="98%" border="0" cellspacing="1" cellpadding="10" bgcolor="#E8E8E8" align="center">
        <tr> 
          <td bgcolor="#F5F5F5" align="center" class="chinese">
          <font color="#808080">当前没有友情链接！</font></td>
        </tr>
      </table>
      <%end if%><font color="#808080"> </font><font color="#808080">
      <br>
      <br>
      </font>
    </td>
    <td align="center" valign="top" width="1" background="images/dotlinev.gif"></td>
    <td align="center" valign="top" width="205"> 
      <table width="96%" border="0" cellspacing="0" cellpadding="10" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#EFEFEF" align="center" class="chinese" background="images/pic000/c007.jpg">
          <font color="#808080">酷站分类</font></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF">
        <tr> 
          <td bgcolor="#F5F5F5" align="center"> 
            <table width="85%" border="0" cellspacing="0" cellpadding="4">
              <%sql="select * from cscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><font color="#808080"> </font>
              <tr> 
                <td align="right" class="chinese"><a href="showcs.asp?cscat_id=<%=rs("cscat_id")%>"><%=rs("cscat_name")%></a></td>
              </tr>
              <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#808080"> </font>
              <tr> 
                <td align="right" class="chinese"><font color="#808080">当前还没有酷站分类！</td>
              </tr>
              <%end if%> </font>
            </table>
          </td>
        </tr>
      </table>
      <font color="#808080">
      <br>
      </font>
      <table width="96%" border="0" cellspacing="0" cellpadding="10" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#EFEFEF" align="center" class="chinese" background="images/pic000/c007.jpg">
          <font color="#808080">酷站点击Top 2</font></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF">
        <tr> 
          <td bgcolor="#FFFFFF" align="center"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="4">
              <%sql="SELECT top 2 * FROM coolsites ORDER by cs_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><font color="#808080"> </font>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5"><font color="#808080"><img src="<%=rs("cs_pic")%>"></font></td>
              </tr>
              <tr> 
                <td class="chinese" bgcolor="#F5F5F5"><font color="#808080">网站名称：<%=rs("cs_name")%><br>
                  网站地址：</font><a href="redirectcs.asp?cs_id=<%=rs("cs_id")%>" target="_blank"><font color="#808080"><%=rs("cs_url")%></font></a><font color="#808080"><br>
                  加入时间：<%=rs("cs_date")%><br>点击次数：<%=rs("cs_count")%>
                </td>
              </tr>
              <%rs.movenext
loop
if rs.eof and rs.bof then%> </font>
              <tr> 
                <td align="center" class="chinese" bgcolor="#F5F5F5"><font color="#808080">当前还没有酷站</td>
              </tr>
              <%end if%> </font>
            </table>
          </td>
        </tr>
      </table>
      <font color="#808080">
      <br>
      </font>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td background="images/dotlineh.gif" height="1"></td>
        </tr>
      </table>
      <font color="#808080">
      <br>
      </font>
      <table width="94%" border="0" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" class="chinese" style="border-collapse: collapse" bordercolor="#111111">
        <form name="form1" method="post" action="savefl.asp" target="_blank">
          <tr> 
            <td bgcolor="#FFFFFF" height="22" background="images/pic000/c005.jpg"><font color="#808080"><span class="newshead">::</span> <span class=unnamed1>链接申请</span></font></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" height="10">　</td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5"><font color="#808080">
            站点必须美观大方，有一定的内容，具有发展潜力……</font><p><span lang="zh-cn">
            <font color="#808080">除在此显示您的链接外，系统将把最新的若干个链接显示在本站首页</font></span></p>
            <p><font color="#808080">
            欢迎您提交贵站资料！<br>
              酷站推荐请直接联系我们……</font></p>
            <p>
            <span lang="zh-cn"><font color="#808080">
            请您</font><font color="#FF0000">提交前</font><font color="#808080">加入</font></span><font color="#808080">CICHINA.com<span lang="zh-cn">的相应链接，谢谢！</span></font><p>
            　</td>
          </tr>
          <tr>
          <td class="newshead" bgcolor="#FFFFFF" height="17" style="border-style: none; border-width: medium" background="images/pic000/c005.jpg">
          <font color="#666666">:: 本站LOGO</font></td>
          </tr>
          <tr>
          <td class="newshead" bgcolor="#F5F5F5" height="47" style="border-style: none; border-width: medium">
          <p align="center"><font color="#666666">
          <a title="CICHINA.com" target="_blank" href="http://www.cichina.com/images/pic000/8831CIlogo.gif">
          <img border="0" src="images/pic000/8831CIlogo.gif"></a></font></td>
          </tr>
          <tr>
          <td align="right" height="17" valign="bottom" bgcolor="#F5F5F5" style="border-style: none; border-width: medium">
          <p align="left"><font color="#808080">网站名称：CICHINA.com<br>
          网站地址：http://www.cichina.com</font></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5"> <font color="#808080">选择类别
<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>
              图标地址
              <input type="text" name="fl_logo" size="18" class="textarea">
            </font>
            </td>
          </tr>
          <tr> 
            <td align="center" bgcolor="#F5F5F5"> 
              <font color="#808080"> 
              <input type="submit" name="Submit" value="提交" class="button">
              <input type="reset" name="reset" value="清空" class="button"> </font>
            </td>
          </tr>
        </form>
      </table>
      <font color="#808080">
      <br>
      <br>
      </font>
    </td>
  </tr>
  <tr> 
    <td background="images/dotlineh.gif" height="1" width="544"></td>
    <td background="images/dotlineh.gif" height="1" width="1"></td>
    <td background="images/dotlineh.gif" height="1" width="205"></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
end sub%>