zoom.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 75 行

<%
sub index_coolsites()

sql="select top "&indexcoolsite&" * from coolsites where  isbest=1  order by cs_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
 dim n
 n=indexcoolsite
%>

      <table width="575" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
        <tr> 
<%do while not rs.eof%>
          
        <td align="center" bgcolor="#FFFFFF"><a href="redirectcs.asp?cs_id=<%=rs("cs_id")%>" target="_blank" title="<%=rs("cs_name")%>-<%=rs("cs_url")%>,已被点击<%=rs("cs_count")%>次"> 
          <font color="#666666"><img src="<%=rs("cs_pic")%>" width="120" height="90" border="0"><br>
          <%=rs("cs_name")%></font></a></td> 
<%
n=n-1
if n<1 then exit do
rs.movenext
loop%>
</tr>
<%if rs.bof and rs.eof then%><font color="#666666"> </font>
        <tr> 
          <td align="center" height="25" class="chinese" bgcolor="#FFFFFF"><font color="#666666">当前没有酷站！</td>
        </tr>
<%end if%><font color="#666666"> </font> 
       
      </table>

<%
rs.close
set rs=nothing
end sub

sub index_flink()

sql="select top "&indexfriendlink&" * from friendlink where  passed=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1 
 dim j
 j=1
%>
  
<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<%do while not rs.eof%>
     
    <td bgcolor="#FFFFFF" align="center" ><a href="<%=rs("fl_url")%>" title="欢迎进入[<%=rs("fl_name")%>]网站" target="_blank"><font color="#666666"><%=rs("fl_name")%></font></a> 
      <%if j mod 10 = 0 then
				response.write "</td></tr><tr>"
				else
				response.write "</td>"
				end if
				j=j+1
rs.movenext
loop
%>
  </tr>
<%
if rs.eof and rs.bof then%><font color="#666666"> </font>
  <tr> 
    <td bgcolor="#FFFFFF" align="center" height="40" class="chinese">
    <font color="#666666">当前没有链接</td>
  </tr>
<%end if%>
</table>
  </center>
</div>

  <%    
end sub
%>