小弟初学，请指教改正！
<%
yue=month(date)
ri=day(date)
sql = "select * from shengri where yue ='"&yue&"' and ri='"&ri&"'"
Set rs = Conn.Execute(sql)
if not rs.eof then
%>