男朋友生日创意礼物:asp问题,望大家帮下忙了

来源:百度文库 编辑:高考问答 时间:2024/05/03 12:29:55
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>文字无缝滚动的代码</title>
</head>

<body>
<div id="marquees">
<a href="#">你可曾有过无数的梦想,</a><br>
<br>
<a href="#">却在时光的流逝里幻灭 </a><br>
<br>
<a href="#">你可曾对未来期待憧憬,</a><br>
<br>
<a href="#">却在成长的岁月中迷失</a><br>
<br>
</div>
<script language="JavaScript">

marqueesHeight=200;
stopscroll=false;

with(marquees){
style.width=0;
style.height=marqueesHeight;
style.overflowX="visible";
style.overflowY="hidden";
noWrap=true;
onmouseover=new Function("stopscroll=true");
onmouseout=new Function("stopscroll=false");
}
document.write('<div id="templayer" style="position:absolute;z-index:1;visibility:hidden"></div>');

preTop=0; currentTop=0;

function init(){
templayer.innerHTML="";
while(templayer.offsetHeight<marqueesHeight){
templayer.innerHTML+=marquees.innerHTML;
}
marquees.innerHTML=templayer.innerHTML+templayer.innerHTML;
setInterval("scrollUp()",20);
}
document.body.onload=init;

function scrollUp(){
if(stopscroll==true) return;
preTop=marquees.scrollTop;
marquees.scrollTop+=1;
if(preTop==marquees.scrollTop){
marquees.scrollTop=templayer.offsetHeight-marqueesHeight;
marquees.scrollTop+=1;
}
}
</script>

</body>
</html>
这是一个新闻的滚动的代码,但是
新闻是动态的,是从数据库里面读出来,怎么把asp代码加在上面这段代码里面呀
呵呵,可以了,下面两位都回答正确了,我把分给哪位呀??不过还是要感谢两位了

<div id="marquees">
<%do while rs.eof=false%>
<a href="#"><%=rs("新闻标题")%></a><br>
<br>
<%
rs.movenext
loop
%>
</div>

<a href="#">你可曾有过无数的梦想,</a><br>
<br>
<a href="#">却在时光的流逝里幻灭 </a><br>
<br>
<a href="#">你可曾对未来期待憧憬,</a><br>
<br>
<a href="#">却在成长的岁月中迷失</a><br>
<br>
这些改成:
<%
set rs=server.createobject("adodb.recordset")
sql="select link,title from articles where order by date desc "
rs.open sql,conn,2,3
if not rs.eof then
while not rs.eof
%>
<a href='<%=rs("link")%>'><%=rs("title")%></a><br/>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>