是啊,我能了,库中一个id自动编号
一个stardate存放日期
一个llsq存放事件
<%
numyue=month(date())
numri=day(date())
sql="SELECT * FROM sq1 WHERE (MONTH(stardate) ="&numyue&") AND (YEAR(stardate) ="&numri&") "
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><%response.Write rs("llsq")%> <%rs.movenext
loop
rs.close%>
还是不行