📄 tj0.asp
字号:
<body topmargin="0">
<div id=demo00 style=overflow:hidden;height:68px;width:555px;background:#ffffff;color:#ffffff>
<table cellspacing="0" cellpadding="0">
<td id=demo01 valign=top>
<TABLE width="555" border=0 cellPadding=0 cellSpacing=0 height="68">
<tr>
<% sql="select top 18 * from xinxi where yz=1 and tupian<>'0'and tuijian=1 order by fbsj desc,ID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有图片推荐信息</p>"
else
do while not rs.eof
%>
<td align="center">
<a title="<%=rs("biaoti")%>" target="_blank" href="xinximemo.asp?cnmai=<%=rs("id")%>">
<IMG src="uptupian/<%=rs("tupian")%>" width="84" height="64" border=1 style="border: 1px solid #FFFFFF; ; padding-left:2px; padding-right:2px" ></a></td>
<%
rs.movenext
loop
end if
rs.close
%>
</tr>
</TABLE>
</td>
<td id=demo02 valign=top></td>
</table>
</div>
<script>
var speed=30
demo02.innerHTML=demo01.innerHTML
function Marquee(){
if(demo02.offsetWidth-demo00.scrollLeft<=0)
demo00.scrollLeft-=demo01.offsetWidth
else{
demo00.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo00.onmouseover=function() {clearInterval(MyMar)}
demo00.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -