<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<!-- #include file="skin.asp" -->
<%
dim uploadpic,pic,nort,format_menu,img,skinid,video_c,skin_blue,web_var,code_form,movie,rsf,video_main
'atb:atb=" target=_blank":sk_bar=16:sk_class="end"
index_url="video":nort="video"
'tit_fir=format_menu(index_url)

sub video_movie(vm)
if vm="rm" then
movie="Real"
elseif vm="mov" then
movie="mov"
else
movie="wmv"
end if
end sub
%>


<%'-------电影分类
function video_sort()
dim t

  video_sort=vbcrlf&"<table border='0'><tr><td height='3'></td></tr>"

  sql="select * from videotype order by typeid"
  set rsf=conn.execute(sql)


  do while not rsf.eof
video_sort=video_sort&vbcrlf&"<tr>"
for t=1 to 2
if NOT rsf.EOF then
  video_sort=video_sort&vbcrlf&"<td>&nbsp;<img src=""images/video/fk00.gif"" width=""11"" height=""11"" border=""0"">&nbsp;&nbsp;<a href='video_list.asp?action="&rsf("type")&"&c_id="&rsf("typeid")&"'>"&rsf("type")&"</a></td>"
rsf.MoveNext                          
end if
next
video_sort=video_sort&vbcrlf&"</tr>" 
  loop
  rsf.close:set rsf=nothing
    video_sort=video_sort&vbcrlf&"<tr><td align=center>&nbsp;<img src=""images/video/fk00.gif"" width=""11"" height=""11"" border=""0"">&nbsp;&nbsp;<a href=video_list.asp?action=counter>人气最旺</a></td><td align=center>&nbsp;<img src=""images/video/fk00.gif"" width=""11"" height=""11"" border=""0"">&nbsp;&nbsp;<a href=video_list.asp?action=hot1>推荐电影</a></td></tr><tr><td colspan=2 align=center>"&put_type("video")&"</td></tr><tr><td align=center>&nbsp;<img src=""images/video/fk00.gif"" width=""11"" height=""11"" border=""0"">&nbsp;&nbsp;<a href=video_all.asp>所有电影</a></td><td align=center>&nbsp;<img src=""images/video/fk00.gif"" width=""11"" height=""11"" border=""0"">&nbsp;&nbsp;<a href=video_list.asp?action=黄金通道>黄金通道</a></td></tr><tr><td colspan=2 align=center>"&put_type("video")&"</td></tr></table>"
  video_sort=main_bar(0,"电影分类",video_sort,0,"100%","")
  response.write kong&video_sort
end function
'---------电影分类完%>

<%'---------电影查找
sub video_sea2()
  dim temp1,nid,nid2,rs,sql,rs2,sql2
  temp1=vbcrlf&"<table border=0 cellspacing=2 cellpadding=3 width='90%' align=center>" & _
        vbcrlf&"<script language=javascript><!--" & _
        vbcrlf&"function video_sea()" & _
        vbcrlf&"{" & _
        vbcrlf&"  if (video_sea_frm.keyword.value==""请输入关键字"")" & _
        vbcrlf&"  {" & _
        vbcrlf&"    alert(""请在搜索影片前先输入要查询的 关键字 ！"");" & _
        vbcrlf&"    video_sea_frm.keyword.focus();" & _
        vbcrlf&"    return false;" & _
        vbcrlf&"  }" & _
        vbcrlf&"}" & _
        vbcrlf&"--></script>" & _
        vbcrlf&"<form name=video_sea_frm action='video_list.asp' method=get onsubmit=""return video_sea()"">" & _
        vbcrlf&"<tr><td height=5></td></tr>" & _
        vbcrlf&"<tr><td>选项：<select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' name=sea_type sizs=1><option value='title'>影片名</option><option value='username'>主演</option></seelct></td></tr>" & _
        vbcrlf&"<tr><td>分类：<select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' name=c_id sizs=1><option value=''>类  别</option>"
  sql="select * from videotype order by typeid"
  set rs=conn.execute(sql)
  do while not rs.eof
    nid=int(rs(0))
    temp1=temp1&vbcrlf&"<option value='"&nid&"' class=bg_2"
    if cid=nid then temp1=temp1&" selected"
    temp1=temp1&">"&rs(1)&"</option>"

    
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"</select></td></tr>" & _

		vbcrlf&"<tr><td>关键字：<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type=text name=keyword value='请输入关键字' onfocus=""if (value =='请输入关键字'){value =''}"" onblur=""if (value ==''){value='请输入关键字'}"" size=12 maxlength=30>" & _

        vbcrlf&"</td></tr>" & _
		vbcrlf&"<tr><td align=center><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type=image src='images/video/sea_button.gif' border=0></td></tr>" & _
        vbcrlf&"</form><tr></tr></table>"
  temp1=main_bar(0,"搜索电影",temp1,0,"100%","")
  response.write kong&temp1
end sub
'---------电影查找
%>

<%sub hotop()
'---------首页人气电影
dim temp1,rsr
Set rsr= Server.CreateObject("ADODB.Recordset")
if video_main=1 then
sql="select * from video where hidden=1 and hot<>99 order by counter desc"
elseif cid<>"" then
sql="select * from video where hidden=1 and hot<>99 and c_id="&cid&" order by counter desc"
end if
rsr.open sql,conn,1,3
   if rsr.eof and rsr.bof then
temp1=vbcrlf&"<p align='center'> 还 没 有 任 何 电 影</p>"
end if
i=0
do while not rsr.eof
temp1=temp1&vbcrlf&"<table border='0'><tr><td align=left><font face=Wingdings color=#FF9600>x</font><a dypop='影视名称："&rsr("title")&"&lt;br&gt;发 布 人："&rsr("username")&"&lt;br&gt;观看人次："&rsr("counter")&"&lt;br&gt;整理时间："&rsr("tim")&" target='_blank' href='video_view.asp?id="&rsr("id")&"'>"&rsr("title")&"</td><td align=center>"&rsr("counter")&"</a></TD></tr></table>"
i=i+1
if i>=20 then exit do
rsr.movenext
loop
 rsr.close
set rsr=nothing
  temp1=main_bar(0,"人气排行",temp1,0,"100%","")
  response.write kong&temp1
end sub
'---------首页人气电影


%><%'------------顶部动图片
sub top(c_id,op)
dim csk3000,strSQL2,cool,temp1
  temp1=vbcrlf&"<marquee behavior='alternate' scrollamount='8' scrollDelay='100'  onmouseout='this.start()' onmouseover='this.stop()' width='560'><table>"

strSQL2 ="SELECT top "&op&" * FROM video WHERE hidden=1 and hot=5 and good=1 and hot<>99 ORDER BY id DESC"

Set csk3000 = Server.CreateObject("ADODB.Recordset")
csk3000.open strSQL2,Conn,3,1
cool=1
if csk3000.eof then
temp1=temp1&vbcrlf&"<font color='#ffffff'>没有影片提供观看</font>"
else
temp1=temp1&vbcrlf&"<tr>"
do while not csk3000.eof
if not csk3000.eof then

if left(csk3000("pic"),4)<>"http" then
uploadpic=objv7.web_var(web_upload,1)
else
uploadpic=""
end if

temp1=temp1&vbcrlf&"<td width='1' valign='top'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%' id='AutoNumber1'><tr><td width='100%'><p align='center'>"
temp1=temp1&vbcrlf&"<table cellSpacing=0 cellPadding=0 border=0 style=border-collapse: collapse bordercolor=#111111><tr><td width=5 height=5><img src=images/main/k1_1.gif border=0></td><td background=images/main/k1_top.gif height=2></td><td width=5 height=5><img src=images/main/k1_2.gif border=0></td></tr><tr><td width=5 background=images/main/k1_left.gif>　</td><td align=middle><table border=0><tr><td align=middle>"
temp1=temp1&vbcrlf&"<a href='video_view.asp?id="&csk3000("id")&"' target=_blank><img src='"&uploadpic&csk3000("pic")&"' border=0 width=120 height=100 alt='"&csk3000("title")&"'></A>"
temp1=temp1&vbcrlf&"</td></tr></table></td><td width=5 background=images/main/k1_right.gif></td></tr><tr><td width=5 height=5 nowrap><img src=images/main/k1_3.gif border=0></td><td background=images/main/k1_end.gif height=5 nowrap></td><td width=5 height=5 nowrap><img src=images/main/k1_4.gif border=0></td></tr></table>"
temp1=temp1&vbcrlf&"</td></tr></table></td><td width='124' valign='top' rowspan='2'></td>"
if cool=15 then
temp1=temp1&vbcrlf&"</TR><TR>"
end if
csk3000.movenext 
  end if   
cool=cool+1    
  if csk3000.eof or cool>15 then    
    exit do    
    end if    
loop 
csk3000.close
set csk3000=nothing
end if
temp1=temp1&vbcrlf&"</TR></TABLE></marquee>"
  temp1=main_bar(0,"推荐电影",temp1,0,"100%","")
  response.write kong&temp1
end sub
'------------顶部动图片完
%>

<%'----------中部电影列表
sub video_new_hot(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt,tupian)
  dim di,name,movie,temp1,tim,counter,nhead:nhead=nnhead
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num+n_m&" id,type,title,c_id,username,tim,counter,pic,lang,power,remark,hot,emoney,name from video where hidden=1 and good=1"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="观看排行"
  case "good"
    sql=sql&" and hot=5 order by id desc"
    if nhead="" then nhead="影片推荐"
  case "class"
  c_id=request("c_id")
    sql=sql&" and c_id="&c_id&" order by counter desc"
    if nhead="" then nhead="本类排行"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="影片更新"
  end select
  set rs=conn.execute(sql)
  for di=1 to n_m

    if rs.eof or rs.bof then exit for
    rs.movenext
  next
  if tupian="tu" then
  do while not rs.eof
    name=rs("title"):tim=rs("tim"):counter=rs("counter"):movie=rs("type"):emoney=rs("emoney"):power=rs("power")
dim emoney,power

if left(rs("pic"),4)<>"http" then
uploadpic=objv7.web_var(web_upload,1)
else
uploadpic=""
end if

	call video_movie(movie)
    temp1=temp1&vbcrlf&"<tr><td width=100% ><div align=center><table border=0 cellspacing=0 width=100% height=130 cellpadding=0><tr><td width=5 height=45 align=center bgcolor=#FFFFFF><td bgcolor=#FFFFFF width=105><table cellSpacing=0 cellPadding=0 border=0 style=border-collapse: collapse bordercolor=#111111><tr><td width=5 height=5><img src=images/main/k1_1.gif border=0></td><td background=images/main/k1_top.gif height=2></td><td width=5 height=5><img src=images/main/k1_2.gif border=0></td></tr><tr><td width=5 background=images/main/k1_left.gif>　</td><td align=middle><table border=0><tr><td align=middle><a href='video_view.asp?id="&rs("id")&"' target=_blank><img src='"&uploadpic&rs("pic")&"' border=0 width=120 height=100></a></td></tr></table></td><td width=5 background=images/main/k1_right.gif>　</td></tr><tr><td width=5 height=5 nowrap><img src=images/main/k1_3.gif border=0></td><td background=images/main/k1_end.gif height=5 nowrap></td><td width=5 height=5 nowrap><img src=images/main/k1_4.gif border=0></td></tr></table>"
    temp1=temp1&"<td bgcolor=#FFFFFF><p style=line-height:140%;margin-left:5;margin-right:10>片名：<a href='video_view.asp?id="&rs("id")&"'><b>"&rs("title")&"</b></a><br>类型："&movie&"　　　　语种："&rs("lang")&"<br>主演："&rs("name")&"<br>星级：<img src='images/down/star"&rs("hot")&".gif' border=0>&nbsp;<font class=red_3><a target=_blank href=ff.asp title='用手机支付进入秘密黄金通道观看激情电影!!!'>（<b>黄金会员手机支付：<font color=#FF0000>激情</font>包月下载</b>）</a></font><br>人气：<FONT class=red_3>"&rs("counter")&"</FONT><br>"&power_pic(emoney,power,1)&"    <td width=5 bgcolor=#FFFFFF><div align=center></table></div>"
	temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  else
  do while not rs.eof
    name=rs("title"):tim=rs("tim"):counter=rs("counter")
if left(rs("pic"),4)<>"http" then
uploadpic=web_var(web_upload,1)
else
uploadpic=""
end if	
    temp1=temp1&vbcrlf&"<tr><td width=100% ><div align=center><table border=0 cellspacing=0 width=100% height=60 cellpadding=0><tr><td width=5 height=45 align=center bgcolor=#FFFFFF><td bgcolor=#FFFFFF width=60><img src='"&uploadpic&rs("pic")&"' border=0 width=100 height=120><td bgcolor=#FFFFFF><p style=line-height:140%;margin-left:5;margin-right:10>"&n_jt&"<a href='video_view.asp?id="&rs("id")&"' title='影视名称："&code_html(name,1,0)&"<br>发 布 人："&rs("username")&"<br>观看人次："&counter&"<br>整理时间："&time_type(tim,88)&"'>"&code_html(name,1,c_num)&"</a><td width=5 bgcolor=#FFFFFF><div align=center><table border=0 cellspacing=0 width=100% cellpadding=0><tr><td width=100% height=5><tr><td width=100% height=120><tr><td width=100% height=5></table></div></table></div>"
    if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&"|<font class=blue>"&counter&"</font>")
    temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  end if
  rs.close
  temp1=temp1&vbcrlf&"</table>"
  temp1=main_bar(0,"新电影列表",temp1,0,"100%","")
  response.write kong&temp1
  end sub
'----------中部电影列表完%>

<%'-----------------------调查
sub vote_type(t1,t2,t3,t4)
  call left_type(kong&"<script language=javascript src='vote.asp?id="&t1&"&types="&t2&"&mcolor="&t3&"&bgcolor="&t4&"'></script>","网站调查",0)
end sub
'-----------------------调查完
%>

<%'---------------------分类列表
sub video_list
dim nid,temp1,title,rshot

if int(viewpage)>1 then
rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
if rs.eof then exit for
   if rs("hot")=99 then
   rshot=5
   else
   rshot=rs("hot")
   end if
nid=rs("id"):name=rs("title"):emoney=rs("emoney"):power=rs("power")
dim emoney,power

if left(rs("pic"),4)<>"http" then
uploadpic=objv7.web_var(web_upload,1)
else
uploadpic=""
end if

temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf><tr><td width=100% ><div align=center>"
temp1=temp1&vbcrlf&"<table border=0 cellspacing=0 width=100% height=130 cellpadding=0><tr>"
temp1=temp1&vbcrlf&"<td width=105>"
temp1=temp1&vbcrlf&"<table cellSpacing=0 cellPadding=0 border=0 style=border-collapse: collapse bordercolor=#111111><tr><td width=5 height=5><img src=images/main/k1_1.gif border=0></td><td background=images/main/k1_top.gif height=2></td><td width=5 height=5><img src=images/main/k1_2.gif border=0></td></tr><tr><td width=5 background=images/main/k1_left.gif>　</td><td align=middle><table border=0><tr><td align=middle><a title='' href='video_view.asp?id="&rs("id")&"'><img height='98' src='"&uploadpic&rs("pic")&"' width='126' border='0'></a></td></tr></table></td><td width=5 background=images/main/k1_right.gif>　</td></tr><tr><td width=5 height=5 nowrap><img src=images/main/k1_3.gif border=0></td><td background=images/main/k1_end.gif height=5 nowrap></td><td width=5 height=5 nowrap><img src=images/main/k1_4.gif border=0></td></tr></table>"
temp1=temp1&vbcrlf&"<td><b><font face=汉鼎简长美黑 color=#FFFF66><a href='video_view.asp?id="&rs("id")&"'><font size='4' color='#FF0000'>"&rs("title")&"</font></A></font></b><br>"
temp1=temp1&vbcrlf&"领衔主演："&rs("name")&"<br>"
temp1=temp1&vbcrlf&"影片类别："&pimg&"&nbsp;&nbsp;"&rs("lang")&"<br>"
temp1=temp1&vbcrlf&"推荐级别：<img src='images/down/star"&rshot&".gif' border=0> "
temp1=temp1&vbcrlf&"<font class=red_3><a target=_blank href=ff.asp>（<b>黄金会员手机支付：<font color='#FF0000'>激情</font>包月下载</b>）</a></font><br>人气：<FONT class=red_3>"&rs("counter")&"<br></FONT>货币<font color='#FF9900'>：</font>"&power_pic(emoney,power,1)&"</table></div></td></tr></table>"
title=rs("title")
  temp1=main_bar(0,title,temp1,0,"100%","")
  response.write kong&temp1
rs.movenext
next
end sub%>
<%sub video_page()%>
<%=kname%>
<%if rssum>0 then
response.write "<font class=red>"&rssum&"</font>"
else
response.write 0
end if%>&nbsp;个&nbsp;<font class=blue><b><%=abc%></b></font>┋每页<font class=red><%response.write nummer%></font>个页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font> 分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")
end sub
'---------------------分类列表%><%'-----------------------论坛
sub main_forum(n_num,c_num,et,timt)
  dim temp1,topic,topic2,n_jt
  n_jt=img_skins()
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>"
  sql="select top "&n_num&" forum_id,id,topic,tim,counter,re_counter from bbs_topic order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    topic2=objv7.code_html(topic,1,c_num)
    topic=objv7.code_html(topic,1,0)
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='javascript:;' onclick=""javascript:open_view('forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("id")&"',1);"" title='"&topic&"'>"&topic2&"</a>"&objv7.format_end(et,"<font class=gray>"&objv7.time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("re_counter")&"</font>|<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&main_bar(1,"论坛新帖",temp1,1,"100%","<a href='forum.asp'>"&morepic&"</a>")
end sub
'-----------------------更新一
sub main_update_view()
  dim temp1,topic
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>" & _
	vbcrlf&"<tr><td class=htd><script language=javascript src='style/update_news_fir.js'></script></td></tr>" & _
	vbcrlf&"<tr><td class=gray align=center><table border=0 width='100%' cellspacing=0 cellpadding=2><tr><td class=gray>[ <a href='update.asp?action=news'>更多网站更新</a> ]</td><td align=right class=gray>[ <a href='update.asp?action=forum'>更多论坛公告</a> ]</td></tr></table></td></tr></table>"
  response.write kong&main_bar(1,"网站更新",temp1,0,"100%","")
end sub
'-----------------------更新二
sub main_update(n_num,c_num,et,timt)
  dim temp1,topic,n_jt
  n_jt=img_skins()
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>"
  sql="select top "&n_num&" id,topic,tim from bbs_cast where sort='news' order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='update.asp?action=news&id="&rs("id")&"' title='"&objv7.code_html(topic,1,0)&"'>"&objv7.code_html(topic,1,c_num)&"</a>"&format_end(et,"<font class=gray>"&objv7.time_type(rs("tim"),timt)&"</font>")&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&main_bar(1,"网站更新",temp1,1,"100%","<a href='update.asp'>"&morepic&"</a>")
end sub
'-----------------------友情链接
sub links_main(lt,nummer)
  dim temp1,nname,titt
  select case lt
  case "fir"
    titt="合作站点"
  case "sec"
    titt="友情站点"
  case else
    titt="文字链接"
  end select
  temp1=vbcrlf&"<script language=javascript src='style/link_"&lt&".js'></script>"
  response.write kong&main_bar(0,titt,temp1,0,"100%","")
end sub
%>