<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "0" If (Request.QueryString("ID") <> "") and check_input0(Request.QueryString("ID"),1,4)=0 Then Recordset1__MMColParam = Request.QueryString("ID") else Response.Redirect "index.htm" End If %> <% Dim Recordset1 Dim Recordset1_numRows sql="SELECT * FROM 影片库 where id="& Recordset1__MMColParam '检测是否有该影片 rs.open sql,conn,1,1 if rs.recordcount =0 then response.write "抱歉，系统中没有该影片的相关纪录！" response.end rs.close end if Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ys_STRING Recordset1.Source = "SELECT * FROM 影片库 WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 'response.write Recordset1.Source 'response.end Recordset1.Open() If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") sql="update 影片库 set 点播次数=点播次数+1 where ID=" & Recordset1__MMColParam MM_ys_STRING.execute(sql) 'server.execute "" End If Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = Recordset1.Fields.Item("ID").Value %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_ys_STRING Recordset2.Source = "SELECT ID, 说明,服务器编号 FROM 影片地址库 WHERE 影片ID = " + Recordset1__MMColParam + " ORDER BY ID ASC" 'response.write Recordset2.Source Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <%=(Recordset1.Fields.Item("影片名称").Value)%> 电影下载 <%=(Recordset1.Fields.Item("影片名称").Value)%> 在线观看 <%=(Recordset1.Fields.Item("影片名称").Value)%> 电影海报 - www.92DV.com - （92dv,就爱dv,电影,********,黄金电影,电影下载,在线影院,免费电影,付费电影,收费电影,短信收费电影,短信付费电影,电话付费电影,声讯电话付费,免费的电影,宽带电影,ftp下载影片,免费电影下载,免费在线电影 http://www.92dv.com） <META content=<%=(Recordset1.Fields.Item("影片名称").Value)%> 电影下载 <%=(Recordset1.Fields.Item("影片名称").Value)%> 在线观看 <%=(Recordset1.Fields.Item("影片名称").Value)%> 电影海报92dv,就爱dv,电影,********,黄金电影,电影下载,在线影院,免费电影,付费电影,收费电影,短信收费电影,短信付费电影,电话付费电影,声讯电话付费,免费的电影,宽带电影,ftp下载影片,免费电影下载,免费在线电影 http://www.92dv.com name=Keywords> <META content=92dv,就爱dv,电影,********,黄金电影,电影下载,在线影院,免费电影,付费电影,收费电影,短信收费电影,短信付费电影,电话付费电影,声讯电话付费,免费的电影,宽带电影,ftp下载影片,免费电影下载,免费在线电影 http://www.92dv.com name=Description> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <META content="Microsoft FrontPage 4.0" name=GENERATOR> <META content="hawkwin Wei" name=Author> <META http-equiv=expires content=0> <META http-equiv=Pragma content=no-cache> <%ypmc=(Recordset1.Fields.Item("影片名称").Value)%>

《<%=(Recordset1.Fields.Item("影片名称").Value)%>》电影播放
<% if Recordset1.Fields.Item("图片地址").Value="" or isnull(Recordset1.Fields.Item("图片地址").Value) then 'pic_url=cstr(Recordset1.Fields.Item("ID").Value) & ".jpg" pic_url="nophoto.gif" else pic_url=Recordset1.Fields.Item("图片地址").Value end if %>
影片名称： <%=(Recordset1.Fields.Item("影片名称").Value)%>
影片分类： <%=(Recordset1.Fields.Item("影片类型").Value)%>
地区范围： <%=(Recordset1.Fields.Item("地区").Value)%>
主要演员： <%=(Recordset1.Fields.Item("主要演员").Value)%>
影片长度： <%=(Recordset1.Fields.Item("影片长度").Value)%>分钟
清晰程度： <%=(Recordset1.Fields.Item("清晰程度").Value)%>
影片格式： <%=(Recordset1.Fields.Item("格式").Value)%>
推荐级别： <%=string(Recordset1.Fields.Item("推荐级别").Value,"★")%>
加入时间： <%=(Recordset1.Fields.Item("加入日期").Value)%>
在线播放： <% downnum=0 playnum=0 While (Not Recordset2.EOF) if Recordset2.Fields.Item("服务器编号").Value="03" or Recordset2.Fields.Item("服务器编号").Value="04" or Recordset2.Fields.Item("服务器编号").Value="07" then %> ><%=Recordset2.Fields.Item("说明").Value%> <% playnum=playnum+1 end if if instr(1,Recordset2.Fields.Item("说明").Value,"在线")>0 then %> ><%=Recordset2.Fields.Item("说明").Value%> <% playnum=playnum+1 end if if instr(1,Recordset2.Fields.Item("说明").Value,"在线")=0 then downnum=downnum+1 Recordset2.MoveNext Wend if playnum=0 then response.write "此片暂不提供在线播放" end if %>
电影下载 <%=(Recordset1.Fields.Item("影片名称").Value)%> 在线观看 <%=(Recordset1.Fields.Item("影片名称").Value)%> 电影海报">
影片简介：
<%=ctoh(Recordset1.Fields.Item("详细介绍").Value)%>
<%=(Recordset1.Fields.Item(">

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>