%dim conn Set conn=Server.CreateObject("ADODB.Connection") dbpath=Server.MapPath("../data/data.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath %>
![]() |
<%
set rs=server.CreateObject("adodb.recordset")
rs.activeconnection=conn
rs.cursortype=3
rs.open"select * from sytem where id=1"
if rs.eof and rs.bof then
response.write("暂无内容")
else
%>
<%=rs("content")%>
<%
end if
%>
|