video_view.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_video.asp" -->
<!-- #include file="include/conn.asp" -->
<script language=javascript src='style/open_win.js'></script>
<%
dim id:id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("video.asp")
  reponse.end
end if
%>
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/config_review.asp" -->
<%
dim cname,sname,dsql,drs,temp1,keyes,power,play,pimg,howlong,username,where
set drs=server.createobject("ADODB.recordset")
dsql="select videotype.type,video.* " & _
     "from videotype,video where videotype.typeid=video.c_id and video.id="&id&" and video.hidden=1"
drs.open dsql,conn,1,1

if drs.eof and drs.bof then
  drs.close:set drs=nothing
  call close_conn()
  call format_redirect("video.asp")
  response.end
end if
cid=drs("c_id")
cname=drs("type")
tit="影视欣赏（"&cname&"）"

call web_head(0,0,0,0,0)

'------------------------------------left----------------------------------
call format_login()
call video_sea()
%>
<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%call tab5("<img src='images/video/left_sort.gif' border=0>",video_sort)%></td></tr>
<tr><td align=center>
<br>
<table border=0 width=177 cellspacing=0 cellpadding=0>
<tr><td><img src='images/video/left_hot.gif' border=0></td></tr>
<tr><td background='images/video/left_bg.gif' align=center>
<%call video_new_hot("","","","","hot",5,0,13,1,0,"")%>
</td></tr>
<tr><td><img src='images/video/left_end.gif' border=0></td></tr>
</table>
</td></tr>
</table>
<%
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
%><br>
<table width='98%' border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td align=right><img src='images/video/center_view.gif' border=0></td></tr>
<tr><td height=10></td></tr>
<tr><td align=center>
  <table border=0 cellspacing=0 cellpadding=0 width='98%'>
  <tr>
          <td rowspan=3 width=23>
<table width="100%" height="200" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="31"><img src="IMAGES/video/view_left_up.gif" width="23" height="31"></td>
              </tr>
              <tr>
                <td background="IMAGES/video/view_left_bg.gif"><img src="IMAGES/video/view_left_bg.gif" width="23" height="30"></td>
              </tr>
              <tr>
                <td height="39"><img src="IMAGES/video/view_left_down.gif" width="23" height="39"></td>
              </tr>
            </table>
          </td>
  <td height=7 background='images/video/view_bg_top.gif'></td>
          <td rowspan=3 width=23>
<table width="100%" height="200" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="37"><img src="IMAGES/video/view_right_up.gif" width="23" height="37"></td>
              </tr>
              <tr> 
                <td background="IMAGES/video/view_right_bg.gif"><img src="IMAGES/video/view_right_bg.gif" width="23" height="30"></td>
              </tr>
              <tr> 
                <td height="39"><img src="IMAGES/video/view_right_down.gif" width="23" height="39"></td>
              </tr>
            </table>
          </td>
  </tr>
  <tr><td height=134 align=center>
    <table border=0 width='96%'>
    <tr valign=top><td width='30%'></td><td width='1%'></td><td width='69%'></td></tr>
    <tr valign=top>
    <td align=center>
      <table border=0>
<%		  
'网上图片判断
if left(drs("pic"),4)<>"http" then
uploadpic=web_var(web_upload,1)
else
uploadpic=""
end if
%>
      <tr><td><img src='<% response.write uploadpic&drs("pic") %>' border=0 width=<%response.write web_var(web_num,7)%> height=<%response.write web_var(web_num,8)%>></td></tr>
      </table>
    </td>
    <td></td>
    <td>
        <%
           if drs("type")="md" then
           pimg="images/video/f_wmp.gif"
           elseif drs("type")="rm" then
           pimg="images/video/real.gif"  
           else
           pimg="images/video/mov.gif"  
           end if    

		   emoney=drs("emoney"):power=drs("power")
		   dim emoney
%>
                  <table border=0 width='100%' cellspacing=0 cellpadding=2>
                    <tr> 
                      <td>视频名称：<font class=blue><b> 
                        <%response.write drs("title")%>
                        </b></font></td>
                      <td>产地：<font class=red_3> 
                        <%response.write drs("where")%>
                        </font></td>
                    </tr>
                    <tr> 
                      <td>视频类型：<img src='<%=pimg%>' border=0 align=absmiddle>&nbsp; 
                        <%response.write drs("lang")%>
                        </td>
                      <td width="51%">主演： 
                        <%response.write drs("name")%>
                      </td>
                    </tr>
                    <tr> 
                      <td>推荐星级：<img src='images/down/star<%response.write drs("hot")%>.gif' border=0> 
                      </td>
                      <td width="51%">发布： 
                        <%response.write drs("username")%>
                      </td>
                    </tr>
                    <tr> 
                      <td>观看人气：<font class=red_3> 
                        <%response.write drs("counter")%>
                        </font>
                      </td>
                      <td>长度：<font class=red_3> 
                        <%response.write drs("howlong")%>
                        </font></td>
                    </tr>
                    <tr> 
                      <td colspan="2">所需 
                        <%response.write power_pic(emoney,power,1)%>
                      </td>
                    </tr>
                    <tr> 
                      <td colspan="2">更新时间：<font class=gray> 
                        <%response.write time_type(drs("tim"),88)%>
                        </font></td>
                    </tr>
                  </table>
    </td>
    </tr>
    </table>
  </td></tr>
  <tr><td height=7 background='images/video/view_bg_end.gif'></td></tr>
  </table>
</td></tr>
</table>
<table width='98%' border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td height=10></td></tr>
<tr align=center valign=top>
<td width='75%'>
  <table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>
  <tr><td><img src='images/video/center_s_remark.gif' border=0></td></tr>
  <tr><td align=center>
    <table border=0 width='96%' class=tf>
    <tr><td height=5></td></tr>
    <tr><td class=bw><font class=htd><%
temp1=drs("remark")
if len(temp1)<3 then
  temp1="<font class=gray>好像没有关于该影片的介绍哦！</font>"
else
  temp1=code_jk(temp1)
end if
response.write temp1
%></font></td></tr>
    <tr><td height=5></td></tr>
    </table>
  </td></tr>
  </table>
</td>
<td width='25%'>
  <table width='98%' border=0 cellspacing=0 cellpadding=0 align=center>
  <tr><td align=center><img src='images/video/small_plays.gif' border=0></td></tr>
  <tr><td height=20></td></tr>
 <tr><td height=30 align=center>
<%
dim vid,vtitle,vld,no,rsurl

vid=drs("id"):vtitle=drs("title"):vld=drs("ld")
drs.close:set drs=nothing

set rsurl=server.createobject("ADODB.recordset")
sql="select * from videourl where nameid="&vid&""

if vld>0 then
rsurl.open sql,conn,1,3
if rsurl.eof then
response.write "<font class=red_3>不提供在线观看</font>"
else
no=rsurl.recordcount
if no=1 then
%> 
<font class=red_3>播放影片:</font><br><a href='javascript:;' onclick="javascript:open_win('video_play.asp?id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');"><%=vtitle%></a>
<% elseif no=2 then%> 
<a href='javascript:;' onclick="javascript:open_win('video_play.asp?action=[上集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');">在线播放:上集</a><br>
<%rsurl.movenext%>
<a href='javascript:;' onclick="javascript:open_win('video_play.asp?action=[下集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');">在线播放:下集</a> 
<%elseif no=3 then%>
<a href='javascript:;' onclick="javascript:open_win('video_play.asp?action=[上集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');">在线播放:上集</a><br> 
<%rsurl.movenext%>
<a href='javascript:;' onclick="javascript:open_win('video_play.asp?action=[中集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');">在线播放:中集</a><br> 
<%rsurl.movenext%>
<a href='javascript:;' onclick="javascript:open_win('video_play.asp?action=[下集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');">在线播放:下集</a> 
<%elseif no>3 then 
response.write "<font class=red_3>在线播放（集）:</font><br>"
response.write kong
dim c
for c=1 to no
%>

<a href='javascript:;' onclick="javascript:open_win('video_play.asp?action=[第<%=c%>集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','video_play',373,360,'no');">[<%=c%>]</a>

<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "<font class=red_3>不提供在线观看</font>"
end if
%>
</td></tr>
    <tr><td height=20></td></tr>
 <tr><td height=30 align=center>
<%
if vld<>1 then
rsurl.open sql,conn,1,1

if rsurl.eof then
response.write "<font class=red_3>此影片没有提供下载</font>"
else
no=rsurl.recordcount
if no=1 then
%> 
<font class=red_3>下载影片:</font><br><a href='javascript:;' onclick="javascript:open_win('video_down.asp?id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');"><%=vtitle%></a>
<% elseif no=2 then%> 
<a href='javascript:;' onclick="javascript:open_win('video_down.asp?action=[上集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');">下载影片:上集</a><br>
<%rsurl.movenext%>
<a href='javascript:;' onclick="javascript:open_win('video_down.asp?action=[下集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');">下载影片:下集</a> 
<%elseif no=3 then%>
<a href='javascript:;' onclick="javascript:open_win('video_down.asp?action=[上集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');">下载影片:上集</a><br> 
<%rsurl.movenext%>
<a href='javascript:;' onclick="javascript:open_win('video_down.asp?action=[中集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');">下载影片:中集</a><br> 
<%rsurl.movenext%>
<a href='javascript:;' onclick="javascript:open_win('video_down.asp?action=[下集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');">下载影片:下集</a> 
<%elseif no>3 then
response.write "<font class=red_3>下载影片（集）:</font><br>"
response.write kong
'dim c
for c=1 to no
%> 
<a href='javascript:;' onclick="javascript:open_win('video_down.asp?action=[第<%=c%>集]&id1=<%=rsurl("id")%>&id2=<%=vid%>','vdown',420,60,'no');">[<%=c%>]</a>
<% rsurl.movenext
next
end if
end if
rsurl.close
else
response.write "<font class=red_3>此影片没有提供下载</font>"
end if
%>
</td></tr>
  <tr><td align=center height=50>[&nbsp;<a href='javascript:;' onclick="javascript:open_win('email.asp?nsort=<%=tit%>&topic=<%=vtitle%>&url=video_view.asp?id=<%=vid%>','email',500,305,'no');">→&nbsp;推荐给我的好友</a>&nbsp;]</td></tr>
  </table>
</td>
</tr>
</table>
<script language=javascript>
<!--
function openwin(url)
{
  var width=500;
  var height=400;
  var Left_size = (screen.width) ? (screen.width-width)/2 : 0;
  var Top_size = (screen.height) ? (screen.height-height)/2 : 0;
  showModalDialog(url,session_view.value,"dialogWidth:"+width+"px;status:no;dialogHeight:"+height+"px;resizable:no");
}
-->
</script>
<table width=98%>
<tr><td height=10></td></tr>
<tr><td align=center><% call review_type(n_sort,id,"video_view.asp?id="&vid,1) %></td></tr>
<tr><td height=5></td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_end(0)
%>