一页上显示多个图片自动切换

< %    
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 ) " " & cint (i + 1 ) " )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('pic');} "    
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     
%
>     

你可能感兴趣的:(F),ASP)