set conn=Server.createObject("adodb.connection")创建数据库链接
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.mappath("date.mdb")打开
mymonth=month(date())现在时间中的月
myday=day(date())日
set rs=Server.CreateObject("adodb.recordset")
sql="select * from temp where month(date)="&mymonth&" and day(date)="&myday
rs.open sql,conn,3,3
do while not rs.eof
response.write "<table border=1 width=200><tr><Td>id</td><Td>name</td><Td>date</td></tr>"
response.write "<Tr><td>"&rs("id")&"</td><td>"&rs("name")&"</td><td>"&rs("date")&"</td>"
rs.moveNext
loop
我试了这样可以的呀,你也试一下吧