config_movie.asp

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

  temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=2><tr><td height=5></td></tr>" & _
	vbcrlf&"<tr><td><a href='Soft_Show.asp?SoftID=6'><img src='images/soft-2.gif' border=0 align=absmiddle></a>&nbsp;<a href='down_view.asp?id=56'><img src='images/realplayer.gif' border=0 align=absmiddle></a></td></tr>" & _
	vbcrlf&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>播放工具</b></font>",temp1,sk_bar,0,0,"||","")
end sub

sub movie_atat()
  dim temp1,num1,num2,num3,sq,rs
  sql="select count(id) from movie where hidden and tim>=#"&formatdatetime(formatdatetime(now_time,2))&"#"
  set rs=conn.execute(sql)
  num1=rs(0)
  rs.close
  'sql="select num_movie from configs where id=1"
  sql="select count(id) from movie where hidden"
  set rs=conn.execute(sql)
  num2=rs(0)
  rs.close
  sql="select sum(counter) from movie where hidden"
  set rs=conn.execute(sql)
  num3=rs(0)
  rs.close:set rs=nothing
  temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=3><tr><td height=5></td></tr>" & _
	vbcrlf&"<tr><td>今日更新：<font class=red>"&num1&"</font>个影片</td></tr>" & _
	vbcrlf&"<tr><td>影片总数：<font class=red>"&num2&"</font>个影片</td></tr>" & _
	vbcrlf&"<tr><td>观看总数：<font class=red>"&num3&"</font>人次</td></tr>" & _
	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">栏目统计</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_main()
  dim rs2,sql2
  if cid=0 then
    sql2="select c_id,c_name from product_class where nsort='"&n_sort&"' order by c_order"
    set rs2=conn.execute(sql2)
    do while not rs2.eof
      nid=rs2("c_id"):sqladd=" and c_id="&nid
%><tr align=center valign=top><td><%call movie_new_hot("jt0","<a href='movie_list.asp?c_id="&nid&"'><font class="&sk_class&">"&rs2("c_name")&"</font></a>","<a href='movie_list.asp?c_id="&nid&"&action=more'><font class="&sk_class&">更多影片</font></a>",sqladd,"new",15,0,20,1,8)%></td><td></td><td><%
call movie_new_hot("","本类排行","",sqladd,"hot",5,0,11,1,0)
call movie_pic("本类推荐",sqladd,"good",1,10)
%></td></tr><%
      rs2.movenext
    loop
    rs2.close:set rs2=nothing
  else
    if sid=0 then
      sql2="select s_id,s_name from product_sort where c_id="&cid&" order by s_order"
      set rs2=conn.execute(sql2)
      do while not rs2.eof
        nid=rs2("s_id"):sqladd=" and c_id="&cid&" and s_id="&nid
%><tr align=center valign=top><td><%call movie_new_hot("jt0","<a href='movie_list.asp?c_id="&cid&"&s_id="&nid&"'><font class="&sk_class&">"&rs2("s_name")&"</font></a>","<a href='movie_list.asp?c_id="&cid&"&s_id="&nid&"&action=more'><font class="&sk_class&">更多影片</font></a>",sqladd,"new",10,0,20,1,8)%></td><td></td><td><%
call movie_new_hot("","本类排行","",sqladd,"hot",10,0,11,1,0)
'call movie_pic("本类推荐",sqladd,"good",1,10)
%></td></tr><%
        rs2.movenext
      loop
      rs2.close:set rs2=nothing
    else
      sql2="select product_class.c_name,product_sort.s_name from product_sort inner join product_class on product_sort.c_id=product_class.c_id where product_sort.c_id="&cid&" and product_sort.s_id="&sid
      set rs2=conn.execute(sql2)
      if rs2.eof and rs2.bof then
        rs2.close:set rs2=nothing
        cid=0:sid=0
        call movie_main():exit sub
      end if
      sqladd=" and c_id="&cid&" and s_id="&sid
%><tr align=center><td colspan=3><%call movie_pic("本类推荐",sqladd,"good",5,20)%></td>
</tr>
<tr align=center valign=top>
<td><%call movie_new_hot("jt0","<a href='movie_list.asp?c_id="&cid&"'><font class="&sk_class&">"&rs2("c_name")&"</font></a> → <a href='movie_list.asp?c_id="&cid&"&s_id="&sid&"'><font class="&sk_class&">"&rs2("s_name")&"</font></a>","<a href='movie_list.asp?c_id="&cid&"&s_id="&sid&"&action=more'><font class="&sk_class&">更多影片</font></a>",sqladd,"new",20,0,20,1,8)%></td>
<td></td>
<td><%
call movie_new_hot("","本类排行","",sqladd,"hot",20,0,11,1,0)
%></td>
</tr>
<%
      rs2.close:set rs2=nothing
    end if
  end if
end sub

sub movie_more(c_num,tt)
  dim temp1,tim,cnum,sql2,mhead,name,c1,c2,sql,rs,cname,sname
  c1=web_var(web_color,5):c2=web_var(web_color,1)
  pageurl="?action=more&"
  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)
  
  temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2><tr><td colspan=5 height=5></td></tr>" & _
	vbcrlf&"<tr><td colspan=5 height=1 background='images/bg_dian.gif'></td></tr>" & _
	vbcrlf&"<tr align=center height=20 valign=bottom bgcolor="&c1&">" & _
	vbcrlf&"<td width='5%'>序号</td>" & _
	vbcrlf&"<td width='53%'>影片名称</td>" & _
	vbcrlf&"<td width='20%'>整理日期</td>" & _
	vbcrlf&"<td width='12%'>推荐等级</td>" & _
	vbcrlf&"<td width='10%'>观看次数</td>" & _
	vbcrlf&"</tr>" & _
	vbcrlf&"<tr><td colspan=5 height=1 background='images/bg_dian.gif'></td></tr>"
  sql="select id,name,username,tim,counter,types from movie where hidden "&sqladd
  if cid>0 then
    sql=sql&" and c_id="&cid
    if sid>0 then
      sql=sql&" and s_id="&sid
      sql2="select product_class.c_name,product_sort.s_name from product_sort inner join product_class on product_sort.c_id=product_class.c_id where product_sort.c_id="&cid&" and product_sort.s_id="&sid
    else
      sql2="select c_name from product_class where c_id="&cid
    end if
  end if
  sql=sql&" order by id desc"
  
  if cid>0 then
    set rs=conn.execute(sql2)
    if rs.eof and rs.bof then rs.close:set rs=nothing:call movie_main():exit sub
    cname=code_html(rs("c_name"),1,0)
    if sid>0 then sname=code_html(rs("s_name"),1,0)
    rs.close
  else
    cname="搜索结果"
  end if
  mhead="<a href='movie_list.asp?c_id="&cid&"'><b><font class="&sk_class&">"&cname&"</font></b></a>"
  if cid>0 and sid>0 then mhead=mhead&"&nbsp;<font class="&sk_class&">→</font>&nbsp;<a href='movie_list.asp?c_id="&cid&"&s_id="&sid&"'><b><font class="&sk_class&">"&sname&"</font></b></a>"
  
  set rs=server.createobject("adodb.recordset")
  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")
    temp1=temp1&vbcrlf&"<tr onmouseover=""javascript:this.bgColor='"&c1&"';"" onmouseout=""javascript:this.bgColor='"&c2&"';""><td>"&i+(viewpage-1)*nummer&".</td>" & _
	  vbcrlf&"<td><a href='movie_view.asp?id="&rs("id")&"'"&atb&" title='影片名称："&code_html(name,1,0)& vbcrlf & "发 布 人："&rs("username")& vbcrlf & "整理时间："&tim&"'>"&code_html(name,1,c_num)&"</a></td>" & _
	  vbcrlf&"<td>"&time_type(tim,tt)&"</td>" & _
	  vbcrlf&"<td><img src='images/movie/star"&rs("types")&".gif' border=0></td>" & _
	  vbcrlf&"<td align=center class=blue>"&rs("counter")&"</td></tr>" & _
	  vbcrlf&"<tr><td colspan=5 height=1 background='images/bg_dian.gif'></td></tr>"
    rs.movenext
  next
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"<tr><td colspan=5 height=25 valign=bottom>" & _
	vbcrlf&"本栏共有&nbsp;<font class=red>"&rssum&"</font>&nbsp;个影片&nbsp;" & _
	vbcrlf&"页次：<font class=red>"&viewpage&"</font>/<font class=red>"&thepages&"</font>&nbsp;" & _
	vbcrlf&"分页："&jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")& _
	vbcrlf&"</td></tr></table>"
  response.write "<tr><td colspan=3 align=center>"&kong&format_bar(mhead,temp1,sk_bar,0,0,"||","<a href='movie_list.asp?c_id="&cid&"&s_id="&sid&"&action=more'><font class="&sk_class&">浏览更多</font></a>")&"</td></tr>"
end sub

sub movie_sea()
  dim temp1,nid,nid2,rs,sql,rs2,sql2
  temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 align=center>" & _
        vbcrlf&"<script language=javascript><!--" & _
        vbcrlf&"function movie_sea()" & _
        vbcrlf&"{" & _
        vbcrlf&"  if (movie_sea_frm.keyword.value==""请输入关键字"")" & _
        vbcrlf&"  {" & _
        vbcrlf&"    alert(""请在搜索影片前先输入要查询的 关键字 ！"");" & _
        vbcrlf&"    movie_sea_frm.keyword.focus();" & _
        vbcrlf&"    return false;" & _
        vbcrlf&"  }" & _
        vbcrlf&"}" & _
        vbcrlf&"--></script>" & _
        vbcrlf&"<form name=movie_sea_frm action='movie_list.asp' method=get onsubmit=""return movie_sea()"">" & _
        vbcrlf&"<tr><td height=5></td></tr><tr align=center>" & _
        vbcrlf&"<td>搜索选项：</td>" & _
        vbcrlf&"<td>&nbsp;&nbsp;<select name=sea_type sizs=1><option value='topic'>影片名称</option><option value='username'>发布人</option></seelct></td>" & _
        vbcrlf&"<td>&nbsp;&nbsp;<select name=c_id sizs=1><option value=''>影片类别</option>"
  sql="select c_id,c_name from product_class where nsort='"&n_sort&"' order by c_order,c_id"
  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>"
    sql2="select s_id,s_name from product_sort where c_id="&nid&" order by s_order,s_id"
    set rs2=conn.execute(sql2)
    do while not rs2.eof
      nid2=rs2(0)
      temp1=temp1&vbcrlf&"<option value='"&nid&"&s_id="&nid2&"'"
      if sid=nid2 then temp1=temp1&" selected"
      temp1=temp1&">　"&rs2(1)&"</option>"
      rs2.movenext
    loop
    rs2.close:set rs2=nothing
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"</select></td>" & _
      vbcrlf&"<td>&nbsp;&nbsp;<input type=text name=keyword value='请输入关键字' onfocus=""if (value =='请输入关键字'){value =''}"" onblur=""if (value ==''){value='请输入关键字'}"" size=20 maxlength=20></td>" & _
      vbcrlf&"<td>&nbsp;&nbsp;<input type=image src='images/sea_button.gif' border=0></td></tr>" & _
      vbcrlf&"</form><tr><td height=5></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'>影片搜索</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 temp1
'  response.write kong & format_bar("<font class=end><b>影片搜索</b></font>",,21,0,0,"|"&web_var(web_color,1)&"|100","")
end sub


'=================================================
'过程名：Show_super_Menu
'作  用：显示下拉菜单效果 -来自异域-晓炊改进
'参  数：无
'=================================================
sub Show_super_Menu()
    dim sqlRoot,rsRoot,tdstyle,tdmouse,sqlClass,rsClass,k
	tdstyle=" style='background-image: url(images/menu_bg1.gif);background-repeat: no-repeat;background-position: right;letter-spacing: 2px' "
'	tdmouse=" onmouseover='this.style.background-image: url(images/menu_bg1.gif)' onmouseout='this.style.background-image: url(images/menu_bg1.gif)' "
	sqlRoot="SELECT a.c_id, a.c_name, (select count(b.s_id) from product_sort as b where b.c_id=a.c_id) FROM product_class AS a WHERE a.nsort='movie' ORDER BY a.c_order"

	Set rsRoot= Server.CreateObject("ADODB.Recordset")
	rsRoot.open sqlRoot,conn,1,1

	response.write "<table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%'>"
'	response.write "<td width='1%' nowrap" & tdstyle & tdmouse & ">&nbsp;<a href='" & SiteUrl & "'><img src='Images/home.gif'  border=0 align='absmiddle'>首页<a>&nbsp;</td>"
	if not(rsRoot.bof and rsRoot.eof) then 
		do while not rsRoot.eof
		 if rsRoot(2)>0 then
            response.write "<A href='movie_list.asp?c_id=" & rsRoot(0) & "'><TD style='CURSOR: hand; width:1%; padding:0px,18px,0px,18px;' nowrap" & tdstyle & tdmouse & " id=Menu" & rsRoot(0) & ">" & rsRoot(1) & "</TD></A>" & vbcrlf
		   else
		    response.write "<a href='movie_list.asp?c_id=" & rsRoot(0) & "'><td style='CURSOR: hand; width:1%; padding:0px,18px,0px,18px;' nowrap" & tdstyle & tdmouse & ">" & rsroot(1) & "</td></a>" & vbcrlf
		 end if
		 rsRoot.movenext
		loop
	  else
	    response.write "<td nowrap>&nbsp;&nbsp<font color=red>暂无栏目，请网站管理员先添加栏目！</font></td>"
	end if
	rsRoot.close
	set rsRoot=nothing
	response.write "<td width='90%'>&nbsp;</td></tr></table>"
	%>
<script language="javascript">
	if (mtDropDown.isSupported()) {
    var ms = new mtDropDownSet(mtDropDown.direction.down, 0, 0, mtDropDown.reference.bottomLeft);

<%
 sqlClass="SELECT a.c_id, a.c_name FROM product_class AS a WHERE a.nsort='movie'and (select count(b.s_id) from product_sort as b where b.c_id=a.c_id)>0 ORDER BY a.c_order"
 Set rsClass= Server.CreateObject("ADODB.Recordset")
 rsClass.open sqlClass,conn,1,1
 do while not rsClass.eof
  response.write "var Menu" & rsClass(0) & "=ms.addMenu(document.getElementById(""" & "Menu" & rsClass(0) & """));"  & vbcrlf
      call GetSuperMenu(rsClass(0))
     rsClass.movenext
  loop
 rsClass.close
 set rsClass=nothing
%>
		mtDropDown.renderAll();
	}
</script>
<%
end sub

sub GetSuperMenu(ID)  '--被上面的调用，递归...
	dim sqlClass,rsClass
    sqlClass="SELECT s_id, s_name FROM product_sort WHERE c_id=" & id & " ORDER BY s_order"
	Set rsClass= Server.CreateObject("ADODB.Recordset")
	rsClass.open sqlClass,conn,1,1

	 do while not rsClass.eof
	    response.write " Menu" & ID & ".addItem(' " & rsClass(1) & "','movie_list.asp?c_id=" & id & "&s_id=" & rsClass(0) & "');" & vbcrlf
	    rsClass.movenext
	loop
	rsClass.close
	set rsClass=nothing
end sub
%>