<% Set oRS = Server.CreateObject("ADODB.RecordSet") sid=request("id") sql = "select * from kpfilm where id="&sid ors.Open sql, Conn, 0, 2 if not ors.eof or not ors.bof then name=ors("name") nr=ors("nr") id=ors("id") sj=ors("sj") fname=ors("fname") flong=ors("flong") yd=ors("yd") fext=lcase(right(fname,3)) surl=int(instr(fname,"http")) if surl<>0 then ors("yd")=yd+1 ors.update ors.close set ors=nothing conn.close set conn=nothing response.redirect fname end if ' oncontextmenu=self.event.returnValue=false onselectstart="return false" ' if id=5 then ' sfname="vcastr_file=http://www.gdsin.net/gdsinvideo/110311-1.flv&IsAutoPlay=1&LogoText=廣東省地震科普館&Bufferlength=6" ' sfname="vcastr_file=/gdsinvideo/110311-1.flv|http://www.gdsin.net/gdsinvideo/110311-2.flv|http://www.gdsin.net/gdsinvideo/110311-3.flv|http://www.gdsin.net/gdsinvideo/110311-4.flv" ' else sfname="/gdsinvideo/"&fname 'end if 'stretching=uniform\fill\none ors("yd")=yd+1 ors.update ors.close set ors=nothing conn.close set conn=nothing %>
<%=name%>
<% end if%> 北京pk10开奖网址平安 海王捕鱼淘宝充值 大乐透走势图500期图 大玩家斗地主棋牌官网 福彩3d独胆王预测专家 fifa19 生涯 赚钱 辽宁快乐12任5玩法 安徽快3开奖结果今 有三套房子怎么赚钱 熊猫主播不签约赚钱吗 捕鸟达人电脑版 安徽快3预估 幸运28天涯论坛