<!--#include file="tmp.asp"-->
<!--#include file="function.asp"-->
<!--动态幻灯片原创作者：wzzthz，整理修改：kinglee,e9656,base-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="中极速网络">
<title><%=jjgn%></title>
<LINK href=news.css rel=stylesheet>
<link rel="Shortcut Icon" href="ft.ico"><!--IE地址栏前换成自己的图标--> 
<link rel="Bookmark" href="ft.ico"><!--可以在收藏夹中显示出你的图标-->
<% dim mm_id,mm_pic,mm_topic,mm_i,mm_id0,mm_topic0,mm_temp1,mm_temp2,mm_temp3  
mm_i=0   
mm_id0=0 
set rs3=server.CreateObject("ADODB.RecordSet") 
rs3.Source="select top 10 *  from "& db_News_Table &" where picnews=1 and goodnews=1 and checkked=1 and picname is not null order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1   
do while not rs3.eof    
mm_id=rs3("Newsid")     
mm_pic=rs3("picname")     
mm_pic=mm_pic    
mm_topic=rs3("title")   
mm_topic=mm_topic         
if instr(mm_pic,"://")<1 then   
mm_pic=mm_pic    
end if     
if mm_i=0 then  
mm_id0=rs3("Newsid")   
mm_topic0=rs3("title")     
end if     
mm_temp1= mm_temp1&"uploadfile/"&mm_pic&"," 
mm_temp2= mm_temp2&"rnplay.asp?newsid="&mm_id&"," 
mm_temp3= mm_temp3&""&mm_topic&","
mm_i=mm_i+1   
rs3.movenext 
loop  
rs3.close 
if instr(right(mm_temp1,1),",")>0 then  
mm_temp1=left(mm_temp1,len(mm_temp1)-1)  
mm_temp2=left(mm_temp2,len(mm_temp1)-1) 
mm_temp3=left(mm_temp3,len(mm_temp1)-1)  
end if%> 

 




<table width="580"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10"></td>
    <td width="10"><table width="169" border="0" align="center" cellpadding="3" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse">
 
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF">

 <SCRIPT language="VBScript"> 
 Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr 
 FileList = "<%=mm_temp1%>" 
 LinkList = "<%=mm_temp2%>" 
 TxtList = "<%=mm_temp3%>" 
 FileListArr = Split(FileList,",") 
 LinkArr = Split(LinkList,",") 
 TxtListArr = Split(TxtList,",") 
 Dim CanPlay 
 CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 
 Dim FilterStr 
  FilterStr = "RevealTrans(duration=2,transition=23)" 
  FilterStr = FilterStr + ";BlendTrans(duration=2)" 
  If CanPlay Then 
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2,gradientSize=0.25,motion=forward )"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(duration=2)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(duration=2,bands=1,slideStyle=SWAP)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duration=2,wipeStyle=CLOCK)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)"
  Else 
   Msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。",64 
  End If 
 Dim FilterArr 
 FilterArr = Split(FilterStr,";") 
 Dim PlayImg_M 
 PlayImg_M = 5 * 1000  '切换时间（毫秒） 
 Dim mmm 
 mmm = 1 
 Sub ChangeImg 
  Do While FileListArr(mmm)="" 
  mmm = mmm + 1 
  If mmm>UBound(FileListArr) Then mmm = 0 
  Loop 
  Dim J4 
  If mmm>UBound(FileListArr) Then mmm = 0 
  Randomize 
  J4 = Int(Rnd * (UBound(FilterArr)+1)) 
  Img.style.filter = FilterArr(J4) 
  Img.filters(0).Apply 
  Img.Src = FileListArr(mmm) 
  Img.filters(0).play 
  Link.Href = LinkArr(mmm) 
  Txt.filters(0).Apply 
  Txt.innerHTML = TxtListArr(mmm) 
  Txt.filters(0).play 
  mmm = mmm + 1 
  If mmm>UBound(FileListArr) Then mmm = 0 
  TempImg.Src = FileListArr(mmm) 
  TempLink.Href = LinkArr(mmm) 
  SetTimeout "ChangeImg", PlayImg_M,"VBScript" 
 End Sub 
</SCRIPT>
<TABLE width=200 border=0 align="center" cellPadding=0 cellSpacing=0>
		
			
			<TR>
				<TD align="center" valign="middle">
						<TABLE width="169" align="center" class=56 style="border-left: 1px solid #cccccc; border-top: 1px solid #cccccc; border-bottom: 1px solid #cccccc; border-right: 1px solid #cccccc ">														
							<TR ID="NoScript">
								<TD Align="Center" Style="Color:White">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。
								</TD>
							</TR> 
								<TD Align="Center" Style="Display:none" ID="CanRunScript"><a id="Link" " target=_blank"><Img ID="Img"  width="200" Height="150" Border="0" ></a>
								</TD>
								<TD Style="Display:none"><a id=TempLink " target=_blank"><Img ID="TempImg" Width="1" Height="1" Border="0"></a>
								</TD>
							 <TR>
								<TD HEIGHT="100%"  Align="Center" vAlign="Center"><div ID="Txt"style="PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); POSITION:"><%=mm_topic0%></div>
						        </TD>
							 </tr>
		          </TABLE>		

                        <Script Language="VBScript"> 
 NoScript.Style.Display = "none" 
 CanRunScript.Style.Display = "" 
 Img.Src = FileListArr(0) 
 Link.Href = LinkArr(0) 
 SetTimeout "ChangeImg", PlayImg_M,"VBScript" 
</Script> 
			  </TD>
								
		</TR>
											
	</TABLE>
    <div align="center"></div>
	</tr>
	<tr bgcolor="#FFFFFF" >
		<td colspan="2" background="images/t1.gif" align="left" valign="top"></td>
	</tr>
 
</table></td>
    <td>&nbsp;</td>
	<td width=2   background="images/t.gif">&nbsp;</td>
    <td valign="top"><% set rs9=server.CreateObject("ADODB.RecordSet") 
	rs9.Source="select top 11 * from "& db_News_Table &" where goodnews=1 order by newsid desc"
	rs9.Open rs9.Source,conn,1,1
	do while not rs9.EOF
	
	title=trim(rs9("title"))%>
<img src="images/dot_blue.gif"><a class=middle target="_blank" href="rnplay.asp?NewsId=<%=rs9("newsid")%>" title="<%=CutStr(nohtml(rs9("Content")),100)%>"><%=CutStr(htmlencode4(title),45)%></a>
	  <!--判断并显示时间格式-------->
										  <%if showtime = 1 and showyear = 1 then%>
										  ·<%=img%>
                                          <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=rs3("title")%>" target="_blank">
										  <font color="<%=rs3("titlecolor")%>">
										  <%=CutStr(htmlencode4(rs3("title")),14)%>
										  </font>
										  </a>
						  
						 <%=datetime%>
						  ·<%=img%>
                                          <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=rs3("title")%>" target="_blank">
										  <font color="<%=rs3("titlecolor")%>">
										  <%=CutStr(htmlencode4(rs3("title")),20)%>
										  </font>
										  </a>
						  <%=datetime%><%end if %>
	 <!--显示评论-->
	 <% if rs9("titlesize")>=1 then %>
						  <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs9("NewsID")%>" target="_blank" >
						  <font color=red>[评]</font></A>
						  <%end if %>
	<br>
	<%rs9.movenext
	loop
	rs9.close
	set rs9=nothing%>	</td>
  </tr>
</table>
