[CODE]<%
Dim db,strConn,dbname,dbsrc,srcname
dbsrc="datafile\" '数据库的路径
dbname="rfewabewqj543218lr8fesajl4321.mdb"'数据库名
srcname=dbsrc&dbname
strConn="Dbq="&Server.Mappath(
srcname)&";Driver={Microsoft Access Driver (*.mdb)};"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
%>
<%
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from selfdata"rs.Open strSql,db,1
%>[/CODE]
粗体字部份自己看着改一下
[此贴子已经被作者于2007-8-9 23:07:16编辑过]