zoom.asp
来自「功能简介: 1) 首页投票调查系统 2)FLASH导航清新直观(带FLA源文件」· ASP 代码 · 共 75 行
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
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?