<%
sub flash_new(c_num,w_num,vvt)
  dim nid,nname,nemoney,pnum
  pnum=100\c_num
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)&" 最 新 动 画"%></td></tr>
<tr class=bg_td><td>
<%
dim username,tim,remark
  sql="select top 6 id,tim,name,remark,username,spic,emoney,power,counter from flash where hidden=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    nid=rs("id")
    nname=rs("name")
    nemoney=rs("emoney")
    username=rs("username")
    tim=rs("tim")
    remark=rs("remark")
%>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr align=center>
  <td width='<%response.write pnum%>%'>
  <table width="96%" border="1" cellspacing=0 cellpadding=0 align=center height="90">
  <tr>
    <td width=120><div align="center"><%response.write pic_fk(rs("spic"),4,"flash_view.asp?id="&nid)%></div></td>
    <td width="430"><table width="413" border=0 cellpadding=1 cellspacing=1 align=center>
                    <tr>
                      <td width="293">动画名称：<a href='flash_view.asp?id=<%response.write nid%>' alt='<%response.write joekoe_cms.code_html(nname,1,0)%>'> 
                        <font color=blue><%response.write joekoe_cms.code_html(nname,1,w_num)%></font>
                        </a></td>
                      <td width="106">观看次数：<font class=red> <%response.write rs("counter")%> </font>次</td>
                    </tr>
                    <%if vvt>0 then%>
                    <tr> 
                      <td colspan="2">
                        <table width="100%" border="0">
                          <tr> 
                            <td width="41%">发布人：<font class=red2> 
                              <%response.write rs("username")%>
                              </font> </td>
                            <td width="59%">发布时间：<font class=red2> 
                              <%response.write rs("tim")%>
                              </font></td>
                          </tr>
                          <tr> 
                            <td colspan="2">动画简介：<%response.write rs("remark")%></td>
                          </tr>
                        </table></td>
                    </tr>
                    <%if vvt>1 then%>
                    <tr>
                      <td colspan="2">
                        <%response.write format_emoney_power(nemoney,rs("power"),0)%>
                      </td>
                    </tr>
                    <%
    end if
  end if
%>
                  </table></td>
  </tr>
</table>
<table width="100%" border="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>

    
  </td>

  </tr>	<%
    rs.movenext
  loop
  rs.close
%>
  </table>
</td></tr>
</table>

<%
  response.write ukong
end sub
%>