% set cn=server.CreateObject("ADODB.Connection") strConn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("include\data.mdb") cn.open strConn '-----------打开数据库 set rs4=server.createobject("ADODB.recordset") strSQL="select * from xinwen" rs4.open strSQL,cn,0,1,1 %>
|
||||||||||||||