<%
sub video_new(g_tit,gt,n_num,w_num)
  dim rs,sql,pic_temp,pic,name,ut,temp1
  temp1="<table border=0 width='100%'><tr><td height=3></td></tr><tr align=center valign=top>"
  sql="select top "&n_num&" id,pic,name,counter,emoney,star from video where hidden=1 order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    pic=rs("pic"):name=rs("name")
    ut="video_view.asp?id="&rs("id")
    pic_temp="<table border=0>" & _
	     "<tr><td align=center><a href='javascript:;' onclick=""javascript:open_view('"&ut&"',1);""><script language=javascript>pic_url('"&pic&"',1)</script></a></td></tr>" & _
	     "<tr><td align=center><a href='javascript:;' onclick=""javascript:open_view('"&ut&"',1);"" class=blue><b>"&objv7.code_html(name,1,w_num)&"</b></a></td></tr>"
    if gt=1 then
      pic_temp=pic_temp&"<tr><td height=20>ÍÆ¼öÐÇ¼¶£º<img src='images/down/star"&rs("star")&".gif' border=0></td></tr>" & _
	       "<tr><td align=center>"&m_unit&"£º<font class=red_3>"&rs("emoney")&"</font>&nbsp;&nbsp;ÈËÆø£º<font class=red>"&rs("counter")&"</font></td></tr>"
    end if
    pic_temp=pic_temp&"</table>"
    temp1=temp1&"<td>"&pic_temp&"</td>"
    'temp1=temp1&"<td><script language=javascript>pic_fk(1,1)</script>"&pic_temp&"<script language=javascript>pic_fk(2,1)</script></td>"
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&"</tr><tr><td height=0></td></tr></table>"
  response.write kong&format_bar("<font class="&sk_class&">"&g_tit&"</font>",temp1,"",sk_bar,"")
end sub
%>