日期:2014-05-16 浏览次数:21246 次
<%
Dim conn
Set conn = server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/nod32.mdb")
Dim exec, rs
exec = "select * from [id] where data='"&Date()&"'"
Set rs = server.CreateObject("adodb.recordset")
rs.Open exec, conn, 1, 1
%>
<%do while not rs.eof%>
<%=rs("yhm")%><br>
<%=rs("mima")%><br>
<%=rs("date")%><br>
<%
rs.movenext
loop
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>