syscode_vid.asp

后台登陆admin.asp

set RsHxcms=server.createobject("adodb.recordset")
RsHxcms.open sql,conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30 colSpan=3><FONT color=#b70000>&nbsp;<B>·</B></FONT>"
if request("vidcat_id")<> "" then
Response.Write "本分类共有"
elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&RsHxcms.recordcount&"</span>个影片</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
if not RsHxcms.eof then
   Dim Hx_Nums,MultiPages,i
   RsHxcms.PageSize=Hxperpage
   RsHxcms.AbsolutePage=CurPage
   Hx_Nums=RsHxcms.RecordCount
   MultiPages="<tr><td colspan=""3"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until RsHxcms.EOF OR i=Hxperpage
if RsHxcms("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶影片>"       
else
folder="<img src=""img/4.gif"" title=普通影片>"       
end if      
if RsHxcms("istop")="0" then      
if RsHxcms("isbest")=1 then
folder="<img src=""img/2.gif"" title=推荐影片>"
elseif RsHxcms("hits")>=popvidnum then
folder="<img src=""img/3.gif"" title=热门影片>"      
else
folder="<img src=""img/4.gif"" title=普通影片>"       
end if      
end if      
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan=3 height='10'></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan=3 height=25>"
Response.Write "<table width='100%' border='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<TD width='15' align=Center>"&folder&"</TD>"
Response.Write "<td width='*'><a href='showvid.asp?vid_id="&RsHxcms("vid_id")&"'><font color='#ff0000'><B>"&RsHxcms("title")&"</B></font></a></td>"
Response.Write "<td width='140' align='right'>"&RsHxcms("dateandtime")&"&nbsp;&nbsp;</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td rowspan='5' align='center' width='110'><a href='showvid.asp?vid_id="&RsHxcms("vid_id")&"' "& nnn &"><img src="&RsHxcms("images")&" width='"&ImgWidth&"' height='"&ImgHeight&"' border='0' alt='点击进入'></a></td>"
Response.Write "<td width='80' height='22' align=Center>领衔主演</td>"
Response.Write "<td width='400' height='22'>&nbsp;&nbsp;"&left(RsHxcms("dog"),20)&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='22' align=Center>影片格式</td>"
Response.Write "<td height='22'>&nbsp;&nbsp;"&RsHxcms("runsystem")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='22' align=Center>观看次数</td>"
Response.Write "<td height='22'>&nbsp;&nbsp;"&RsHxcms("hits")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='22' align=Center>推荐等级</td>"
Response.Write "<td height='22'>&nbsp;&nbsp;"&RsHxcms("filmlevel")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='40' align=Center>剧情简介</td>"
Response.Write "<td height='40'>&nbsp;&nbsp;"&left(RsHxcms("content"),70)&"...</td>"
Response.Write "</tr>" & vbCrLf
i=i+1
RsHxcms.movenext
loop
else
if RsHxcms.eof and RsHxcms.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60' colSpan=3>"
if request("vidcat_id")<> "" then
Response.Write "该分类暂时没有影片"
elseif request("keyword")<>"" then
Response.Write "没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的影片！"
else
Response.Write "没有任何影片，请管理员到后台添加！"
end if
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
RsHxcms.close
set RsHxcms=nothing
end sub

'=================================================
'过程名：content_vid
'作  用：显示影片标题、内容
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub content_vid()
if request.querystring("vid_id")="" then
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
  Response.End
else
  if not isInteger(request.querystring("vid_id")) then
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
    Response.End
  end if
end if
if rs("Grade")="0" then
hx66Grade="游客身份"
elseif rs("Grade")="1" then
hx66Grade="会员身份"       
elseif rs("Grade")="2" then
hx66Grade="VIP身份"       
end if
Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td width='100%' colspan=3 align='center' HEIGHT=30><font color=#ff6600><b>"&rs("title")&"</b></font></td>"
Response.Write "</tr>" & vbCrLf 
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center' width='15%'>加入时间</td>"
Response.Write "<td width='55%'>&nbsp;"&rs("dateandtime")&"</td>"
Response.Write "<td rowspan='7' align='center' width='200'>"
if rs("images")<>"http://ynsky.com.cn" then
Response.Write "<a href='"&rs("images")&"' title='"&rs("images")&"' target=_blank><img src='"&rs("images")&"' border='0' valign='center'></a>" & vbCrLf
else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>领衔主演</td>"
Response.Write "<td>&nbsp;"&rs("dog")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>影片格式</td>"
Response.Write "<td>&nbsp;"&rs("runsystem")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>浏览次数</td>"
Response.Write "<td>&nbsp;"&rs("hits")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>推荐程度</td>"
Response.Write "<td>&nbsp;"&rs("filmlevel")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>观看权限</td>"
Response.Write "<td>&nbsp;<font color=red>"&hx66Grade&"</font></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='25' align='center'>观看花费</td>"
Response.Write "<td>&nbsp;<font color=red>"&rs("points")&"</font> " &moneyname& "/集</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td width='100%' colspan=3 style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">&nbsp;&nbsp;&nbsp;&nbsp;<b>剧情简介：</b><br>&nbsp;&nbsp;&nbsp;&nbsp;"&formatStr(autourl(rs("content")))&"</td>"
Response.Write "</tr>" & vbCrLf 
if UserLogined<>True then 
    Grade=0
else 
    Grade=Hx66_Grade+1
end if
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center'>在线观看</td>"
Response.Write "<td colspan=3>"
%>
<script language="javascript">
function popwin(id,path)
{		window.open("vidplayer.asp?id="+id+"&see="+path,"","height=360,width=350,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<%
if Grade>=RS("Grade") and Hx66_points>=rs("points") then
if rs("runsystem")<>rm then
dim filmurl,url,line
url ="SELECT * FROM vidurl WHERE filmid = "&rs("vid_id")&" ORDER BY id "
Set filmurl = Server.CreateObject("ADODB.Recordset")
filmurl.open url,Conn,3,1
if filmurl.eof then
response.write "没有影片提供观看"
elseif filmurl.recordcount=1 then
response.write " <a href='javascript:popwin("&filmurl("id")&",1)'><b>全集</b></a>"
elseif filmurl.recordcount=2 then
response.write " <a href='javascript:popwin("&filmurl("id")&",1)'><b>上集</b></a>"
filmurl.movenext
response.write " <a href='javascript:popwin("&filmurl("id")&",2)'><b>下集</b></a>"
elseif filmurl.recordcount=3 then
response.write " <a href='javascript:popwin("&filmurl("id")&",1)'><b>上集</b></a>"
filmurl.movenext
response.write " <a href='javascript:popwin("&filmurl("id")&",2)'><b>中集</b></a>"
filmurl.movenext
response.write " <a href='javascript:popwin("&filmurl("id")&",3)'><b>下集</b></a>"
else
do while not filmurl.eof
for line=1 to 15
if len(filmurl("no"))=1 then
response.write " <a href='javascript:popwin("&filmurl("id")&",0)'>[0"&filmurl("no") & "]</a>"
else
response.write " <a href='javascript:popwin("&filmurl("id")&",0)'>["&filmurl("no") & "]</a>"
end if
filmurl.movenext
if filmurl.eof then exit do
next
response.write "<br>" & vbCrLf
loop
filmurl.close
set filmurl=nothing
end if
end if
elseif Grade<RS("Grade") then
Response.Write "<font color=red>对不起，你的权限不够，不能观看此影片!</font>" & vbCrLf
elseif Hx66_points<rs("points") then
Response.Write "<font color=red>你的点数不足(你当前点数为：" &Hx66_points& ")，无法观看此影片。请与我们联系进行充值。</font>" & vbCrLf
end if
Response.Write "</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
end sub

'=================================================
'过程名：contextual_vid
'作  用：显示影片上下片
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub contextual_vid()
set RelationArt = conn.execute("select top 1 vid_id,title from vid where vid_id<"&request.querystring("vid_id")&" order by dateandtime desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个影片：</font>已经没有了<BR> " & vbCrLf    
else
Response.Write "<font color=red>·上个影片：</font><a href=""showvid.asp?vid_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 vid_id,title from vid where vid_id>"&request.querystring("vid_id")&" order by vid_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个影片：</font>已经没有了"   
else
Response.Write "<font color=red>·下个影片：</font><a href=""showvid.asp?vid_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>" & vbCrLf  
end if  
RelationArt.close
Set RelationArt=Nothing 
end sub

'=================================================
'过程名：review_vid
'作  用：显示相关影片评论
'参  数：n-显示条数；point_vid-评论开关,1-开启，0-关闭
'Web:    www.ynsky.com.cn
'=================================================
sub review_vid(n)
dim temp,i,j
if point_vid="1" then
Response.Write "<table align=""center"" width=""98%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
if n>=ubound(temp) then
j=ubound(temp)
else
j=n
end if
for i=1 to j
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">"& temp(i) &"</td></tr>"
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right"">相关评论<font color=#CC0000> "&rs("reviewcount")&" </font>篇，当前显示最新的<font color=#CC0000> "&n&" </font>篇。&nbsp;&nbsp;<a href=""view.asp?action=vid&vid_id="&rs("vid_id")&"""> [查看更多评论] [发表我的评论]</a>&nbsp;&nbsp;</td></tr>"
Response.Write "</table>"
elseif point_vid="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">"
Response.Write "<tr><td  align=""center"">【影视评论已关闭】"
Response.Write "</td></tr>"
Response.Write "</table>"
End If
rs.close
set rs=nothing
end sub

'****************************************************
%>