flash新闻图片滚动程序整合到网站的问题?

来源:百度知道 编辑:UC知道 时间:2024/05/15 08:46:13
难处:
现在想把这个flash新闻图片滚动程序整合到网站上,添加了以下代码,但是会出现语法错误。但真正的问题是我不知道怎么写代码来读取记录并把这些要的记录用数组存起来,然后给flash读取。

需要的字段如下
picname 新闻的图片名称
NewsID 新闻的序号
title 新闻的标题

<%
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select * from news where picnews=1 Order by NewsID"
rs3.Open rs3.Source,conn,1,1

dim imgUrl()
dim imgLink()
dim imgText()

for i= 1 to 5

ReDim Preserve imgUrl(i) as string
ReDim Preserve imgLink(i) as string
ReDim Preserve imgText(i) as string

imgUrl(i)="uploadfile/<%=rs3("picname")%>"
imgLink(i)="ReadNews.asp?NewsID=<%=rs3("NewsID")%>"
imgText(i)="<%=rs3("title")%>"
next

%>

<script language="JavaScript">
var focus_width=200
var focus_height=150
var text_height=21
var swf_heig

将你写的这些东西删掉for i= 1 to 5

ReDim Preserve imgUrl(i) as string
ReDim Preserve imgLink(i) as string
ReDim Preserve imgText(i) as string

imgUrl(i)="uploadfile/<%=rs3("picname")%>"
imgLink(i)="ReadNews.asp?NewsID=<%=rs3("NewsID")%>"
imgText(i)="<%=rs3("title")%>"
next
主要是获取地址的级联:
打开数据库后这样写就可以:
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select * from news where picnews=1 Order by NewsID"
rs3.Open rs3.Source,conn,1,1
do while not rs3.eof
pics=pics+'|'+"uploadfile/"+<%=rs3("picname")%>
links=....
texts=......
loop
这样还可以无限添加图片,后台假如有多张图片,右以随意控制只显示其中的几张,只不过需要在存图片的表里面再添加一个字段以标识是否在前台显示

你这样,做完图片的滚动以后,在这个层上新建一个层,画一个矩形,根舞台一样大,然后把它转化为【按钮】元件,把alpha值调为0(即透明),然后向他添加脚本:
on (rollOver){
stop();
}
就行了,然后直接把flash放到网页上