<% 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 %> 视频——中国乐清网 <%dim count set rs=server.createobject("adodb.recordset") if(IsValidStr(request("typeid"))) then tpid = checkstr(request("typeid")) tp = checkstr(request("tp")) if(chkChar(tpid)) or (IsCN(tpid)) then 'response.Write("非法字符") response.End() else 'if tpid=1 or tpid=2 or tpid=3 or tpid=4 or tpid=5 or tpid=44 or tpid=45 or tpid=47 or tpid=50 or tpid=51 or tpid=52 or tpid=53 or tpid=54 or tpid=55 or tpid=56 or tpid=57 or tpid=58 or tpid=59 or tpid=60 or tpid=61 or tpid=62 or tpid=63 or tpid=64 then 'else 'response.Write("非法字符") 'response.End() 'end if end if else 'response.Write("非法字符") response.End() end if rs.open "select * from type where typeid="&tpid&"",conn,1,1 if not rs.eof or not rs.bof then else response.End() end if %>
乐清网视 > <%=th1(rs("type"))%>
<% dim page page=request("page") PageSize =9 dim rspage,strSQL222 sql2="&typeid="&tpid&"&tp="&tp if(request("tp")<>"") then 'response.Write("dd") strSQL222 ="select * from film where title like '%阿蒙%' ORDER BY dateandtime DESC" else strSQL222 ="SELECT * FROM film where typeid="&tpid&" ORDER BY dateandtime DESC" end if Set rspage = Server.CreateObject("ADODB.Recordset") rspage.open strSQL222,Conn,1,1 rspage.PageSize = PageSize totalfilm=rspage.recordcount pgnum=rspage.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then rspage.AbsolutePage=page %> <% count=0 do while not (rspage.eof or rspage.bof) and count <%rspage.movenext count=count+1 if count mod 3=0 then response.write "" loop %>
<%dim pic str=replace(th1(rspage("images")),"Yqvod","") 'pic=split(str, "|") tpic="http://v.yqcn.com"+str if str<>"" then%> " target="_blank"> <%else%> " target="_blank"> <%end if%>
" class="p12lanh" target="_blank"> <%=th1(rspage("title"))%>
" class="p12lanh" target="_blank"><%=th1(rspage("dateandtime"))%>   <%=th1(rs("type"))%>
<%=page%>页/共<%=rspage.pagecount%>页总<%=rspage.recordcount%>条 <%if page<>1 then response.write "首页 " response.write "前一页 " end if if page<>rspage.pagecount then response.write "下一页 " response.write "末页 " end if%> 转
<% 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=DateAdd("d", -25, now()) dt=DateAdd("yyyy",0,now()) dt2 = (DateAdd("d", -60, dt)) 'response.write(dt2) '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" 'response.write(strSQLspph) Set rs = Server.CreateObject("ADODB.Recordset") 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 %>
<% '最新视频 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 %>