conn_access.asp

来自「怎样用ASP连接数据库系统」· ASP 代码 · 共 17 行

<%
        dim sql,rs,conn
	set conn=server.createobject("ADODB.Connection")  
	set rs=server.createobject("ADODB.Recordset")
	conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("LearnAsp.mdb")
        sql="select * from myTable"
        rs.open sql,conn,1,3
        do while not rs.eof
        response.write rs("姓名")&"<br>"
        rs.movenext
        loop
	'response.write rs.fields.count
	set rs=nothing
	conn.close
	set conn=nothing
%>