📄 movie带服务器状态显示.asp
字号:
<!--#include file="articleconn.asp"-->
<%
articleid=request("id")
if isnumeric(articleid)=false then
response.redirect "error.htm"
end if
%>
<%
dim sql
dim rs
articleid=clng(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")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>《<%=title%>》蚂蚁影院</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="css/style.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
mediaWindow = window.open(theURL,winName,features);
mediaWindow.focus();
}
//-->
</SCRIPT>
<SCRIPT language=javascript>
<!--
var state=0
window.resizeTo(600,560);
window.moveTo((screen.width-600)/2, (screen.height-560)/2);
//-->
</SCRIPT>
<SCRIPT language=JavaScript1.2>
<!--
function Show(divid) {
divid.filters.revealTrans.apply();
divid.style.visibility = "visible";
divid.filters.revealTrans.play();
}
function Hide(divid) {
divid.filters.revealTrans.apply();
divid.style.visibility = "hidden";
divid.filters.revealTrans.play();
}
//-->
</SCRIPT>
<script>
function OpenWindow(htmurl,widths,heights)
{
var paramet = 'toolbar=no,resizable=yes,scrollbars=yes,width='+ widths + ',height=' + heights;
newWindow = window.open(htmurl,"yule21",paramet);
newWindow.focus();
}
</script>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY oncontextmenu="return false" onselectstart="return false"
ondragstart="return false" bgColor=#3b5815 leftMargin=5 topMargin=5
marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=562 align=center border=0>
<TBODY>
<TR>
<TD align=middle height=27><IMG src="images/mayimovie.gif"></TD></TR>
<TR>
<TD align=left background=images/mediatop2.gif height=27>
<p align="center"><span class="title"><%=title%></span></TD>
</TR>
<TR>
<TD vAlign=top background=images/mediabg.gif>
<TABLE width="95%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width="65%">
<TABLE height=8 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=1 src="images/spacer.gif"
width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=1 width="95%"
borderColorLight=#000000 border=0>
<TBODY>
<TR>
<TD class=introTXT>片 名： </TD>
<TD class=introTXT><b><%=title%></b></TD>
</TR>
<TR>
<TD vAlign=top width=80>影视类型：</TD>
<TD><a href="class.asp?typeid=<%=ittype%>"
class=xhx> <%=ittype%></a> </TD>
</TR>
<TR>
<TD width=80 height="21" vAlign=top>地 区：</TD>
<TD> <font class="eng_S"><%=rs("where")%> 地区</font> </TD>
</TR>
<TR>
<TD vAlign=top width=80>片 长：</TD>
<TD> <font class="eng_S" ><%=rs("howlong")%></font>
分钟</TD>
</TR>
<TR>
<TD vAlign=top width=80>主要演员：</TD>
<TD> <%=rs("name")%></TD>
</TR>
<TR>
<TD vAlign=top width=80>片源格式：</TD>
<TD>
<% if rs("movietype")="rm" then%>
<img src="IMG/real.gif" border="0">
<%elseif rs("movietype")="md" then%>
<img src="IMG/media.gif" border="0">
<%elseif rs("movietype")="mov" then%>
<img src="IMG/lookmov.gif" border="0">
<%end if%>
</TD>
</TR>
<TR>
<TD vAlign=top width=80>点播每集：</TD>
<TD> 需要 <%=rs("count")%> 个影币(只对计点会员有用)</TD>
</TR>
<TR>
<TD vAlign=top width=80>报告错误：</TD>
<TD>
<a href="sendeoff.asp?title=<%=title%>" target="_blank">
点击报告该片有错误</a></TD>
</TR>
<TR>
<TD vAlign=top width=80>服务器状态：</TD>
<TD>
<%
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 not rsurl.eof Then %>
当前(<font color="#FF0000"><%= rs("serverip") %></font>)号服务器正常<img src="images/0.gif" width="10" height="10">
<% Else %>
(服务器可能维护中) <img src="images/2.gif" width="10" height="10">
<% End If %>
</TD>
</TR>
<TR>
<TD vAlign=top width=80>推荐级别：</TD>
<TD> <font class="eng_S"><img border="0" src="img/<%=rs("softlevel")%>STAR.GIF"></font>
</TD>
</TR>
<TR>
<TD vAlign=top width=80>点播列表：</TD>
<TD><font color="#FFFFFF">
<%
if rsurl.eof then
response.write "没有提供在线观看"
else
no=rsurl.recordcount
if no=1 then%>
<a href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',460,425);">
全集</a>
<% elseif no=2 then
%>
<a href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',368,370);">上集</a>
<%rsurl.movenext%>
<a href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',460,425);">
下集</a>
<%elseif no=3 then%>
<a href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',460,425);">
上集</a>
<%rsurl.movenext%>
<a href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',460,425);">
中集</a>
<%rsurl.movenext%>
<a href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',460,425);">
下集</a>
<%elseif no>3 then
dim c
for c=1 to no
%>
<a class="real" href="javascript:OpenWindow('look.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>',460,425);">
<%=c%> </a>
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "不提供在线观看"
end if
%>
</font></TD>
</TR>
<TR>
<TD vAlign=top width=80>电影下载： </TD>
<TD>
<%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%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>">全集</font></a>
<% elseif no=2 then
%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>">上集</a>
<%rsurl.movenext%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>">
下集</a>
<%elseif no=3 then%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>" )">
上集</a>
<%rsurl.movenext%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>">
中集</a>
<%rsurl.movenext%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>">
下集</a>
<%elseif no>3 then
for c=1 to no
%>
<a target="_blank" href="down.asp?id1=<%=rsurl("id")%>&id2=<%=articleid%>">[<%=c%>]</a>
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "不提供影片下载"
end if
%>
</TD>
</TR>
</TABLE></TD>
<TD vAlign=top align=middle width=200>
<TABLE cellSpacing=0 cellPadding=0 width=165 border=0>
<TBODY>
<TR height=0>
<td width="200" align="center" valign="top"> <table width="165" border="0" cellpadding="0" cellspacing="0">
<tr height="0">
<td height="0"> <div id="Layer1" style="position:relative; left:10px; top:110px; z-index:2; width: 0; height: 0;">
<img src="img/cn-mayi.gif"> </div></td>
</tr>
<tr>
<td align="center">
<img src="<%if rs("domurl")="" then%>tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" border="1" width="160" height="230">
</td>
</tr>
</table>
</td>
</TR></TBODY></TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD background=images/mediabg.gif> </TD>
</TR>
<TR>
<TD background=images/mediabg.gif>
<TABLE cellSpacing=10 cellPadding=0 width="95%" align=center border=0>
<TBODY>
<TR>
<TD>内容简介：<BR>
<%=rs("content")%><span
class="menu"></span></TD>
</TR>
<TR>
<TD><p><font color="#FF0000"><strong>计点说明：</strong></font></p>
<p><font color="#FF0000"> 为预防某些因网络问题引起观看中断，因此同一部影片第一次购买后，可以免费观看或者下载<b>5次</b>，每点一下为一次，不论集数多少！因此如果要看电视剧的会员建议您使用包月制会比较划算！</font></p></TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<TR borderColorLight=#000000>
<TD align=middle background=images/mediabg.gif height=30><INPUT class=button1 onclick=javascript:self.close() type=button value=关闭本窗口 name=Submit>
</TD></TR>
<TR borderColorLight=#000000>
<TD align=middle><IMG height=69 src="images/mediaend.gif"
width=562></TD></TR></TBODY></TABLE></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -