高分求网页首页滚动新闻代码

来源：百度知道 编辑：UC知道 时间：2024/06/22 05:08:16
哪个大哥能帮我写段首页滚动图片新闻的代码或者程序
数据库是access
表是：Article
字段是ArticleID是新闻ID
字段passed是否首页滚动图片显示
字段DefaultPicUrl是首页滚动图片地址
字段title是标题
------------------------
程序名：Picarticle
参数：picalen (首页滚蛋显示图片新闻条数)
------------------------
下面是显示的效果的网页原码不过是静态的
<!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" />
<style type="text/css">
<!--
body{
padding:0px;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom:

用ASP最简单
<script language="javascript">
var imgUrl=new Array();
var imgLink=new Array();
var imgText=new Array();
var picNum=0;
<%
获取记入RS
i=1
x=RS.recordcount
while not RS.eof and i<=RS.recordcount
%>
imgUrl[<%=i%>]="<%=RS("pic1")%>";
imgLink[<%=i%>]="<%=RS("url1")%>";
imgText[<%=i%>]="<%=RS("title1")%>";
<%
RS.movenext
i=i+1
wend
RS.close
set RS=nothing
%>
function NextPic(){
if(picNum<<%=x%>) picNum++ ;//显示4个图片
else picNum=1;
if (document.all){
//下面注意，如果存在于FORM表单中，需要使用下面的方法，否则可直接使用name。
document.imgInit.filters.revealTrans.Transition=Math.floor(Math.random()*23);
document.imgInit.filters.revealTrans.apply();
document.imgInit.filters.revealTrans.play();
}
document.im