请问我想把一个滚动的字幕的信息从数据库中调用应该怎么实现?

ningbao 2003-11-27 03:20:40

比如说我下面的是一个滚动字幕的代码,我想让message这个变量显示出的是数库中所有信息要怎么实现,我是想让他滚动一次显示库中一行信息.目前只能显示一行信息,我要怎么才能动态的显示啊?更主要的是小弟想知道javascript中怎么放asp的东西.
<SCRIPT language=JavaScript1.2>
var message="<%=rs("proname")%>"
var neonbasecolor="#FFFFFF"
var neontextcolor="red"
var flashspeed=200 //in milliseconds

var n=0
if (document.all){
document.write('<a href=http://2shou.sina.com.cn/ target=_blank><font color="'+neonbasecolor+'">')
for (m=0;m<message.length;m++)
document.write('<span id="neonlight">'+message.charAt(m)+'</span>')
document.write('</font></a>')

//cache reference to neonlight array
var tempref=document.all.neonlight
}
else
document.write(message)

function neon(){

//Change all letters to base color
if (n==0){
for (m=0;m<message.length;m++)
tempref[m].style.color=neonbasecolor
}

//cycle through and change individual letters to neon color
tempref[n].style.color=neontextcolor

if (n<tempref.length-1)
n++
else{
n=0
clearInterval(flashing)
setTimeout("beginneon()",1500)
return
}
}

function beginneon(){
if (document.all)
flashing=setInterval("neon()",flashspeed)
}
beginneon()

</SCRIPT>

...全文

96 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

youthwhisper 2004-01-16

打赏
举报

如何从金山词霸中获取单词信息,做一个'每日一词'滚动的字幕?

超级大笨狼 2004-01-15

打赏
举报

为什么我不能夹起尾巴做狼呢？因为我就是江湖上失散多年，赫赫有名的超级大笨狼！！
顺便兜售笨狼牌计算器JS和VBS型，拆迁大甩卖！Js型：
<input id=t><p id=p></p>
<button onclick='try{t.value=eval(t.value)}catch(e){}'>=</button>
<button onclick='t.value=""'>C</button>
<SCRIPT>
for(i=42;i<58; i++)if(i!=44)p.innerHTML=p.innerHTML + "<button onclick='t.value=t.value + this.value'>" + String.fromCharCode(i) + "</button>"
</SCRIPT>

按钮完全的笨狼牌计算器vbs型，web史上代码最少的计算器！
<input id=t><p id=p></p>
<button onclick='vbs:on error resume next:t.value=eval(t.value)'>=</button>
<button onclick='t.value=""'>C</button>
<SCRIPT LANGUAGE=vbs >
for i=42 to 57
if i<>44 then p.innerHTML=p.innerHTML & "<button onclick='vbs:t.value=t.value & me.value'>" & chr(i) & "</button>"
next
</SCRIPT>

超级大笨狼 2004-01-15

打赏
举报

灌水我也最能拉，我是web版的水王！我可以连续灌~~~
我灌灌灌灌灌，好比浪涛！~~~

超级大笨狼 2004-01-15

打赏
举报

写这个我最能拉，不用看唱本

超级大笨狼 2004-01-15

打赏
举报

演示：
http://www.adr.gov.cn/download/gdzm/show.asp

超级大笨狼 2004-01-15

打赏
举报

下载：http://www.adr.gov.cn/download/滚动字幕.rar

超级大笨狼 2004-01-15

打赏
举报

文件1,显示show.asp：
<%
Dim Cn,Rs
Dim SQL,StrDSN
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db3.mdb")
Cn.Open strDSN
SQL="select top 1 * from Tbnews order by id desc"
Rs.Open SQL,cn,3,2
%>
<marquee id=wnglj direction=up onmouseover="vbs:wnglj.stop" onmouseout="vbs:wnglj.start"><%=rs("news")%><br><%=rs("date")%></marquee>
<%
Rs.Close
Cn.Close
set rs=nothing
set cn=nothing
%>
文件2,admin.asp管理界面
<form action="save.asp">
<textarea name="textarea" style="width:500;height:500"></textarea>
<input type="submit" name="Submit" value="提交">
</form>
文件3,save.asp添加
<%
dim news
news=Request("textarea")

Dim Cn,Rs
Dim SQL,StrDSN
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db3.mdb")
Cn.Open strDSN
SQL="select * from Tbnews "
Rs.Open SQL,cn,3,2
Rs.AddNew
rs("news")=news
rs("date")=date()
Rs.Update
Rs.Close
randomize
Response.Redirect "show.asp?rnd=" & rnd
%>

agai 2004-01-15

打赏
举报

这是一个别人写的滚动字幕的代码，可是每周期都有一个空幕，不是很理想。
'程序制作：快乐的茄子
'你可以随便改变，随意传播，但是请保留这段文字。
'有任何问题，请到http://www.btgx.com金钥匙论坛提出。
'response.buffer=true
'Response.Expires=0
%>


<%

table="gg"

sql="select * from " & table
set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql,conn

%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD>
<BODY link="#FF0000" vlink="#FF0000" alink="#FF0000">
<p><font color="#FF0000">滚动公告 <font size="2"><a href="login.asp">管理</a></font></font></p>
<p>
<SCRIPT language=JavaScript>

</SCRIPT>
</p>
<SPAN
style="WIDTH: 200px; HEIGHT: 100px; borderWidth: 1; borderColor: red"><ILAYER
visibility="hide" bgcolor="black" name="slider1" height="100" width="300"><LAYER
onmouseover=sspeed=0; onmouseout=sspeed=2 name="slider2"></LAYER></ILAYER>
<SCRIPT language=JavaScript>
if (document.all){
document.writeln('<marquee id="ieslider" scrollAmount=2 width=200 height=100 direction=up style="border:1 solid red;background-color:#ffffff">')
document.writeln(wholemessage)
ieslider.onmouseover=new Function("ieslider.scrollAmount=0")
ieslider.onmouseout=new Function("if (document.readyState=='complete') ieslider.scrollAmount=2")
document.write('</marquee>')
}
if (document.getElementById&&!document.all){
document.write('<div style="position:relative;overflow:hidden;width:200;height:100;clip:rect(0 302 102 0); background-color:black;border:1px solid red;" onMouseover="sspeed=0;" onMouseout="sspeed=2">')
document.write('<div id="slider" style="position:relative;width:&{swidth};">')
document.write('</div></div>')
}
</SCRIPT>
</SPAN> </BODY></HTML>

leon168 2003-11-27