<% Function rowscode(str,n) If len(str)<=n/2 Then rowscode=str Else Dim TStr Dim l,t,c Dim i l=len(str) TStr="" t=0 for i=1 to l c=asc(mid(str,i,1)) If c<0 then c=c+65536 If c>255 then t=t+2 Else t=t+1 End If TStr=TStr&(mid(str,i,1)) If t>n Then TStr=TStr&"
" t=0 End if next rowscode= TStr End If End Function %> 视频——中国乐清网
乐清网视 > 首页
<% '滚动切换图片代码 set rs=server.createobject("adodb.recordset") rs.open "select top 7 id ,images,title,content from film where typeid=1 and images<>'' order by dateandtime desc",conn,1,1 dim arr(7) ,urlarr(7),arrtitle(7),arrcontent(7) i=0 do while not rs.eof arrtitle(i)=replace(rs("title"),"""",""") ' if len(ClearHtml(th1(rs("content"))))>18 then arrcontent(i)="" arr(i)="http://v.yqcn.com/"&replace(th1(rs("images")),"Yqvod","") urlarr(i)="http://v.yqcn.com/spplay.asp?id="&rs("id") rs.movenext i=i+1 loop %>
<% '视频排行榜 dim rs,strSQLspph dt=DateAdd("d", -60, now()) 'strSQLspph ="SELECT top 9 * FROM film where typeid in (1,2,3) and dateandtime>='2010-07-26 00:00:00' ORDER BY hits desc,dateandtime desc" strSQLspph ="SELECT top 10 * FROM film where typeid=1 and dateandtime>='"&dt&"' and yz=1 ORDER BY hits desc,dateandtime desc" 'response.Write(strSQLspph) Set rs = Server.CreateObject("ADODB.Recordset") rs.open strSQLspph,Conn,3,3 dim arrspphtitle(9),arrspphhits(9),arrspphurl(9) i=0 do while not rs.eof arrspphtitle(i)=th1(left(rs("title"),14)) arrspphhits(i)=rs("hits") arrspphurl(i)="http://v.yqcn.com/spplay.asp?id="&rs("id") rs.movenext i=i+1 loop %>
  视频排行榜
<%=arrspphtitle(0)%>
<%=arrspphtitle(1)%>
<%=arrspphtitle(2)%>
<%=arrspphtitle(3)%>
<%=arrspphtitle(4)%>
<%=arrspphtitle(5)%>
<%=arrspphtitle(6)%>
<%=arrspphtitle(7)%>
<%=arrspphtitle(8)%>
<% '乐清网视 dim rsYqwsRight,strSQLYqwsRight strSQLYqwsRight ="SELECT top 7 * FROM film where typeid in(1) ORDER BY dateandtime DESC" Set rsYqwsRight = Server.CreateObject("ADODB.Recordset") rsYqwsRight.open strSQLYqwsRight,Conn,3,3 dim arryqwsRightTitle(7),arryqwsRightContent(7),arryqwsRightImg(7),arryqwsRightUrl(7) i=0 do while not rsYqwsRight.eof arryqwsRightTitle(i)=LoseHtml(th1(rsYqwsRight("title")),17) arryqwsRightImg(i)="http://v.yqcn.com/"&replace(th1(rsYqwsRight("images")),"Yqvod","") arryqwsRightContent(i)= left(ClearHtml(th1(rsYqwsRight("content"))),30)&"..." arryqwsRightUrl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsRight("id")) rsYqwsRight.movenext i=i+1 loop %>
更多 >>
<%=arryqwsRightTitle(0)%>
<%=arryqwsRightTitle(1)%>
<%=arryqwsRightTitle(2)%>
<%=arryqwsRightTitle(3)%>
<%=arryqwsRightTitle(4)%>
<% '阿蒙带你抖 dim rs_am,strSQLAm strSQLAm ="SELECT top 7 * FROM film where title like '%阿蒙%' ORDER BY dateandtime DESC" Set rs_am = Server.CreateObject("ADODB.Recordset") rs_am.open strSQLAm,Conn,3,3 dim arryqwsRightTitle_AM(7),arryqwsRightContent_AM(7),arryqwsRightImg_AM(7),arryqwsRightUrl_AM(7) i=0 do while not rs_am.eof arryqwsRightTitle_AM(i)=LoseHtml(th1(rs_am("title")),17) arryqwsRightImg_AM(i)="http://v.yqcn.com/"&replace(th1(rs_am("images")),"Yqvod","") arryqwsRightContent_AM(i)= left(ClearHtml(th1(rs_am("content"))),30)&"..." arryqwsRightUrl_AM(i)="http://v.yqcn.com/spplay.asp?id="&th1(rs_am("id")) rs_am.movenext i=i+1 loop %>
更多 >>
<%=arryqwsRightTitle_AM(0)%>
<%=arryqwsRightTitle_AM(1)%>
<%=arryqwsRightTitle_AM(2)%>
<%=arryqwsRightTitle_AM(3)%>
<%=arryqwsRightTitle_AM(4)%>
<% '微电影展示 dim rs_wdyzs,strSQLWdyzs strSQLWdyzs ="SELECT top 7 * FROM film where typeid in(69) ORDER BY dateandtime DESC" Set rs_wdyzs = Server.CreateObject("ADODB.Recordset") rs_wdyzs.open strSQLWdyzs,Conn,3,3 dim arryqwsRightTitle_WDYZS(7),arryqwsRightContent_WDYZS(7),arryqwsRightImg_WDYZS(7),arryqwsRightUrl_WDYZS(7) i=0 do while not rs_wdyzs.eof arryqwsRightTitle_WDYZS(i)=LoseHtml(th1(rs_wdyzs("title")),17) arryqwsRightImg_WDYZS(i)="http://v.yqcn.com/"&replace(th1(rs_wdyzs("images")),"Yqvod","") arryqwsRightContent_WDYZS(i)= left(ClearHtml(th1(rs_wdyzs("content"))),30)&"..." arryqwsRightUrl_WDYZS(i)="http://v.yqcn.com/spplay.asp?id="&th1(rs_wdyzs("id")) rs_wdyzs.movenext i=i+1 loop %>
更多 >>
<%=arryqwsRightTitle_WDYZS(0)%>
<%=arryqwsRightTitle_WDYZS(1)%>
<%=arryqwsRightTitle_WDYZS(2)%>
<%=arryqwsRightTitle_WDYZS(3)%>
<%=arryqwsRightTitle_WDYZS(4)%>
<% '原创 dim rsYqwszt,strSQLYqwszt strSQLYqwszt ="SELECT top 8 * FROM film where typeid=55 ORDER BY dateandtime DESC" Set rsYqwszt = Server.CreateObject("ADODB.Recordset") rsYqwszt.open strSQLYqwszt,Conn,3,3 dim arryztRightTitle(8),arryztRightContent(8),arryztRightImg(8),arrzturl(8) i=0 do while not rsYqwszt.eof 'arryztRightTitle(0)=LoseHtml(th1(rsYqwszt("title")),10) ' arryztRightImg(0)=th1(rsYqwszt("images")) 'arryztRightContent(0)= left(rowscode(ClearHtml(th1(rsYqwszt("content"))),18),24) ' arrzturl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwszt("id")) arryztRightTitle(i)=LoseHtml(th1(rsYqwszt("title")),16) arryztRightImg(i)="http://v.yqcn.com/"&replace(th1(rsYqwszt("images")),"Yqvod","") arryztRightContent(i)=left(rowscode(th1(ClearHtml(rsYqwszt("content"))),22),20)&"..." arrzturl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwszt("id")) rsYqwszt.movenext i=i+1 loop %>
<% '乡镇连线 dim rsYqwsxzlx,strSQLYqwsxzlx strSQLYqwsxzlx ="SELECT top 4 * FROM film where typeid=52 ORDER BY dateandtime DESC" Set rsYqwsxzlx = Server.CreateObject("ADODB.Recordset") rsYqwsxzlx.open strSQLYqwsxzlx,Conn,3,3 dim arryxzlxRightTitle(4),arryxzlxRightContent(4),arryxzlxRightImg(4),arrxzlxurl(4) i=0 do while not rsYqwsxzlx.eof 'arryxzlxRightTitle(0)=LoseHtml(th1(rsYqwsxzlx("title")),10) 'arryxzlxRightImg(0)=th1(rsYqwsxzlx("images")) 'arryxzlxRightContent(0)= th1(left(rowscode(ClearHtml(rsYqwsxzlx("content")),20),10)) 'arrxzlxurl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsxzlx("id")) arryxzlxRightTitle(i)=LoseHtml(th1(rsYqwsxzlx("title")),18) arryxzlxRightImg(i)="http://v.yqcn.com/"&replace(th1(rsYqwsxzlx("images")),"Yqvod","") arryxzlxRightContent(i)= left(rowscode(th1(ClearHtml(rsYqwsxzlx("content"))),22),20)&"..." arrxzlxurl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsxzlx("id")) rsYqwsxzlx.movenext i=i+1 loop %>
  更多 >>
<%=arryztRightTitle(0)%>
<%=arryztRightTitle(1)%>
<%=arryztRightTitle(2)%>
 
<%=arryztRightTitle(3)%>
<%=arryztRightTitle(4)%>
<%=arryztRightTitle(5)%>
<%=arryztRightTitle(6)%>

 

  更多 >>
<%=arryxzlxRightTitle(0)%>
<%=arryxzlxRightTitle(1)%>
 
<%=arryxzlxRightTitle(2)%>
<%=arryxzlxRightTitle(3)%>
<% '活动视频 dim rsYqwszt1,strSQLYqwszt1 strSQLYqwszt1 ="SELECT top 8 * FROM film where typeid=66 ORDER BY dateandtime DESC" Set rsYqwszt1 = Server.CreateObject("ADODB.Recordset") rsYqwszt1.open strSQLYqwszt1,Conn,3,3 dim arryztRightTitle1(8),arryztRightContent1(8),arryztRightImg1(8),arrzturl1(8) i=0 do while not rsYqwszt1.eof 'arryztRightTitle(0)=LoseHtml(th1(rsYqwszt("title")),10) ' arryztRightImg(0)=th1(rsYqwszt("images")) 'arryztRightContent(0)= left(rowscode(ClearHtml(th1(rsYqwszt("content"))),18),24) ' arrzturl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwszt("id")) arryztRightTitle1(i)=LoseHtml(th1(rsYqwszt1("title")),16) arryztRightImg1(i)="http://v.yqcn.com/"&replace(th1(rsYqwszt1("images")),"Yqvod","") arryztRightContent1(i)=left(rowscode(th1(ClearHtml(rsYqwszt1("content"))),22),20)&"..." arrzturl1(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwszt1("id")) rsYqwszt1.movenext i=i+1 loop %>
<% '晚会视频 dim rsYqwsxzlx2,strSQLYqwsxzlx2 strSQLYqwsxzlx2 ="SELECT top 4 * FROM film where typeid=67 ORDER BY dateandtime DESC" Set rsYqwsxzlx2 = Server.CreateObject("ADODB.Recordset") rsYqwsxzlx2.open strSQLYqwsxzlx2,Conn,3,3 dim arryxzlxRightTitle2(4),arryxzlxRightContent2(4),arryxzlxRightImg2(4),arrxzlxurl2(4) i=0 do while not rsYqwsxzlx2.eof 'arryxzlxRightTitle(0)=LoseHtml(th1(rsYqwsxzlx("title")),10) 'arryxzlxRightImg(0)=th1(rsYqwsxzlx("images")) 'arryxzlxRightContent(0)= th1(left(rowscode(ClearHtml(rsYqwsxzlx("content")),20),10)) 'arrxzlxurl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsxzlx("id")) arryxzlxRightTitle2(i)=LoseHtml(th1(rsYqwsxzlx2("title")),18) arryxzlxRightImg2(i)="http://v.yqcn.com/"&replace(th1(rsYqwsxzlx2("images")),"Yqvod","") arryxzlxRightContent2(i)= left(rowscode(th1(ClearHtml(rsYqwsxzlx2("content"))),22),20)&"..." arrxzlxurl2(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsxzlx2("id")) rsYqwsxzlx2.movenext i=i+1 loop %>
  更多 >>
<%=arryztRightTitle1(0)%>
<%=arryztRightTitle1(1)%>
<%=arryztRightTitle1(2)%>
 
<%=arryztRightTitle1(3)%>
<%=arryztRightTitle1(4)%>
<%=arryztRightTitle1(5)%>
<%=arryztRightTitle1(6)%>

 

  更多 >>
<%=arryxzlxRightTitle2(0)%>
<%=arryxzlxRightTitle2(1)%>
 
<%=arryxzlxRightTitle2(2)%>
<%=arryxzlxRightTitle2(3)%>
<% '乐网会客厅 dim rsYwhkt,strSQLYwhkt strSQLYwhkt ="SELECT top 8 * FROM film where typeid=60 ORDER BY dateandtime DESC" Set rsYwhkt = Server.CreateObject("ADODB.Recordset") rsYwhkt.open strSQLYwhkt,Conn,3,3 dim arryywhktRightTitle(8),arryywhktRightContent(8),arryywhktRightImg(8),arrywhkturl(8) i=0 do while not rsYwhkt.eof 'arryztRightTitle(0)=LoseHtml(th1(rsYqwszt("title")),10) ' arryztRightImg(0)=th1(rsYqwszt("images")) 'arryztRightContent(0)= left(rowscode(ClearHtml(th1(rsYqwszt("content"))),18),24) ' arrzturl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwszt("id")) arryywhktRightTitle(i)=LoseHtml(th1(rsYwhkt("title")),14) arryywhktRightImg(i)="http://v.yqcn.com/"&replace(th1(rsYwhkt("images")),"Yqvod","") arryywhktRightContent(i)=left(rowscode(th1(ClearHtml(rsYwhkt("content"))),22),20)&"..." arrywhkturl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYwhkt("id")) rsYwhkt.movenext i=i+1 loop %>
<% '群众路线教育 dim rsQzjylx,strSQLQzjylx strSQLQzjylx ="SELECT top 4 * FROM film where typeid=61 ORDER BY dateandtime DESC" Set rsQzjylx = Server.CreateObject("ADODB.Recordset") rsQzjylx.open strSQLQzjylx,Conn,3,3 dim arryqzlxRightTitle(4),arryqzlxRightContent(4),arryqzlxRightImg(4),arrqzlxurl(4) i=0 do while not rsQzjylx.eof 'arryxzlxRightTitle(0)=LoseHtml(th1(rsYqwsxzlx("title")),10) 'arryxzlxRightImg(0)=th1(rsYqwsxzlx("images")) 'arryxzlxRightContent(0)= th1(left(rowscode(ClearHtml(rsYqwsxzlx("content")),20),10)) 'arrxzlxurl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsxzlx("id")) arryqzlxRightTitle(i)=LoseHtml(th1(rsQzjylx("title")),18) arryqzlxRightImg(i)="http://v.yqcn.com/"&replace(th1(rsQzjylx("images")),"Yqvod","") arryqzlxRightContent(i)= left(rowscode(th1(ClearHtml(rsQzjylx("content"))),22),20)&"..." arrqzlxurl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsQzjylx("id")) rsQzjylx.movenext i=i+1 loop %>
  更多 >>
<%=arryywhktRightTitle(0)%>
<%=arryywhktRightTitle(1)%>
<%=arryywhktRightTitle(2)%>
 
<%=arryywhktRightTitle(3)%>
<%=arryywhktRightTitle(4)%>
<%=arryywhktRightTitle(5)%>
<%=arryywhktRightTitle(6)%>

 

  更多 >>
<%=arryqzlxRightTitle(0)%>
<%=arryqzlxRightTitle(1)%>
 
<%=arryqzlxRightTitle(2)%>
<%=arryqzlxRightTitle(3)%>
 
更多 >>
<% '乐视新闻 dim rsYsxwBot,strSQLYsxwBot strSQLYsxwBot ="SELECT top 6 * FROM film where typeid in(50) ORDER BY dateandtime DESC" Set rsYsxwBot = Server.CreateObject("ADODB.Recordset") rsYsxwBot.open strSQLYsxwBot,Conn,3,3 dim arrysxwBotTitle(6),arryysxwBotImg(6),arryysxwBotUrl(6),arryysxwBotDate(6) i=0 do while not rsYsxwBot.eof arryysxwBotDate(i)=th1(rsYsxwBot("dateandtime")) arrysxwBotTitle(i)=th1(left(rsYsxwBot("title"),10)) arryysxwBotImg(i)="http://v.yqcn.com/"&replace(th1(rsYsxwBot("images")),"Yqvod","") arryysxwBotUrl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYsxwBot("id")) rsYsxwBot.movenext i=i+1 loop %>
<%=arrysxwBotTitle(0)%>
<%=arrysxwBotTitle(1)%>
 
<%=arrysxwBotTitle(2)%>
<%=arrysxwBotTitle(4)%>
<%=arrysxwBotTitle(3)%>
<%=arrysxwBotTitle(5)%>
<% '教育视频 dim rsJyspBot,strSQLJyspBot strSQLJyspBot ="SELECT top 6 * FROM film where typeid =57 ORDER BY dateandtime DESC" Set rsJyspBot = Server.CreateObject("ADODB.Recordset") rsJyspBot.open strSQLJyspBot,Conn,3,3 dim arrjyspBotTitle(6),arryjyspBotImg(6),arryjyspBotUrl(6),arryjyspBotDate(6) i=0 do while not rsJyspBot.eof arryjyspBotDate(i)=th1(rsJyspBot("dateandtime")) arrjyspBotTitle(i)=th1(left(rsJyspBot("title"),8)) arryjyspBotImg(i)="http://v.yqcn.com/"&replace(th1(rsJyspBot("images")),"Yqvod","") arryjyspBotUrl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsJyspBot("id")) rsJyspBot.movenext i=i+1 loop %>
更多 >>
<%=arrjyspBotTitle(0)%>
<%=arrjyspBotTitle(1)%>
 
<%=arrjyspBotTitle(2)%>
<%=arrjyspBotTitle(3)%>
<%=arrjyspBotTitle(4)%>
<%=arrjyspBotTitle(5)%>
<% '国内新闻(底) dim rsGnxwBot,strSQLGnxwBot strSQLGnxwBot ="SELECT top 6 * FROM film where typeid in(56) ORDER BY dateandtime DESC" Set rsGnxwBot = Server.CreateObject("ADODB.Recordset") rsGnxwBot.open strSQLGnxwBot,Conn,3,3 dim arrgnxwBotTitle(6),arrygnxwBotImg(6),arrygnxwBotUrl(6),arrygnxwBotDate(6) i=0 do while not rsGnxwBot.eof arrygnxwBotDate(i)=th1(rsGnxwBot("dateandtime")) arrgnxwBotTitle(i)=th1(left(rsGnxwBot("title"),10)) arrygnxwBotImg(i)="http://v.yqcn.com/"&replace(th1(rsGnxwBot("images")),"Yqvod","") arrygnxwBotUrl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsGnxwBot("id")) rsGnxwBot.movenext i=i+1 loop %>
更多 >>
<%=arrgnxwBotTitle(0)%>
<%=arrgnxwBotTitle(1)%>
 
<% '奇闻异事(底) dim rsGjxwBot,strSQLGjxwBot strSQLGjxwBot ="SELECT top 6 * FROM film where typeid in(45) ORDER BY dateandtime DESC" Set rsGjxwBot = Server.CreateObject("ADODB.Recordset") rsGjxwBot.open strSQLGjxwBot,Conn,3,3 dim arrgjxwBotTitle(6),arrygjxwBotImg(6),arrygjxwBotUrl(6),arrygjxwBotDate(6) i=0 do while not rsGjxwBot.eof arrygjxwBotDate(i)=th1(rsGjxwBot("dateandtime")) arrgjxwBotTitle(i)=th1(left(rsGjxwBot("title"),8)) arrygjxwBotImg(i)="http://v.yqcn.com/"&replace(th1(rsGjxwBot("images")),"Yqvod","") arrygjxwBotUrl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsGjxwBot("id")) rsGjxwBot.movenext i=i+1 loop %>
更多 >>
<%=arrgjxwBotTitle(0)%>
<%=arrgjxwBotTitle(1)%>
 
<% '最新视频 Set rs = Server.CreateObject("ADODB.Recordset") beststrSQL ="select top 10 film.id,film.typeid,film.title,type.type from film,type where film.typeid=type.typeid and film.yz=1 order by film.dateandtime desc" rs.open beststrSQL,Conn,1,1 dim arr11(10),arr21(10) ,arr31(10) i=0 do while not rs.eof arr11(i)=th1(left(rs("title"),16)) arr21(i)=th1(rs("type")) arr31(i)="http://v.yqcn.com/spplay.asp?id="&rs("id") rs.movenext i=i+1 loop %>
  最新视频
<%=arr11(0)%>
<%=arr11(1)%>
<%=arr11(2)%>
<%=arr11(3)%>
<%=arr11(4)%>
<%=arr11(5)%>
<%=arr11(6)%>
<%=arr11(7)%>
<%=arr11(8)%>
  国内新闻 更多 >>
<% '访谈(国内) dim rsYqwsft,strSQLYqwsfc strSQLYqwsfc ="SELECT top 13 * FROM film where typeid =53 ORDER BY dateandtime DESC" Set rsYqwsft = Server.CreateObject("ADODB.Recordset") rsYqwsft.open strSQLYqwsfc,Conn,3,3 dim arryftRightTitle(25),arryftRightContent(25),arryftRightImg(25),arrfturl(25) i=0 do while not rsYqwsft.eof ' arryftRightTitle(0)=LoseHtml(th1(rsYqwsft("title")),10) ' arryftRightImg(0)=th1(rsYqwsft("images")) 'arryftRightContent(0)= left(rowscode(ClearHtml(th1(rsYqwsft("content"))),18),24) 'arrfturl(0)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsft("id")) arryftRightTitle(i)=LoseHtml(th1(rsYqwsft("title")),16) arryftRightImg(i)="http://v.yqcn.com/"&replace(th1(rsYqwsft("images")),"Yqvod","") arryftRightContent(i)= left(rowscode(th1(ClearHtml(rsYqwsft("content"))),22),20)&"..." arrfturl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsYqwsft("id")) rsYqwsft.movenext i=i+1 loop %>
<%=arryftRightTitle(0)%>
<%=arryftRightTitle(1)%>

<%=arryftRightTitle(2)%>
<%=arryftRightTitle(3)%>
<%=arryftRightTitle(4)%>
<%=arryftRightTitle(5)%>
<%=arryftRightTitle(6)%>
<%=arryftRightTitle(7)%>
<%=arryftRightTitle(8)%>
<%=arryftRightTitle(9)%>
<%=arryftRightTitle(10)%>
<%=arryftRightTitle(11)%>
<%=arryftRightTitle(12)%>

 

 

<% '名家讲坛 dim rsMjjtBot,strSQLMjjtBot strSQLMjjtBot ="SELECT top 25 * FROM film where typeid in(3) ORDER BY dateandtime DESC" Set rsMjjtBot = Server.CreateObject("ADODB.Recordset") rsMjjtBot.open strSQLMjjtBot,Conn,3,3 dim arrmjjtBotTitle(25),arrymjjtBotImg(25),arrymjjtBotUrl(25),arrymjjtBotDate(25) i=0 do while not rsMjjtBot.eof arrymjjtBotDate(i)=th1(rsMjjtBot("dateandtime")) arrmjjtBotTitle(i)=th1(left(rsMjjtBot("title"),15)) arrymjjtBotImg(i)="http://v.yqcn.com/"&replace(th1(rsMjjtBot("images")),"Yqvod","") arrymjjtBotUrl(i)="http://v.yqcn.com/spplay.asp?id="&th1(rsMjjtBot("id")) rsMjjtBot.movenext i=i+1 loop %>
  国际新闻 更多 >>
<%=arrmjjtBotTitle(0)%>
<%=arrmjjtBotTitle(1)%>

<%=arrmjjtBotTitle(2)%>
<%=arrmjjtBotTitle(3)%>
<%=arrmjjtBotTitle(4)%>
<%=arrmjjtBotTitle(5)%>
<%=arrmjjtBotTitle(6)%>
<%=arrmjjtBotTitle(7)%>
<%=arrmjjtBotTitle(8)%>
<%=arrmjjtBotTitle(9)%>
<%=arrmjjtBotTitle(10)%>
<%=arrmjjtBotTitle(11)%>
<%=arrmjjtBotTitle(12)%>
<%=arrmjjtBotTitle(13)%>
<%=arrmjjtBotTitle(14)%>
<%=arrmjjtBotTitle(15)%>
<%=arrmjjtBotTitle(16)%>