
<%If sHDP=0 Then%>
<script language="JavaScript1.1">
<!--
var slidespeed=3000
var slideimages=new Array(<%if Isarray(Ppic) Then%><%for i=0 to UBound(Ppic,2)%>"<%=Ppic(1,i)%>",<%Next%><%End if%>"/images/adimg/001.jpg")
var slidelinks=new Array(<%if Isarray(Ppic) Then%><%for i=0 to UBound(Ppic,2)%>"<%=Ppic(2,i)%>",<%Next%><%End if%>"###")

var imageholder=new Array()
var ie55=window.createPopup
for (i=0;i<slideimages.length;i++){
imageholder[i]=new Image()
imageholder[i].src=slideimages[i]
}

function gotoshow(){
window.location=slidelinks[whichlink]
}
//-->
</script>
<a href="javascript:gotoshow()"><img src="/images/adimg/001.jpg" title='<%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%>' name="slide" border=0 style="filter:progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)"></a>
<script language="JavaScript1.1">
<!--
var whichlink=0
var whichimage=0
var pixeldelay=(ie55)? document.images.slide.filters[0].duration*1000 : 0
function slideit(){
if (!document.images) return
if (ie55) document.images.slide.filters[0].apply()
document.images.slide.src=imageholder[whichimage].src
if (ie55) document.images.slide.filters[0].play()
whichlink=whichimage
whichimage=(whichimage<slideimages.length-1)? whichimage+1 : 0
setTimeout("slideit()",slidespeed+pixeldelay)
}
slideit()
//-->
</script>
<%Else%>
<%
'»ÃµÆÆ¬
Dim sPic
Set oRs = oConn.Execute("SELECT top 6 Id,Btitle,Bimg,Burl,Btxt  FROM [Lstbanner] where Btitle='»ÃµÆÆ¬' ORDER BY Id asc")
If Not oRs.EOF Then sPic= oRs.GetRows
Set oRs = Nothing
%>
<div id="KinSlideshow" style="visibility:hidden;" class="ads">
<%if Isarray(sPic) Then%>
<%for i=0 to UBound(sPic,2)%>
<a href="<%=sPic(3,i)%>" target="_blank"><img src="<%=sPic(2,i)%>" alt="<br><%=sPic(4,i)%>" width="965" height="300" /></a>
<%Next 
End if%>
</div>
<%End If%>