要排版,方便大家帮你看清楚你的代码
<div id="marquees">
<ul>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from messenger where Audit=1 and tj=true order by px, id desc",conn,1,1
if rs.eof then
response.Write("No date!")
else
do while not rs.eof
%>
<li> <img src="/img/dian.gif" /> <a href="/company/date.asp?id= <%=rs("id")%> " target="_blank"> <%=rs("companyname")%> </a> </a> </li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<!-- </marquee> -->
</ul>
</div>
<!-- 以下是javascript代码 -->
<script language="javascript">
marqueesHeight=268; //内容区高度
stopscroll=false; //这个变量控制是否停止滚动
with(marquees){
noWrap=true; //这句表内容区不自动换行
style.width=0; //于是我们可以将它的宽度设为0,因为它会被撑大
style.height=marqueesHeight;
style.overflowY="hidden"; //滚动条不可见
onmouseover=new Function("stopscroll=true"); //鼠标经过,停止滚动
onmouseout=new Function("stopscroll=false"); //鼠标离开,开始滚动
}
//这时候,内容区的高度是无法读取了。下面输出一个不可见的层"templayer",稍后将内容复制到里面:
document.write(' <div id="templayer" style="position:absolute;z- index:1;visibility:hidden"> </div> ');
function init(){ //初始化滚动内容
//多次复制原内容到"templayer",直到"templayer"的高度大于内容区高度:
while(templayer.offsetHeight <marqueesHeight){
templayer.innerHTML+=marquees.innerHTML;
} //把"templayer"的内容的“两倍”复制回原内容区:
marquees.innerHTML=templayer.innerHTML+templayer.innerHTML;
//设置连续超时,调用"scrollUp()"函数驱动滚动条:
setInterval("scrollUp()",20);
}
document.body.onload=init;
preTop=0; //这个变量用于判断滚动条是否已经到了尽头
function scrollUp(){ //滚动条的驱动函数
if(stopscroll==true) return; //如果变量"stopscroll"为真,则停止滚动
preTop=marquees.scrollTop; //记录滚动前的滚动条位置
marquees.scrollTop+=1; //滚动条向下移动一个像素
//如果滚动条不动了,则向上滚动到和当前画面一样的位置
//当然不仅如此,同样还要向下滚动一个像素(+1):
if(preTop==marquees.scrollTop){
marquees.scrollTop=templayer.offsetHeight-marqueesHeight+1;
}
}
</script>
</ul>
</div>
<div id="marqueed">
<ul>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from news where news_lb='行业资讯' order by news_time DESC , id desc"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.Write(" <li> 暂时没有数据! </li> ")
else
dim d
d=0
do while not rs.eof and d <=9
d=d+1
%>
<li> <img src="../img/dian.gif" /> <a href="/news/date.asp?lb= <%=server.urlencode(rs ("news_lb"))%> &i= <%=rs("id")%> " target="_blank" title=" <%=rs("news_title")%> "> <%=rs ("news_title")%> </a> </li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</ul>
</div>
<!-- 以下是javascript代码 -->
<script language="javascript">
marqueedHeight=125; //内容区高度
stopscrol=false; //这个变量控制是否停止滚动
with(marqueed){
noWra=true; //这句表内容区不自动换行
style.width=0; //于是我们可以将它的宽度设为0,因为它会被撑大
style.height=marqueedHeight;
style.overflowY="hidden"; //滚动条不可见
mouseover=new Function("stopscrol=true"); //鼠标经过,停止滚动
mouseout=new Function("stopscrol=false"); //鼠标离开,开始滚动
}
//这时候,内容区的高度是无法读取了。下面输出一个不可见的层"templayer",稍后将内容复制到里面:
document.write(' <div id="templay" style="position:absolute;z-index:1;visibility:hidden"> </div> ');
function inite(){ //初始化滚动内容
//多次复制原内容到"templayer",直到"templayer"的高度大于内容区高度:
while(templay.offsetHeight <marqueedHeight){
templay.innerHTML+=marqueed.innerHTML;
} //把"templayer"的内容的“两倍”复制回原内容区:
marqueed.innerHTML=templay.innerHTML+templay.innerHTML;
//设置连续超时,调用"scrollUp()"函数驱动滚动条:
setInterval("scroller()",20);
}
document.body.onload=inite;
pTop=0; //这个变量用于判断滚动条是否已经到了尽头
function scroller(){ //滚动条的驱动函数
if(stopscrol==true) return; //如果变量"stopscroll"为真,则停止滚动
pTop=marqueed.scrollTop; //记录滚动前的滚动条位置
marqueed.scrollTop+=1; //滚动条向下移动一个像素
//如果滚动条不动了,则向上滚动到和当前画面一样的位置
//当然不仅如此,同样还要向下滚动一个像素(+1):
if(pTop==marqueed.scrollTop){
marqueed.scrollTop=templay.offsetHeight-marqueedHeight+1;
}
}
</script>
</ul>
</div>
<div id="marquees">
<ul>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from messenger where Audit=1 and tj=true order by px, id desc",conn,1,1
if rs.eof then
response.Write("No date!")
else
do while not rs.eof
%>
<li> <img src="/img/dian.gif" /> <a href="/company/date.asp?id= <%=rs("id")%> " target="_blank"> <%=rs("companyname")%> </a> </a> </li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<!-- </marquee> -->
</ul>
</div>
<!-- 以下是javascript代码 -->
<script language="javascript">
marqueesHeight=268; //内容区高度
stopscroll=false; //这个变量控制是否停止滚动
with(marquees){
noWrap=true; //这句表内容区不自动换行
style.width=0; //于是我们可以将它的宽度设为0,因为它会被撑大
style.height=marqueesHeight;
style.overflowY="hidden"; //滚动条不可见
onmouseover=new Function("stopscroll=true"); //鼠标经过,停止滚动
onmouseout=new Function("stopscroll=false"); //鼠标离开,开始滚动
}
//这时候,内容区的高度是无法读取了。下面输出一个不可见的层"templayer",稍后将内容复制到里面:
document.write(' <div id="templayer" style="position:absolute;z- index:1;visibility:hidden"> </div> ');
function init(){ //初始化滚动内容
//多次复制原内容到"templayer",直到"templayer"的高度大于内容区高度:
while(templayer.offsetHeight <marqueesHeight){
templayer.innerHTML+=marquees.innerHTML;
} //把"templayer"的内容的“两倍”复制回原内容区:
marquees.innerHTML=templayer.innerHTML+templayer.innerHTML;
//设置连续超时,调用"scrollUp()"函数驱动滚动条:
setInterval("scrollUp()",20);
}
document.body.onload=init;
preTop=0; //这个变量用于判断滚动条是否已经到了尽头
function scrollUp(){ //滚动条的驱动函数
if(stopscroll==true) return; //如果变量"stopscroll"为真,则停止滚动
preTop=marquees.scrollTop; //记录滚动前的滚动条位置
marquees.scrollTop+=1; //滚动条向下移动一个像素
//如果滚动条不动了,则向上滚动到和当前画面一样的位置
//当然不仅如此,同样还要向下滚动一个像素(+1):
if(preTop==marquees.scrollTop){
marquees.scrollTop=templayer.offsetHeight-marqueesHeight+1;
}
}
</script>
</ul>
</div>
<div id="marqueed">
<ul>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from news where news_lb='行业资讯' order by news_time DESC , id desc"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.Write(" <li> 暂时没有数据! </li> ")
else
dim d
d=0
do while not rs.eof and d <=9
d=d+1
%>
<li> <img src="../img/dian.gif" /> <a href="/news/date.asp?lb= <%=server.urlencode(rs ("news_lb"))%> &i= <%=rs("id")%> " target="_blank" title=" <%=rs("news_title")%> "> <%=rs ("news_title")%> </a> </li>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</ul>
</div>
<!-- 以下是javascript代码 -->
<script language="javascript">
marqueedHeight=125; //内容区高度
stopscrol=false; //这个变量控制是否停止滚动
with(marqueed){
noWra=true; //这句表内容区不自动换行
style.width=0; //于是我们可以将它的宽度设为0,因为它会被撑大
style.height=marqueedHeight;
style.overflowY="hidden"; //滚动条不可见
mouseover=new Function("stopscrol=true"); //鼠标经过,停止滚动
mouseout=new Function("stopscrol=false"); //鼠标离开,开始滚动
}
//这时候,内容区的高度是无法读取了。下面输出一个不可见的层"templayer",稍后将内容复制到里面:
document.write(' <div id="templay" style="position:absolute;z-index:1;visibility:hidden"> </div> ');
function inite(){ //初始化滚动内容
//多次复制原内容到"templayer",直到"templayer"的高度大于内容区高度:
while(templay.offsetHeight <marqueedHeight){
templay.innerHTML+=marqueed.innerHTML;
} //把"templayer"的内容的“两倍”复制回原内容区:
marqueed.innerHTML=templay.innerHTML+templay.innerHTML;
//设置连续超时,调用"scrollUp()"函数驱动滚动条:
setInterval("scroller()",20);
}
document.body.onload=inite;
pTop=0; //这个变量用于判断滚动条是否已经到了尽头
function scroller(){ //滚动条的驱动函数
if(stopscrol==true) return; //如果变量"stopscroll"为真,则停止滚动
pTop=marqueed.scrollTop; //记录滚动前的滚动条位置
marqueed.scrollTop+=1; //滚动条向下移动一个像素
//如果滚动条不动了,则向上滚动到和当前画面一样的位置
//当然不仅如此,同样还要向下滚动一个像素(+1):
if(pTop==marqueed.scrollTop){
marqueed.scrollTop=templay.offsetHeight-marqueedHeight+1;
}
}
</script>
</ul>
</div>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货