<% @language=vbscript %> <% dim conn dim connstr connstr = "DBQ=" + server.mappath("Database/200306131737.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr Dim rs,sql Set rs=server.createobject("adodb.recordset") Dim ss,sq Set ss=server.createobject("adodb.recordset") %> Äþ²¨µÚ¶þ¼¤Ëس§