📄 head_mb.asp

📁 网吧影印系统！很详细！可直接使用！请大家指点！
💻 ASP
字号:
<html>
<head>
<title>七彩影院 - 新片更新最快,压缩质量一流</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/style.css" rel="stylesheet" type="text/css">
</head>
<TABLE cellSpacing=0 cellPadding=0 width=772 border=0>
  <TBODY>
  <TR>
    <TD vAlign=top align=middle>
      <TABLE class=topMenuTable cellSpacing=0 cellPadding=0 width="100%" 
      border=0>
        <TBODY>
        <TR>
          <TD class=f2 width=295 height=20>
            <SCRIPT language=javascript>

<!--

calendar = new Date();

day = calendar.getDay();

month = calendar.getMonth();

date = calendar.getDate();

year = calendar.getYear();

if (year< 100) year = 1900 + year;

cent = parseInt(year/100);

g = year % 19;

k = parseInt((cent - 17)/25);

i = (cent - parseInt(cent/4) - parseInt((cent - k)/3) + 19*g + 15) % 30;

i = i - parseInt(i/28)*(1 - parseInt(i/28)*parseInt(29/(i+1))*parseInt((21-g)/11));

　

　

j = (year + parseInt(year/4) + i + 2 - cent + parseInt(cent/4)) % 7;

　

　

l = i - j;

emonth = 3 + parseInt((l + 40)/44);

edate = l + 28 - 31*parseInt((emonth/4));

emonth--;

var dayname = new Array ("星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六");

var monthname =

new Array ("1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月" );

document.write("&nbsp;&nbsp;" + year +"年");

document.write(monthname[month]);

document.write(date + "日" + "&nbsp;");

document.write(dayname[day]);

// January(1月份节日，以下同。)

if ((month == 0) && (date == 1)) document.write("元旦");

if ((month == 4) && (date == 1)) document.write("劳动节");

if ((month == 4) && (date == 4)) document.write("青年节");

if ((month == 5) && (date == 1)) document.write("国际儿童节");

if ((month == 11) && (date == 25)) document.write("圣诞节");

document.write("&nbsp;");

document.write("<%= time() %>");

document.write("<br></font>");

//-->

            </SCRIPT>
  </TD>
          <TD class=f2 align=right>
            &nbsp;<a href="../member/">用户中心</a>　支付中心　代理中心　帮助中心　用户留言　影视论坛　版权申明&nbsp;&nbsp;
          </TD></TR></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width=777><tr>
	<td background=images/spacer.gif></td></tr><tr><td>
		<img border="0" src="../images/logo.jpg" width="777" height="155"></td></tr></table><table width=777 border=0 cellspacing=0 cellpadding=0><tr><td height=30 background=../images/date_bg.gif bgcolor=#333333 align=center>
<table width=777 border=0 cellspacing=0 cellpadding=0><tr>
<td height=30 background=../images/date_bg.gif bgcolor=#333333 align=center>
<table width="100%" border=0><tr align=Center><td class=f3>
  <a class="typeMenu" target="_top" href="index.html">
<Font Color="#FFCC00">网站首页</font></a></td>
<%
	   Set rst= Server.CreateObject("ADODB.Recordset")
	rst.open "select * from type",conn,1,1
    if rst.EOF then
	  response.write "没有栏目："
	else
	do while NOT rst.EOF
            %>
<td class=f3><a target="_top" href="../mlist/<%=rst("typeid")%>_1.html" class="typemenu"><%=rst("type")%></a></td>
 <%
	rst.MoveNext
	loop
	end if
	rst.close
	set rst=nothing
                %>
<td class=f3><a target="_top" href="allmovie.asp" class=typeMenu>所有影片</a></td>
</tr></table>
</td></tr></table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -