一页上显示多个图片自动切换
<
%
dim
i,j,pic,pagenum
if
cint
(request(
"
id
"
))
<=
0
then
sql
=
"
select * from news where type=0 order by orders,id desc
"
else
sql
=
"
select * from news where id=
"
&
cint
(request(
"
id
"
))
end
if
rs.open sql,conn,
1
,
1
rs.pagesize
=
5
if
cint
(request(
"
page
"
))
>
rs.pagecount
or
cint
(request(
"
page
"
))
<=
0
then
pagenum
=
1
else
pagenum
=
cint
(request(
"
page
"
))
end
if
i
=
0
rs.move (pagenum
-
1
)
*
rs.pagesize
do
while
not
(rs.eof
or
i
>=
rs.pagesize) %
>
<
table width
=
"
98%
"
border
=
"
0
"
align
=
"
center
"
cellpadding
=
"
0
"
cellspacing
=
"
0
"
>
<
tr
><
td
><
hr style
=
"
height:1px
"
>
td
>
tr
>
<
tr
><
td
>
<
% response.write
"
"
&
rs(
"
title
"
)
"
"
sql
=
"
select * from newspic where parent=
"
&
rs(
"
id
"
)
"
order by orders,id desc
"
rs2.open sql,conn,
1
,
1
if
not
rs2.eof
then
response.write
"
response.write
"
var imgUrl
"
&
cint
(i
+
1
)
"
=new Array();
"
response.write
"
var imgLink
"
&
cint
(i
+
1
)
"
=new Array();
"
response.write
"
var text
"
&
cint
(i
+
1
)
"
=new Array();
"
response.write
"
var adNum
"
&
cint
(i
+
1
)
"
=0;
"
response.write
"
var i
"
&
cint
(i
+
1
)
"
=0;
"
j
=
0
do
while
not
rs2.eof j
=
j
+
1
response.write
"
imgUrl
"
&
cint
(i
+
1
)
"
[
"
&
j
"
]=""../pic/
"
&
rs2(
"
pic
"
)
"
"";
"
response.write
"
imgLink
"
&
cint
(i
+
1
)
"
[
"
&
j
"
]=""../pic/
"
&
rs2(
"
pic
"
)
"
"";
"
response.write
"
text
"
&
cint
(i
+
1
)
"
[
"
&
j
"
]="""";
"
rs2.movenext
loop
response.write
"
var imgPre
"
&
cint
(i
+
1
)
"
=new Array();
"
response.write
"
var j
"
&
cint
(i
+
1
)
"
=0;
"
response.write
"
for (i
"
&
cint
(i
+
1
)
"
=1;i
"
&
cint
(i
+
1
)
"
<=
"
&
j
"
;i
"
&
cint
(i
+
1
)
"
++) {
"
response.write
"
if( (imgUrl
"
&
cint
(i
+
1
)
"
[i
"
&
cint
(i
+
1
)
"
]!='') && (imgLink
"
&
cint
(i
+
1
)
"
[i
"
&
cint
(i
+
1
)
"
]!='') ) {
"
response.write
"
j
"
&
cint
(i
+
1
)
"
++;
"
response.write
"
} else {
"
response.write
"
break;
"
response.write
"
}
"
response.write
"
}
"
response.write
"
function playTran
"
&
cint
(i
+
1
)
"
(){
"
response.write
"
if (document.all)
"
response.write
"
imgInit
"
&
cint
(i
+
1
)
"
.filters.revealTrans.play();
"
response.write
"
}
"
response.write
"
var key
"
&
cint
(i
+
1
)
"
=0;
"
response.write
"
function nextAd
"
&
cint
(i
+
1
)
"
(){
"
response.write
"
if(adNum
"
&
cint
(i
+
1
)
"
response.write
"
else adNum
"
&
cint
(i
+
1
)
"
=1;
"
response.write
"
if( key
"
&
cint
(i
+
1
)
"
==0 ){
"
response.write
"
key
"
&
cint
(i
+
1
)
"
=1;
"
response.write
"
} else if (document.all){
"
response.write
"
imgInit
"
&
cint
(i
+
1
)
"
.filters.revealTrans.Transition=23;
"
response.write
"
imgInit
"
&
cint
(i
+
1
)
"
.filters.revealTrans.apply();
"
response.write
"
}
"
response.write
"
document.images.imgInit
"
&
cint
(i
+
1
)
"
.src=imgUrl
"
&
cint
(i
+
1
)
"
[adNum
"
&
cint
(i
+
1
)
"
];
"
response.write
"
playTran
"
&
cint
(i
+
1
)
"
();
"
response.write
"
theTimer=setTimeout(""nextAd
"
&
cint
(i
+
1
)
"
()"", 4000);
"
response.write
"
}
"
response.write
"
function goUrl
"
&
cint
(i
+
1
)
"
(XXX){
"
response.write
"
jumpUrl
"
&
cint
(i
+
1
)
"
=imgLink
"
&
cint
(i
+
1
)
"
[adNum
"
&
cint
(i
+
1
)
"
];
"
response.write
"
jumpTarget
"
&
cint
(i
+
1
)
"
='_blank';
"
response.write
"
if (jumpUrl
"
&
cint
(i
+
1
)
"
!= ''){
"
response.write
"
if (jumpTarget
"
&
cint
(i
+
1
)
"
!= '')
"
response.write
"
{var newwin
"
&
cint
(i
+
1
)
"
;
"
response.write
"
newwin
"
&
cint
(i
+
1
)
"
= window.open('text.htm','_blank','location=0,status=0,toolbar=0,menubar=0,scrollbars=auto,directories=0,resizable=0,width=500,height=300,center=1');
"
response.write
"
newwin
"
&
cint
(i
+
1
)
"
.document.writeln('response.write
"
else
"
response.write
"
location.href=jumpUrl
"
&
cint
(i
+
1
)
"
;
"
response.write
"
}
"
response.write
"
}
"
%
>
td
>
tr
>
<
tr
><
td
>
<
a href
=
"
#
"
onClick
=
"
javascript:goUrl<%=cint(i+1)%>(imgLink<%=cint(i+1)%>[adNum<%=cint(i+1)%>])
"
><
img style
=
"
float:<% if rs(
"
click
"
)=0 then response.write
"
left
"
else response.write
"
right
"
end if %>;FILTER: revealTrans(duration=2,transition=20);border-color:#000000;border-width:1px;margin:8px
"
src
=
"
javascript:nextAd<%=cint(i+1)%>()
"
name
=
imgInit
<
%
=
cint
(i
+
1
)%
>>
a
>
<
%
else
response.write
"
"
end
if
response.write rs(
"
text
"
) %
>
td
>
tr
>
table
>
<
% rs2.close i
=
i
+
1
rs.movenext
loop
%
>