|
#2
hu9jj2013-02-07 11:32
|
程序代码：<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/nod32.mdb")
%>
<%
Dim MyDate
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
%>
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/nod32.mdb")
%>
<%
Dim MyDate
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
%>
运行的时候出现
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/index.asp, 第 9 行