📄 cal.htm
字号:
<%
'session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
'if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'if dbsort="accessdsn" then conn.Open "DSN=" & DBPath
'if dbsort="access" then conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'if dbsort="sqlserver" then conn.Open "DSN=" & DBPath & ";uid=wsw;pwd=wsw"
DBPath1=server.mappath("../db/lmtof.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
'end if
set opendb=session(sessionname)
end function
%>
<%
'-----------------------------------------
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../default.asp';")
response.write("</script>")
response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>超级年</TITLE>
<META content="js;JavaScript;农历; 阳历; 月历; 节日; 节气; 生肖; 星座; 近代史" name=keywords>
<META content=All name=robots>
<META content="gregorian solar calendar and chinese lunar calendar"
name=description>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>BODY {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
{
TEXT-DECORATION: none
}
.todyaColor {
BACKGROUND-COLOR: rgb(255,160,66); COLOR: rgb(255,255,255)
}
</STYLE>
<SCRIPT language=JScript.Encode src="show.js"></SCRIPT>
<SCRIPT language=JScript.Encode src="cal2.js"></SCRIPT>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY aLink=#ffffff link=#ffffff onload=initial() vLink=#ffffff>
<DIV id=tip2
style="COLOR: #910091; HEIGHT: 26px; LEFT: 190px; POSITION: absolute; VISIBILITY: hidden"></DIV>
<CENTER>
<SCRIPT language=JavaScript><!--
if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) < 4)
document.write("<P> </P><P> </P><h1><font color=RED><center>你的浏览器无法正常浏览本页。</h1>请用 IE4.0以上版本浏览!!")
//--></SCRIPT>
<DIV id=detail style="POSITION: absolute"></DIV>
<FORM name=CLD><CENTER>
</center><TABLE><CENTER>
<TBODY>
<TR>
<TD align=middle>
<TABLE bgColor=#ebebeb border=1 borderColorDark=#ffffff
borderColorLight=#000000 cellSpacing=0>
<TBODY>
<TR bgcolor="#336699">
<TD align=left colSpan=7><FONT color=#ffffff
style="FONT-SIZE: 9pt"> 查看
<SELECT name=SY
onchange=changeCld() style="FONT-SIZE: 9pt">
<SCRIPT language=JScript.Encode src="year.js"></SCRIPT>
</SELECT>年<SELECT name=SM onchange=changeCld()
style="FONT-SIZE: 9pt">
<SCRIPT language=JScript.Encode src="moon.js"></SCRIPT>
</SELECT>月</FONT>
<FONT
id=YMBG
style="COLOR: #ffffff; FONT: 20px 'Arial Black'"><BR>
</FONT></TD>
</TR>
<TR align=middle bgColor=#bebebe style="FONT-SIZE: 9pt">
<TD width=80><FONT color=red>日</FONT></TD>
<TD width=80><FONT color=#408080>一</FONT></TD>
<TD width=80><FONT color=#408080>二</FONT></TD>
<TD width=80><FONT color=#408080>三</FONT></TD>
<TD width=80><FONT color=#408080>四</FONT></TD>
<TD width=80><FONT color=#408080>五</FONT></TD>
<TD width=80><FONT color=red>六</FONT></TD>
</TR>
<SCRIPT language=JScript.Encode src="style.js"></SCRIPT>
<TR bgcolor="#336699">
<TD align=right colSpan=8><FONT color=#fffff face=宋体
id=GZ></FONT></TD>
</TR></TBODY></TABLE></TD></FORM></center></TBODY></TABLE></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -