config_movie.asp

该软件是帮助大学生更好的生活

<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<%
dim atb,sk_bar,sk_class,nid,sqladd,name
atb=" target=_blank ":sk_bar=12:sk_class="end"
index_url="movie":n_sort="movie"
tit_fir=format_menu(index_url)

'pagetitle="<a href='movie.asp'>" & channelName & "</a>->"

sub power_chk()
  dim usql,urs,upower
  dim ddim:ddim=split(power,".")
  dim j,h 
  h=0
  usql="select power from user_data where username='"&login_username&"'"
  set urs=conn.execute(usql)
  if urs.eof and urs.bof then
     urs.close:set urs=nothing	 
  else
     upower=urs("power")
  end if      
 for i=0 to ubound(ddim)
  select case ddim(i)
  case "1"
    j="admin"
  case "2"
    j="super"
  case "3"
    j="vip"
  case "4"
    j="puser"
  case "5"
    j="user"  
  case "0"
    j=""
  end select  
  if upower = j then  h = 1 end if     
 next 
  erase ddim
  dim movie_id
  movie_id = rs("id")
   if h <> 0 and login_emoney >= emoney  then
  %>
 <td colspan=2>&nbsp;&nbsp;&nbsp;<a href=#  onclick=<%call pay_movie(emoney,1)%> ><img src='images/videoload.gif' border=0></a>&nbsp;
<% if len(rs("url2"))>8 then %>
&nbsp;&nbsp;&nbsp;<a href=# onclick=<%call pay_movie(emoney,2)%>><img src='images/videoload.gif' border=0></a>
<% end if %></td>
<% else if login_emoney < emoney then %>
<td colspan=2>&nbsp;&nbsp;&nbsp;<font color='#FF0000'>您没有足够的金币观看电影！</font></td>
<% else %>
<td colspan=2>&nbsp;&nbsp;&nbsp;<font color='#FF0000'>您没有观看电影的权限！<a href=login.asp?action=register >没注册的请点击这里！</a></font></td>
<% end if
   end if     
end sub

sub pay_movie(price,num)  
  conn.execute("update user_data set emoney=emoney-"&price&" where username='"&login_username&"'")
end sub


sub movie_class_sort(t1,t2)
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr>
 <td height="1">
   <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td class='title_bg_center'>影片导航</td>
    </tr>
 </table></td>
</tr>
<tr> 
  <td height="1" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="5">
    <tr> 
      <td height="1" valign="top"> 
<%=format_bar("<font class="&sk_class&"><b>影片分类</b></font>",class_sort(n_sort,index_url,t1,t2),0,5,0,"||","")%>
      </td>
    </tr>
   </table></td>
  </tr>
 </table>
 <%
end sub

sub movie_list(n_num,c_num,timt,et)
  dim name,tim,nid,ss:ss=0
  if n_num>5 then nummer=n_num
  pageurl="?"
  keyword=code_form(request.querystring("keyword"))
  sea_type=trim(request.querystring("sea_type"))
  if sea_type<>"username" then sea_type="name"
  call cid_sid_sql(2,sea_type)
%>
<table border=0 width='100%' align=center cellpadding="0" cellspacing="0">
<tr><td class="title_bg_center">显示列表</td></tr><tr><td style="padding:8px,8px,8px,10px ">
  <table border=0 cellspacing=0 cellpadding=3>
<%
  set rs=server.createobject("adodb.recordset")
  sql="select id,username,name,tim,counter from movie where hidden "&sqladd&" order by id desc"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
    rssum=0
  else
    rssum=rs.recordcount
  end if
  call format_pagecute()
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to nummer
    if rs.eof then exit for
    name=rs("name"):tim=rs("tim")
    response.write vbcrlf&"  <tr><td height="&space_mod&" align='right'><b>"&i+(viewpage-1)*nummer&".</b></td><td><a href='movie_view.asp?id="&rs("id")&"'"&atb&" title='影片名称："&code_html(name,1,0)& vbcrlf & "发 布 人："&rs("username")& vbcrlf & "整理时间："&rs("tim")&"'>"&code_html(name,1,c_num)&"</a>"&format_end(et,"<font color=gray>"&time_type(tim,timt)&"</font>,<font color=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  next
  rs.close:set rs=nothing

%>
  </table>
</td></tr>
<tr><td align=center><table border=0 width='100%'><tr><td height=1 background='images/bg_dian.gif'></td></tr></table></td></tr>
<tr><td align=center>
本栏共有&nbsp;<font class=red><%response.write rssum%></font>&nbsp;个影片&nbsp;
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>&nbsp;
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")%></td></tr></table>
<%
end sub

sub movie_new_hot(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt)
  dim rs,sql,di,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,name,username,tim,counter from movie where hidden"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="观看排行"
  case "good"
    sql=sql&" and types=5 order by id 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 n_m>0 then rs.move(n_m)
  do while not rs.eof
    name=rs("name"):tim=rs("tim"):counter=rs("counter")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&n_jt&"<img src='skin/1/xiao.gif'><a href='movie_view.asp?id="&rs("id")&"' title='影片名称："&code_html(name,1,0)& vbcrlf & "发 布 人："&rs("username")& vbcrlf & "观看人次："&counter& vbcrlf & "整理时间："&time_type(tim,88)&"'>"&code_html(name,1,c_num)&"</a>"
    if tt>0 then temp1=temp1&"<font color=#999999>["&counter&"]</font>"
    temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"</table>"
 %>
	  <TABLE cellSpacing=0 cellPadding=0 width="100%" border="0">
        <TR> 
          <TD><table width="100%" border="0" cellspacing="0" cellpadding="0" class="title_left">
              <tr> 
                <td class='title_bg_center' align="center"><%=nhead%></td>
              </tr>
            </table></TD>
        </TR>
		<TR> 
         <TD height="40" valign="top" class="tdbg_left"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
              <tr> 
                <td valign="top"> <%=temp1%> </td>
              </tr>
            </table></TD>
        </TR>
        <TR>
          <td class="title_left2"></td>
        </TR>
      </table>

<%	
end sub

sub movie_pic(nnhead,dsql,nt,n_num,c_num)
  dim rs,sql,temp1,nhead:nhead=nnhead
  temp1="<table border=0 width='100%'cellspacing=0 cellpadding=0><tr align=center valign=top><td>"
  sql="select top "&n_num&" id,name,tim,sizes,username,types,genre,os,emoney,power,remark,counter,pic from movie where hidden"&dsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热点排行"
  case "good"
    sql=sql&" and types=5 order by id desc"
    if nhead="" then nhead="酷片推荐"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新影片"
  end select
  set rs=conn.execute(sql)
  if rs.bof and rs.eof then temp1=temp1 & "<li>没有影片</li>"
  do while not rs.eof
    name=rs("name"):nid=rs("id")
    temp1=temp1&vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0>" & _  
   vbcrlf&"<tr valign=top align=center><td width='30%'>" & _
   vbcrlf&"  <table border=0>" & _
   vbcrlf&"<tr valign=top><td align=center><a href='movie_view.asp?id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 width="&web_var(web_down,1)&" height="&web_var(web_down,2)&"></a></td></tr>" & _
   vbcrlf&"</table>"& _
   vbcrlf&"</td><td>" & _
   vbcrlf&"<table border=0 width='100%' height='100%'>" & _
   vbcrlf&"<tr align=center><td width='18%'>" & _
   vbcrlf&"<tr><td nowrap>影片名称：</td><td colspan='3'><a href='movie_view.asp?id="&nid&"'"&atb&"><b>"&code_html(name,1,0)&"</b></a>" & _
   vbcrlf&"<tr><td nowrap>添加日期：</td><td colspan='3' style='color:gray'>"&rs("tim")&"</td>" & _
   vbcrlf&"<tr><td nowrap>片源提供：</td><td style='color:gray' width='160'>"&rs("username")&"</td><td nowrap>影片产地：</td><td style='color:gray'>"&rs("genre")&"</td><td>" & _
   vbcrlf&"<tr><td nowrap>影片格式：</td><td style='color:gray'>"&rs("os")&"<td nowrap>推荐等级：</td><td><img src='images/down/star"&rs("types")&".gif' border=0></td>" & _
   vbcrlf&"<tr><td nowrap>影片大小：</td><td style='color:gray'>"&rs("sizes")&"</td><td nowrap>人　　气：</td><td style='color:gray'>"&rs("counter")&"</td><td>" & _
   vbcrlf&"</table>"& _
   vbcrlf&"<tr><td colspan=3 height=1 background='images/bg_dian.gif'></td></tr>"& _
   vbcrlf&"</td></tr></table>"
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1 & "</td></tr></table>"
  %>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr>
 <td height="1">
   <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td class='title_bg_center'><%=nhead%></td>
    </tr>
 </table></td>
</tr>
<tr> 
  <td height="1" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="5">
    <tr> 
      <td height="1" valign="top"> <%=temp1%>
      </td>
    </tr>
   </table></td>
  </tr>
 </table>
<%
'  response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||","")
end sub

sub movie2_pic(nnhead,dsql,nt,n_num,c_num)
  dim temp1,nhead:nhead=nnhead
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
    sql="select top "&n_num&" id,name,tim,pic from movie where hidden"&dsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热点排行"
  case "good"
    sql=sql&" and types=5 order by id desc"
    if nhead="" then nhead="精彩影视"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新影视"
  end select
  set rs=conn.execute(sql)
  do while not rs.eof
    name=rs("name"):nid=rs("id")
    temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'><table border=0  width='100%' class=tf><tr><td align=center><a href='movie_view.asp?id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 width="&web_var(web_down,1)&" height="&web_var(web_down,2)&"></a>&nbsp;&nbsp;&nbsp;</td></tr>" & _
	  vbcrlf&"<tr><td align=center class=bw><a href='movie_view.asp?id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,0)&"</b></a></td></tr></table></td>"
       rs.movenext
  loop
    temp1=temp1&"</td></tr></table>"
 
  %>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr>
 <td height="1" class="tdbg_right2">
   <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="40">&nbsp;</td>
      <td class='title_bg_center'><b><%=nhead%></b></td>
    </tr>
 </table></td>
</tr>
<tr> 
  <td height="1" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="5" class="border">
    <tr> 
      <td height="1" valign="top"> <%=temp1%>
      </td>
    </tr>
   </table></td>
  </tr>
  <tr> 
    <td  height="15" align="center" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="13" Class="tdbg_left2"></td>
        </tr>
     </table></td>
  </tr>
 </table>
<%
 ' response.write temp1
      
 end sub

sub movie_remark(njt)
  dim temp1
  temp1=vbcrlf&"<table border=0 width='98%' align=center>" & _
	vbcrlf&"<tr><td>"&img_small(njt)&"本站影视文件都放在本站服务器上，保证都可以观看，一个影片只收一次金币，你这次看不完下次还可以接着看，请努力获取积分转换金币，也可以通过购买充值卡进行金币充值。</td></tr>" & _
	vbcrlf&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>影片观看说明</b></font>",temp1,sk_bar,0,0,"||","")&kong
end sub

sub movie_gongju()
  dim temp1