<% 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 %> <% if(IsValidStr(Request.QueryString("id"))) then id2 = checkstr(Request.QueryString("id")) if(chkChar(id2)) or (IsCN(id2)) then 'response.Write("非法字符") response.End() else end if else 'response.Write("非法字符") response.End() end if 'id = Request.QueryString("id") 'if id="" then 'Response.Write("非常入口") 'Response.End 'end if set rs=server.createobject("adodb.recordset") sql="select * from film where id="&id2 rs.open sql,conn,1,3 if not rs.eof or not rs.bof then rs("hits").value = rs("hits").value + 1 rs.Update else response.End() end if %> 视频——中国乐清网 <% PlayerUrl = " SELECT top 1 film.ly as ly2 , url.url as url2 ,film.dateandtime as dateandtime2,film.title as title2,film.content as content2,film.hits as hits2 FROM url,film WHERE url.filmid ="&rs("id")&" and film.id="&th1(rs("id"))&" " ' PlayerUrl ="SELECT top 1 * FROM url WHERE filmid = "&rs("id")&" ORDER BY id " 'response.Write(PlayerUrl) Set filmurl = Server.CreateObject("ADODB.Recordset") filmurl.open PlayerUrl,Conn,1,1 if not filmurl.eof then %>

<%=th1(filmurl("title2"))%>

播放次数:<%=th1(filmurl("hits2"))%> 来源: <%if(th1(filmurl("ly2"))<>"null") then%> <%=th1(filmurl("ly2"))%> <%else%> 温州网 <%end if%> 发布时间:<%=th1(filmurl("dateandtime2"))%>
<% end if%>
<%=left(rowscode(th1(filmurl("content2")),88000),88002)%>

<% Function FStime(times) Dim years,months,days if len(times)=0 then exit function years=year(times) months=right("0"&month(times),2) days=right("0"&day(times),2) times=years&"-"&months&"-"&days FStime=times End Function '视频排行榜 dim rs,strSQLspph 'dt=FStime(DateAdd("d", -25, now())) dt=DateAdd("yyyy",0,now()) dt2 = (DateAdd("d", -60, dt)) 'response.write(dt2) 'dt=DateAdd("d", -225, 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>='"&dt2&"' and yz=1 ORDER BY hits desc , dateandtime desc" Set rs = Server.CreateObject("ADODB.Recordset") 'response.write(strSQLspph) rs.open strSQLspph,Conn,3,3 dim arrspphtitle(10),arrspphhits(10),arrspphurl(10) 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)%>
<%=arrspphtitle(9)%>
<% '最新视频 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)%>
<%=arr11(9)%>