📄 links.asp
字号:
<!--#include file="conn.asp"-->
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<body background="../images/bg_dot.gif">
<%
set rs=conn.execute("select id,n1,n2,n3 from setos where id=1")
tt=rs("n2")
whow=rs("n3")
rs.close
set rs=server.createobject("adodb.recordset")
if whow then
sql="select * from links where ok=true order by webtop,id"
else
sql="select * from links order by webtop,id"
end if
rs.open sql,conn,3,1
%>
<MARQUEE align=center direction=right behavior=alternate onmouseout=this.start() onmouseover=this.stop()
scrollAmount=4 width="778" border="0" style="color: #8CCF9C">
<TABLE background="../images/bg_dot.gif" cellSpacing=3 cellPadding=0 width=778
align=center border=0>
<TBODY><TR>
<%
i=0
do while i<tt
%>
<TD>
<TABLE background="../images/bg_dot.gif" cellSpacing=3 cellPadding=0 width=88
align=center border=0>
<TBODY>
<TR>
<%
if rs("weblogo")<>"" then
response.write("<TD align=middle bgColor=#ffffff height=31><a href=goto.asp?id="&rs("id")&" target=_blank><img src="&rs("weblogo")&" border=0 width=88 height=31 title="&rs("webbio")&"></a></td>")
else
response.write("<TD align=middle bgColor=#ffffff height=31><a href=goto.asp?id="&rs("id")&" target=_blank title="&rs("webbio")&">"&rs("webname")&"</a></td>")
end if
%>
</TR>
<TBODY></TBODY></TABLE>
</TD>
<%
i=i+1
rs.movenext
if rs.eof then exit do
loop
%>
</TR><TBODY></TBODY></TABLE></MARQUEE>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -