📄 linka.asp
字号:
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<%
const TbMax=7
dim tbsql
dim tbrs
tbsql="select * from banner where bz=5 order by linkid desc"
Set tbrs= Server.CreateObject("ADODB.Recordset")
tbrs.open tbsql,conn,1,1
b=0
%>
document.write('<marquee id="yczj" onmouseover="vbscript:yczj.stop()" style="FONT-SIZE: 9pt; LEFT: 1px; MARGIN-LEFT: 2px; TOP: 2px;TEXT-ALIGN: left" onmouseout="vbscript:yczj.Start()" scrollAmount="2" direction="left" behavior="alternate" scrolldelay="100">');
<%do while not tbrs.eof%>
document.write('<a target="_blank" href="<%=tbrs("web")%>"><img border=0 src="<%=tbrs("picurl")%>" alt="<%=tbrs("deseriptor")%>" width="88" height="31" style="border: 0px solid #000000"></a> ');
<%b=b+1
if b>=TbMax then exit do
tbrs.movenext
loop
tbrs.close
set tbrs=nothing
conn.close
set conn=nothing
%>
document.write('</marquee>');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -