<%
dim startime
startime=timer()
Server.ScriptTimeOut=150
Set Conn=Server.CreateObject("ADODB.Connection")
str="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")
conn.open str
%>//连接数据库
//以下调用JS
<script language=JavaScript>
<!-- // BannerAD
var bannerAD=new Array(); //定义图片Array
var bannerADlink=new Array(); //定义连接地址Array
var bannerTitle=new Array(); //定义标题Array
var adNum=0; //赋值
//以下从数据库中读取信息并通过循环赋值给上边定义的图片、链节地址和标题Array
<%
set rs = conn.execute("select top 6 img,url,title from img order by id desc")
i=0
img1=""&rs("img")&""
do while not rs.eof and i <= 6
response.write "bannerAD["&i&"]='"&rs("img")&"';"&vbCrLf
response.write "bannerADlink["&i&"]='"&rs("url")&"';"&vbCrLf
response.write "bannerTitle["&i&"]='"&left(rs("title"),16)&"';"&vbCrLf
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%>
var preloadedimages=new Array(); //将new Array()的值赋给preloadedimages
for (i=1;i<bannerAD.length;i++){
preloadedimages=new Image();
preloadedimages.src=bannerAD;
}
//以下是定义的函数
function setTransition(){
if (document.all){
bannerADrotator.filters.revealTrans.Transition=Math.floor(Math.random()*23);
bannerADrotator.filters.revealTrans.apply();
}
}
function playTransition(){
if (document.all)
bannerADrotator.filters.revealTrans.play()
}