gonggao.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<script language="JavaScript">
<!--
function mmLoadMenus() {
  if (window.mm_menu_0930185949_0) return;
  window.mm_menu_0930185949_0 = new Menu("root",70,18,"",12,"#000000","#FFFFFF","#FFFFFF","#000084","left","middle",3,0,1000,-5,7,true,true,true,0,false,true);
  mm_menu_0930185949_0.addMenuItem("周星驰","window.open('fileserach.asp?sradio=actors&keyword=周星驰', '_searchwin');");
  mm_menu_0930185949_0.addMenuItem("成&nbsp;&nbsp;龙","window.open('fileserach.asp?sradio=actors&keyword=成龙', '_searchwin');");
   mm_menu_0930185949_0.hideOnMouseOut=true;
   mm_menu_0930185949_0.bgColor='#CCCCCC';
   mm_menu_0930185949_0.menuBorder=1;
   mm_menu_0930185949_0.menuLiteBgColor='#FFFFFF';
   mm_menu_0930185949_0.menuBorderBgColor='#666666';

mm_menu_0930185949_0.writeMenus();
} // mmLoadMenus()
//-->
</script>
<script language="JavaScript" src="mm_menu.js"></script>
<script language="JavaScript1.2">mmLoadMenus();</script>

<table cellspacing=0 cellpadding=0 width="100%" border=0 height="106"  background=style/orange.jpg>
  <tbody>
    <tr> 
      <td height="106" bgcolor="#FFFFFF" valign="top"> <br> <table border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" align="center" width="95%">
          <tr> 
            <td bgcolor="#FFFFFF" valign="top"> <table cellspacing=0 cellpadding=0 width=100% border=0 height="106">
                <font class=f14> </font> 
                <tr> 
                  <td colspan="3" height="23" background="images/c2.gif">&nbsp;<img src="images/gb.gif" width="20" height="16" align=absMiddle>最新公告：</td>
                  <td width=1 background="images/zw052109.gif" rowspan="2" valign="top"></td>
                  <td align=left width=250 valign="middle" height="23" background="style/admin_left_4.gif"> 
                    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;影视谍报</td>
                </tr>
                <tr> 
                  <td colspan="3" bgcolor=#FFFFFF height="70" valign="top" background="images/adbg.JPG"> 
                    <table width="98%" border="0" height="70" align="center" cellpadding="5">
                      <tr> 
                        <td width="100%" height="70" valign="top"> <marquee direction="up" height="70"  scrollamount="2" id=info onMouseOver=info.stop() onMouseOut=info.start() >
                          <img src="images/03-arrow.gif" width="6" height="7">&nbsp;<a href="#" name="link1" id="link1" onClick="" onMouseOver="MM_showMenu(window.mm_menu_0930185949_0,0,16,null,'link1')" onMouseOut="MM_startTimeout();">各人专辑</a><br>
						  <%dim rs7,strSQL7
			strSQL7 ="SELECT FilmTitle FROM fimlURL"
			Set rs7 = Server.CreateObject("ADODB.Recordset")
			rs7.open strSQL7,Conn,1,1
			countfilm=rs7.recordcount
			rs7.close
			set strsql7=nothing
           %>
                          <img src="images/03-arrow.gif" width="6" height="7">&nbsp;本站共计影片:<%=countfilm%> 
                          部<br>
                          <%dim rs6,strSQL6
				 strSQL6 ="SELECT UserName FROM user"
				 Set rs6 = Server.CreateObject("ADODB.Recordset")
				 rs6.open strSQL6,Conn,1,1
				 countuser=rs6.recordcount
				 rs6.close
				 set strsql6=nothing
				 %>
                          <img src="images/03-arrow.gif" width="6" height="7">&nbsp;现有会员共计:<%=countuser%> 
                          人<br>
                          <img src="images/03-arrow.gif" width="6" height="7">&nbsp;当前共有: 
                          <!--#include file="online.asp"-->
                          人在线<br>
                          <img src="images/03-arrow.gif" width="6" height="7">&nbsp;共计访问: 
                          <%=session("allcount")%> 次<br>
                          <%set rs3=server.createobject("adodb.recordset")               
			sql3="select top 20 news_id,news_title from news order by news_id DESC" 
			rs3.open sql3,conn,1,1         
			do while not rs3.eof%>
                          <img src="images/03-arrow.gif" width="6" height="7">&nbsp;<a href="#" onClick="MM_openBrWindow('news.asp?news_id=<%=rs3("news_id")%>','公告信息','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes')"><%=rs3("news_title")%></a><br>
                          <%rs3.movenext           
			loop         
			rs3.close         
			set rs3=nothing%>
                          </marquee> </td>
                      </tr>
                      <tr> 
                        <td align="right" height="13"><a href="####"><img src="images/ball2.gif" width="40" height="13" border="0" onClick="MM_openBrWindow('allnews.asp','gonggao','scrollbars=yes,width=432,height=288')"></a></td>
                      </tr>
                    </table></td>
                  <td align=middle width="250"  background="images/03-ug1.gif" valign="top"> 
                    <marquee behavior="scroll" direction="up" height="80"  scrollamount="2" id=info2 onMouseOver=info2.stop() onMouseOut=info2.start()>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
                      <%Dim objRS2,connSQL2
					  set objRS2=server.createobject("adodb.recordset")               
			connSQL2="select top 20 nfID,mainactors,filmName from NewFilm where ifNew=True order by proDay DESC" 
			objRS2.open connSQL2,conn,1,1
			if objRS2.eof then%>
                      <tr> 
                        <td >&nbsp;&nbsp;对不起，暂无最新影视谍报!</td>
                      </tr>
                      <tr> 
                        <td> 
                          <%else
			do while not objRS2.eof%>
                          &nbsp;<img src="style/smallhit_blue.gif">&nbsp;<a href="#" onClick="MM_openBrWindow('diebao.asp?nfID=<%=trim(objRS2("nfID"))%>','dibao','width=500,height=330,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes')"> 
                          <%=trim(objRS2("mainactors"))%>----<%=trim(objRS2("filmName"))%></a><br> 
                          <%objRS2.movenext
		   loop
		   end if
		   objRS.close
		   set objRS2=nothing%>
                        </td>
                      </tr>
                    </table>
                    </marquee> </td>
                </tr>
              </table></td>
          </tr>
        </table></td>
    </tr>
  </tbody>
</table>