?% dim cn,connstr Set cn=Server.CreateObject("ADODB.Connection") DataName="maida88.asp" '数据库名? DataFolder="/Datamaida" '数据库存放文件夹,一般在根目录下 DataPath=DataFolder&"/"&DataName '数据库的路径 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataPath) cn.open connstr %> document.write()