谁能帮我让这些文字向上滚动

来源:百度知道 编辑:UC知道 时间:2024/05/27 00:44:52
<% dim rs4911,iee
set rs4911=server.createobject("adodb.recordset")
rs4911.open "select top 4 * from [shangjia] where yz=1 and tj='stui' order by fbsj desc",conn,1,1
if rs4911.recordcount=0 then
response.write "暂无推荐商家"
else
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr>")
iee=0
while not rs4911.eof
iee=iee+1
Response.Write "<td height='18'> <img border=""0"" src=""indeximg/to.gif""> <a href=shanginfo.asp?class1="&rs4911("class1")&"&class2="&rs4911("class2")&"&fox=2 target=""_self""><b>"&left(rs4911("biaoti"),16)&"</b></a></td>"
Response.Write "<tr><td height='18'> 电话:"&rs4911("dianhua&quo

在你程序前加<marquee width="100%" height="" scrollamount="2" onMouseOver="this.stop()" onMouseOut="this.start()" direction="up">,其中width和height根据周边实际情况设定。程序后加</marquee>