video_list.asp

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

<!-- #include file="include/config_video.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim nummer,pageurl,thepages,viewpage,keyword,sea_type,rssum,page,url,abc

nummer=web_var(web_num,4)

if trim(request.querystring("sea_type"))<>"" then action="sea"

select case action
case "counter"
tit="人气排行"
case "hot"
tit="推荐排行"
case "hot1"
tit="推荐视频"
case "tim"
tit="时间排行"
case "id"
tit="先后排行"
case "desc"
tit="视频列表"
case "sea"
tit="影片搜索"
case else
tit=action
abc=action
end select

'abc=trim(request.querystring("type"))
cid=trim(request.querystring("c_id"))

call web_head(0,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
call video_sea()
%>
<!-- #include file="include/jk_ubb.asp" -->
<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---------------------------------
response.write ukong

pageurl="?action="&action&"&"

keyword=code_form(request.querystring("keyword"))
sea_type=trim(request.querystring("sea_type"))

if cid=""then cid=0
if cid>0 then
    sqladd=sqladd&" and c_id="&cid
    pageurl=pageurl&"c_id="&cid&"&"
end if

    if len(keyword)>0 then
      sqladd=sqladd&" and "&sea_type&" like '%"&keyword&"%'"
      pageurl=pageurl&"keyword="&server.urlencode(keyword)&"&"
      pageurl=pageurl&"sea_type="&sea_type&"&"
  end if



sql="select * from video where hidden=1"&sqladd
select case action
case "counter"
  sql=sql&" order by counter desc,id desc"
case "tim"
  sql=sql&" order by tim desc"
case "hot"
  sql=sql&" order by hot desc"
case "hot1"
  sql=sql&" and hot=5 order by id desc"
case "id"
  sql=sql&" order by id"
case else
  sql=sql&" order by id desc"
end select

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if
call format_pagecute()
dim kname
if keyword<>"" then
kname="共搜索到&nbsp;"
else
kname="共&nbsp;"
end if
%>
<table border=0 width='96%'>
<tr><td align=right><img src='images/video/center_list.gif' border=0></td></tr>
<tr><td align=center height=30>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr align=center valign=bottom><td width='30%'><%=kname%><font class=red><%
  if rssum>0 then
  response.write rssum
  else
  response.write 0
  end if
  %></font>&nbsp;个&nbsp;<font class=blue><b><%=abc%></b></font>┋每页<font class=red><%response.write nummer%></font>个
  </td>
  <td width='70%'>页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font> 分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td></tr>
  </table>
</td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<tr><td align=right>选择排列方式：  <a href="?c_id=<%=cid%>&action=desc">默认</a> | <a href="?c_id=<%=cid%>&action=hot">推荐</a> | <a href="?c_id=<%=cid%>&action=counter">人气</a> | <a href="?c_id=<%=cid%>&action=tim">时间</a> | <a href="?c_id=<%=cid%>&action=id">先后</a></td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<%
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
  if rs.eof then exit for
  nid=rs("id"):name=rs("title"):emoney=rs("emoney"):power=rs("power")
dim emoney,power

if left(rs("pic"),4)<>"http" then
uploadpic=web_var(web_upload,1)
else
uploadpic=""
end if
%>
<tr><td>
<table border="0" cellpadding="2" cellspacing="3" width="100%">
  <tr>
    <td width="30%" rowspan="4" align=center><img src='<%=uploadpic&rs("pic")%>' border=0 width=100 height=80></td>
    <td width="70%">片名：<a href='video_view.asp?id=<%=rs("id")%>'><b><%=rs("title")%></b></A></td>
  </tr>
          <%
		  dim play,pimg
           if rs("type")="md" then
           pimg="images/video/f_wmp.gif"
           elseif rs("type")="rm" then
           pimg="images/video/real.gif"  
           else
           pimg="images/video/mov.gif"  
           end if  
%>
  <tr>
    <td>类型：<img src='<%=pimg%>' border=0 align=absmiddle>&nbsp;&nbsp;<%response.write rs("lang")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;主演：<%response.write rs("name")%></td>
  </tr>
  <tr>
    <td>星级：<img src='images/down/star<%=rs("hot")%>.gif' border=0>&nbsp;&nbsp;人气：<FONT class=red_3><%=rs("counter")%></FONT></td>
  </tr>
  <tr>
    <td><%response.write power_pic(emoney,power,1)%></td>
  </tr>
  <tr>
    <td align=center valign=top><a href='video_view.asp?id=<%=rs("id")%>'><font color=red><b>观看请从这里进入</B></font></a></td>
    <td>介绍：<%=code_html(rs("remark"),2,70)%></td>
  </tr>
</table>
</td></tr>
<tr><td height=1 background='images/bg_dian.gif'></td></tr>
<%
  rs.movenext
next
rs.close:set rs=nothing
%>
<tr><td align=center height=30>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr align=center valign=bottom><td width='30%'><%=kname%><font class=red><%
  if rssum>0 then
  response.write rssum
  else
  response.write 0
  end if
  %></font>&nbsp;个&nbsp;<font class=blue><b><%=abc%></b></font>┋每页<font class=red><%response.write nummer%></font>个
  </td>
  <td width='70%'>页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font> 分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td></tr>
  </table>
</td></tr>
</table>
<%response.write kong
'---------------------------------center end-------------------------------
call web_end(0)
%>