程序此万年历程序是在网站找到的………………加一点点改动！供大家参考
第一个文件保存为文件
万年历.asp
<html>
<head>
<title>soul studio中国网络论坛在线（灵魂工作室）</title>
<meta name="generator" content="soul studio">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel=stylesheet type="text/css" href="http://www.8asp.com/default<% =session("skin_number")%>.css">
<script LANGUAGE="JavaScript">
function openWindow(theURL,winName,features) {
if (winName.window) winName.focus;
popupWin = window.open(theURL,winName,features)
popupWin.focus;
}
</script>
</head>
<body leftmargin=0 topmargin=0>
<TABLE cellpadding=0 cellspacing=0 class='topTD' width='100%'>
<tr valign=absmiddle>
<td width="21%"><A href='default.asp'><img src=http://www.163design.net/a/y/"http://8asp.com/images/img/logo.gif" width=170 height=49 border=0 alt="ASP网络联盟(soul studio)" align="absmiddle"></A></td>
<td width="78%" background="http://8asp.com/images/0987654321.gif"></td>
<td width="1%"> </td>
</tr>
</TABLE>
<TABLE cellpadding=0 cellspacing=0 width='100%'>
<tr valign=top>
<td src=http://www.163design.net/a/y/"http://8asp.com/images/pix.gif" width=640 height=1 border=0></td>
</tr>
</TABLE>
<p><script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
obj.visibility=v; }
}
// -->
</script>
<table class='menuTable' >
<tr>
<td class='menuTD' onmouseover="this.className='menuTDover'" onmouseout="this.className='menuTD'" align="center" width="7%">
<a class=menuFont href="default.asp">主页</a> </td>
<td class='menuTD' onmouseover="MM_showHideLayers('Layer1','','show')" onmouseout="MM_showHideLayers('Layer1','','hide')" align="center" width="10%" >
<div id="menu2" width:13px; height:15px; z-index:1; visibility: hidden">
<div id="Layer1" Filter:alpha(opacity=85);position:absolute; width:82px; height:80px; z-index:5; left: -29px; top: 11px" onMouseOver="MM_showHideLayers('Layer1','','show')" onMouseOut="MM_showHideLayers('Layer1','','hide')">
<table width="80" border="0" cellspacing="0" cellpadding="0" class='DataTD'>
<tr>
<td align="center" onmouseover="this.className='top2TD'" onmouseout="this.className='DataTD'" ><a href='<% =page_name%>?skin_number=0' >标准页面</a>
[1]
