主题:  look.asp

tianlan23
职务：普通成员
等级：1
金币：0.0
发贴：23
#12003/10/23 11:07:14
<%
bb1=request("id1")
bb2=request("id2")
%>






欢迎收看电影

tianlan23
职务：普通成员
等级：1
金币：0.0
发贴：23
#22003/10/23 11:14:11
解密后的

="
<br>

"

tianlan23
职务：普通成员
等级：1
金币：0.0
发贴：23
#32003/10/23 11:20:59


<%
dim sql
dim rs
articleid=request("id")
set rs=server.createobject("adodb.recordset")
sql="update learning set hits=hits+1 where articleID="&articleid
rs.open sql,conn,1,3
sql="select * from learning where articleid="&articleid
rs.open sql,conn,1,1
title=rs("title")
ittype=rs("typeid")

%>



<%=title%>























你的位置：首页-> <%=ittype%>-> <%=title%>
搜索影片：














































　本类推荐影片



<%
sql="select top 3 articleid,domurl,title,content from learning where best=true and typeid='"&ittype&"' order by articleid desc"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql,conn,1,1
if rst.eof and rst.bof then
response.write "

该类型目前还没有任何推荐电影

"
else
do while not rst.eof%>




<% rst.movenext
loop
end if
%>

IMAGES/nopic.gif<%else%><%=rst("domurl")%><%end if%>" width="73" height="92">
">
<%=rst("title")%>

<%
content=rst("content")
if len(content)>42 then content=left(content,42)&"……"
response.write content
%>











　本类观看排行

点击


<%sql="select top 10 articleid,title,hits from learning where typeid='"&ittype&"'order by hits desc"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sql,conn,1,1
i=0
do while not rst.eof
i=i+1%>




<%
if i>=10 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%>
<%=i%>."><%=rst("title")%>

<%=rst("hits")%>























 
播放软件


rm&see=ram格式


mpg、avi、mp3、wav等格式


Mov、Mpeg、Audio、image格式



观看本站电影需安装以上版本软件



























IMAGES/nopic1.gif<%else%><%=rs("url")%><%end if%>" width="206" align="left">






























































影片名称： <%=title%>
领衔主演： <%=rs("name")%>
影片类型： <%=ittype%>
影片级别： <% if rs("canlook")=1 then%>普通电影<%else%>黄金电影<%end if%>
开放对象： <% if rs("canlook")=1 then%>普通会员、白银会员、黄金会员<%else%>黄金会员<%end if%>
出产地区： <%=rs("where")%>地区
影片长度： <%=rs("howlong")%> 分种
推荐级别：
STAR.GIF">
上传时间： <%=rs("dateandtime")%>
相关评论：
" target="_blank">
共有会员评论 <%=rs("reviewcount")%> 篇
观看次数： <%=rs("hits")%>人次
播放格式： <% if rs("movietype")="rm" then%><%elseif rs("movietype")="md" then%><%elseif rs("movietype")="mov" then%><%end if%>
在线播放：
<%

sql="select * from movieurl where nameid='"&articleid&"'"
set rsurl=server.createobject("adodb.recordset")
if rs("onlinelook")=1 then
rsurl.open sql,conn,1,1
if rsurl.eof then
response.write "没有提供在线观看"
else
no=rsurl.recordcount
if no=1 then%> &id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
<%=title%><% elseif no=2 then
%> &id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
上集 <%rsurl.movenext%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
下集 <%elseif no=3 then%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
上集 <%rsurl.movenext%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
中集 <%rsurl.movenext%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
下集 <%elseif no>3 then
dim c
for c=1 to no
%> &id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
[<%=c%>]
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "不提供在线观看"
end if
%>
下载影片：
<%if rs("down")=1 then
rsurl.open sql,conn,1,1
if rsurl.eof then
response.write "没有提供影片下载"
else
no=rsurl.recordcount
if no=1 then%> &id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
<%=title%><% elseif no=2 then
%> &id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
上集 <%rsurl.movenext%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
下集 <%elseif no=3 then%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
上集 <%rsurl.movenext%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
中集 <%rsurl.movenext%>
&id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
下集 <%elseif no>3 then
for c=1 to no
%> &id2=<%=articleid%>','tryplay','width=373,height=341')" href="#">
[<%=c%>]
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "不提供影片下载"
end if
%>


　








影片简介：

　<%=rs("content")%>















<%
set rsurl=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

编辑历史:[此帖被lemontree编辑过(编辑时间2003-10-26 11:30:00)]

jensgn
职务：普通成员
等级：1
金币：0.0
发贴：4
#42003/10/26 11:10:07
这不是那套破金梅电影程序吗?