db db=;% dim conn,connstr.createobject(;br;driver={microsoft access driver (*;43h5k34h5k435435/) response;@$();br;)+;;.mdb;.open connstr sub closeconn() conn;lt;adodb.mdb)};数据库文件位置 on error resume next connstr=; ./br;+server.mappath(; conn;lt!dhajsvtgkl.connection复制去试试看问题是否存在 lt;lt;defaultdir=.Write connstr;db; set conn=server;;;dbq=.close set conn=nothing end sub %;虽然我很聪明,但这么说真的难到我了