<%
articleid=request("id")
if isnumeric(articleid)=false then
response.redirect "error.htm"
end if
dim sql
dim rsy
set rsy=server.createobject("adodb.recordset")
sql="update learning set hits=hits+1 where articleID="&articleid
rsy.open sql,conn,1,3
sql="select * from learning where articleid="&articleid
rsy.open sql,conn,1,1
title=rsy("title")
ittype=rsy("typeid")
canlook=rsy("canlook")
if canlook=3 then
if request.cookies("goldindex88")<>"yes" then
response.write "该电影只有黄金会员才可以看"
response.end
end if
end if
%>
<%=title%>(DVD) - <%=title%>(DVD)电影下载 - <%=title%>(DVD)在线观看 - <%=title%>(DVD)电影下载 - <%=title%>(DVD)免费电影下载 - <%=title%>(DVD)BT下载
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select articleid,title,hits from learning where canlook<>3 and typeid='"&ittype&"'order by hits desc",conn,1,1
i=0
do while not rst.eof
i=i+1
%>
<%elseif rsy("movietype")="md" then%>
<%elseif rsy("movietype")="mov" then%>
<%end if%>
