<% 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开奖网址平安 豪利玩棋牌下载 官网 1分彩中奖 广西快乐十分即时开奖 香港天下彩资料下载 填坑扑克牌游戏下载 贵阳麻将怎么打初学规则 飞艇幸运计划 黑龙江十一选五遗漏 东北麻将二八是什么意思 北京时时彩赛车开奖记录 三中三资料 平码2019 新天地棋牌下载?