📄 index.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!-- saved from url=(0038)http://nongli.911cha.com/2009-1-5.html -->
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>天时网-历史上的今天</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="keywords" content="天时网,时间,日历,历史上的今天,黄道吉日,黄历,结婚吉日,开业吉日,搬家吉日,日记本,工作,生活,web2.0" >
<link rel="SHORTCUT ICON" href="favicon.ico">
<STYLE>TD {
PADDING-RIGHT: 5px;PADDING-LEFT: 5px; FONT-SIZE: 12px; PADDING-BOTTOM: 5px; LINE-HEIGHT: 20px; PADDING-TOP: 5px
}
.wkbx {
BORDER-BOTTOM: #adf 1px solid
}
.wkbx TH {
PADDING-RIGHT: 5px; BORDER-TOP: #adf 1px solid; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; WIDTH: 90px; LINE-HEIGHT: 20px; PADDING-TOP: 5px; BACKGROUND-COLOR: #f4f9ff; TEXT-ALIGN: left
}
TD.ntime {
PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; LINE-HEIGHT: 20px; PADDING-TOP: 5px; BACKGROUND-COLOR: #f4f9ff; TEXT-ALIGN: left
}
TD.left {
PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; LINE-HEIGHT: 20px; PADDING-TOP: 5px; BACKGROUND-COLOR: #ffffff; TEXT-ALIGN: left
}
.btn {BORDER-RIGHT: #7b9ebd 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #7b9ebd 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#cecfde); BORDER-LEFT: #7b9ebd 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #7b9ebd 1px solid}.btn1_mouseout {BORDER-RIGHT: #7EBF4F 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #7EBF4F 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#B3D997); BORDER-LEFT: #7EBF4F 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #7EBF4F 1px solid}.btn1_mouseover {BORDER-RIGHT: #7EBF4F 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #7EBF4F 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#CAE4B6); BORDER-LEFT: #7EBF4F 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #7EBF4F 1px solid}.btn2 {padding: 2 4 0 4;font-size:12px;height:23;background-color:#ece9d8;border-width:1;}.btn3_mouseout {BORDER-RIGHT: #2C59AA 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #2C59AA 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#C3DAF5); BORDER-LEFT: #2C59AA 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #2C59AA 1px solid}.btn3_mouseover {BORDER-RIGHT: #2C59AA 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #2C59AA 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#D7E7FA); BORDER-LEFT: #2C59AA 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #2C59AA 1px solid}.btn3_mousedown{BORDER-RIGHT: #FFE400 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #00AE15 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#C3DAF5); BORDER-LEFT: #FFE400 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #FFE400 1px solid}.btn3_mouseup {BORDER-RIGHT: #2C59AA 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #2C59AA 1px solid; PADDING-LEFT: 2px; FONT-SIZE: 12px; FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffffff, EndColorStr=#C3DAF5); BORDER-LEFT: #2C59AA 1px solid; CURSOR: hand; COLOR: black; PADDING-TOP: 2px; BORDER-BOTTOM: #2C59AA 1px solid}
</STYLE>
</HEAD>
<BODY bgcolor=#F5FCFF style="margin-left:0;margin-top:0;">
<DIV style="HEIGHT:27px; BACKGROUND-COLOR:#FEAE42" align=center>
<table cellpadding=0 cellspacing=0 border=0 width=960px align=center>
<tr>
<td align=left>
<a href="#"><font color=#ffffff>首页</font></a>
</td>
<td align=right>
<A onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.mydtime.com/');return(false)" href="javascript:void(0)"><font color=#ffffff>设为首页</font></A> |
<A href="javascript:window.external.AddFavorite('http://www.mydtime.com/', '“天时网-记录每天的生活”&quot;/www.myDtime.com')" target=_self><font color=#ffffff>收藏本站</font></A>
</td></tr>
</table>
</DIV>
<%
dim conn
Dim connstr
dim dbpath
dbpath="SpiderResult.mdb" '数据库地址，相对路径
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
'On Error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Sorry! 主数据库连接出错，请检查连接字串。"
Response.End
End If
dim types
dim style
style=request("style")
if style="" then style="1"
todaytime=request("today")
If len(todaytime)>0 Then
Else
todaytime=changedt(now)
End if
%>
<script language="JavaScript">
function go(style) {
tf=document.dateform;
vd=tf.sday.options[tf.sday.selectedIndex].value;
vm=tf.smonth.options[tf.smonth.selectedIndex].value;
document.location="index.asp?today="+vm+vd+"&style="+style;
}
</script>
</HEAD>
<TABLE style="MARGIN-TOP:0px" cellSpacing=0 cellPadding=0 width=960 align=center border=0>
<tr>
<td bgColor=#d7e0ed>
<table width=100%><tr><td align=left><a href="/"><img src="/images/logo.gif" border=0 /></a></td>
<td><script type="text/javascript"><!--
google_ad_client = "pub-6322877683390986";
/* 728x90, 创建于 08-12-12 */
google_ad_slot = "8901199196";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
</tr></table>
</td>
</tr>
</table>
<TABLE style="MARGIN-TOP: 5px" cellSpacing=0 cellPadding=0 width=960 align=center border=0 style="BACKGROUND-COLOR: #ffffff;">
<TR>
<td valign=top width=960>
<form name="dateform" method="post" onsubmit="return false">
<TABLE style="BORDER-RIGHT: #AADDFF 1px solid; BORDER-TOP: #AADDFF 1px solid; BORDER-LEFT: #AADDFF 1px solid; BORDER-BOTTOM: #AADDFF 1px solid" cellSpacing=2 cellPadding=2 width="100%" border=0>
<TR><td align=left bgcolor="#ffffff" valign=middle height=30px>
<select name="smonth">
<%
dim tmpm,tmpd
dim iLoop
for iLoop=1 to 12
If iLoop<10 Then
tmpm="0" & iLoop&""
Else
tmpm= iLoop&""
End if
If left(todaytime,2)=tmpm Then
response.write "<option value=" & tmpm & " selected>" & iLoop & "月</option>"
Else
response.write "<option value=" & tmpm & ">" & iLoop & "月</option>"
End if
next
%>
</select>
<select name="sday">
<%
for iLoop=1 to 31
If iLoop<10 Then
tmpd="0" & iLoop&""
Else
tmpd= iLoop&""
End if
If right(todaytime,2)=tmpd Then
response.write "<option value=" & tmpd & " selected>" & iLoop & "日</option>"
Else
response.write "<option value=" & tmpd & ">" & iLoop & "日</option>"
End if
next
%>
</select>
<button style="height:23px;width:79px" class=btn3_mouseout onmouseover="this.className='btn1_mouseover'"
onmouseout="this.className='btn3_mouseout'" onmousedown="this.className='btn3_mousedown'" onClick="go(<%=style%>)"
onmouseup="this.className='btn3_mouseup'"> <font color=red>查看</font></button>
</td>
</TABLE> </form>
<%
dim rs_tmp ,todaytime,i,j
%>
<TABLE style="MARGIN-TOP: 5px;BORDER-RIGHT: #AADDFF 1px solid; BORDER-TOP: #AADDFF 1px solid; BORDER-LEFT: #AADDFF 1px solid; BORDER-BOTTOM: #AADDFF 1px solid" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<td>
<table style="MARGIN-TOP:1px;MARGIN-BOTTOM:1px;" width="97%" ><tr><td align=left >
<font style="font-family: Arial, Helvetica, sans-serif; font-weight: bold; color:#CC0000; font-size: 14px;">
<%
m=left(todaytime,2)
d=right(todaytime,2)
if left(m,1)="0" then m=right(m,1)
if left(d,1)="0" then d=right(d,1)
%>
<%=m%>月<%=d%>日
<%if style="1" then %>
历史上的大事记
<%end if %>
<%if style="2" then %>历史上诞生的人 <%end if %>
<%if style="3" then %>历史上逝世的人 <%end if %>
</font>
</td>
<td align=right>
<%if style="1" then %>
<a href="#" class="blue" title="上一月" onclick="go('2')">历史上诞生的人</a>
<a href="#" title="今日" class="blue" onclick="go('3')">历史上逝世的人</a>
<%end if %>
<%if style="2" then %>
<a href="#" class="blue" title="下一月" onclick="go('1')">历史上大事</a>
<a href="#" title="今日" class="blue" onclick="go('3')">历史上逝世的人</a>
<%end if %>
<%if style="3" then %>
<a href="#" class="blue" title="下一月" onclick="go('1')">历史上大事</a>
<a href="#" class="blue" title="上一月" onclick="go('2')">历史上诞生的人</a>
<%end if %>
</td>
</tr></table>
</td></tr>
<%Set rs_tmp = Server.CreateObject("ADODB.Recordset")
if style="1" then
rs_tmp.Open "select * from Content where PageUrl like '%/"&todaytime&"/%' and not(title like '%诞辰%' or title like '%逝世%')", conn, 1, 1
end if
if style="2" then
rs_tmp.Open "select * from Content where PageUrl like '%/"&todaytime&"/%' and title like '%诞辰%' ", conn, 1, 1
end if
if style="3" then
rs_tmp.Open "select * from Content where PageUrl like '%/"&todaytime&"/%' and title like '%逝世%' ", conn, 1, 1
end if
If rs_tmp.EOF Or rs_tmp.bof Then%>
<TR><td style="BORDER-BOTTOM: #AADDFF 1px solid;BORDER-TOP: #AADDFF 1px solid;height:21px" background="images/bg1.gif" align=left>暂无</td></TR>
<%
Else
j = rs_tmp.recordcount -1
rs_tmp.movefirst
For i = 0 To j
%>
<TR><td style="BORDER-BOTTOM: #AADDFF 1px solid;BORDER-TOP: #AADDFF 1px solid;height:21px" bgcolor=#F6F8FE align=left><font color="#ff9933"><b><%=rs_tmp("title")%></b></font></td></TR>
<TR><td align=left style="BORDER-BOTTOM: #AADDFF 0px solid;BORDER-TOP: #AADDFF 0px solid;height:21px" >
<div style="MARGIN-left: 10px;MARGIN-top:5px;MARGIN-right: 10px;"><%=rs_tmp("content")%></div><br />
</td></TR>
<%
rs_tmp.movenext
Next
end if
rs_tmp.close
set rs_tmp=nothing
%>
</TABLE>
</td>
</TR></TABLE>
<TABLE style="MARGIN-TOP: 5px;BORDER-RIGHT: #AADDFF 1px solid; BORDER-TOP: #AADDFF 1px solid; BORDER-LEFT: #AADDFF 1px solid; BORDER-BOTTOM: #AADDFF 1px solid;BACKGROUND-COLOR:#ffffff"
cellSpacing=2 cellPadding=2 width=960 height=22px align=center border=0>
<tr><td style="BORDER-bottom: #AADDFF 1px solid; height:22px " align=left>
<table cellPadding=2 >
<tr>
<td style="BORDER-right: red 2px solid;width:50px ">友情链接</td>
<td><a href="#" target=_blank>纵横户外</a>
<a href="http://www.51jiemeng.com/" target=_blank>周公解梦</a>
<a href="http://www.5dstudy.com/" target=_blank>无敌学习网</a>
</td>
</tr>
</table>
</td></tr>
<tr><td align=center height=29px >
<a href="http://www.miibeian.gov.cn/" target="_blank">京ICP备05072122号</a>
联系我们:kun.asia@gmail.com
</td></tr>
</TABLE>
<script language="javascript" type="text/javascript" src="http://js.users.51.la/2430994.js"></script>
<noscript><a href="http://www.51.la/?2430994" target="_blank"><img alt="我要啦免费统计" src="http://img.users.51.la/2430994.asp" style="border:none" /></a></noscript>
<p></p>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-6597440-1");
pageTracker._trackPageview();
} catch(err) {}</script>
</BODY></HTML>
<%
function changedt(datestring)
Dim m,d
if month(datestring)<10 then
m="0" & month(datestring)
else
m=month(datestring)
End if
if day(datestring)<10 then
d="0" & day(datestring)
else
d=day(datestring)
End if
changedt= m & d
End function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -