% Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("/database/hnxx.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" Conn.Open connstr %> <% id=request.QueryString("id") exec="select * from zhxx where id="&id Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 1 %>
|