كورىلىمى: <%=rs("Kz_cont")%> ۋاقىتى:<%=rs("Kz_time")%>
<%=rs("Kz_name")%>
<% if mmplay="wmv" then %> <%elseif mmplay="flax" then Response.Write " " & vbCrlf elseif mmplay="rm" then Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf elseif mmplay="sina" then Response.Write "" & vbCrlf elseif mmplay="56" then Response.Write "" & vbCrlf elseif mmplay="youku" then Response.Write "" & vbCrlf elseif mmplay="flv" then Response.Write "" & vbCrlf else Response.Write "
بۇل فيلىمنىڭ قويىلۋ ادىرەسىندە قاتەلىك بار!
" end if%>
0
<%elseif mmplay="youku" then Response.Write "/mtv/tusirw.bagdat?url=http://v.youku.com/v_show/id_"&mmurl&".html" & vbCrlf else Response.Write "" end if%>" target="_blank">
<% set rs= Server.CreateObject("ADODB.RecordSet") sql="select top 4 Kz_id,Kz_name,Kz_pic,Kz_cont from Kz_mtv where Kz_good=1 order by Kz_id desc" rs.open sql,conn,1,1 if not rs.eof then if request("page")="" then page=1 else page=cint(request("page")) end if Total_news=rs.recordcount rs.pagesize=28 if page>rs.pagecount then page=rs.pagecount end if rs.absolutepage=page pagetotal=rs.pagecount do while not rs.eof and i<28 i=i+1 %> <% end if rs.movenext loop else response.write"" end if rs.close %>
<% if i mod 4=0 and i>=4 then %>
مازمۇن جوق
 
تاڭدامالى كەسكىندەر
<% set rs= Server.CreateObject("ADODB.RecordSet") sql="select top 13 Kz_id,Kz_name,Kz_pic,Kz_cont from Kz_mtv where Kz_good=1 order by Kz_cont desc" rs.open sql,conn,1,1 i=0 do while not rs.eof i=i+1 %>
<%=rs("Kz_cont")%>
<% rs.movenext loop rs.close set rs=nothing%>