未发现数据源名称并且未指定默认驱动程序要怎么解决？

图片说明

 <% Dim db Set db=Server.CreateObject("ADODB.Connection") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("shop.mdb") %>

你系统是64位的吧，将程序池启用32位的试试

驱动字符串改这样试试

 db.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.Mappath("shop.mdb")