% RecordNo=request("RecordNo") Set conn=Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)}" conn.Open param & ";dbq=" & Server.MapPath("aspbook.mdb") Set rs=Server.CreateObject("ADODB.Recordset") sqlstr="select * from aspbook where RecordNo="&RecordNo rs.open sqlstr,conn,3,2 BookNa=rs("BookNa") Author=rs("Author") Pub=rs("Pub") Price=rs("Price") content=rs("content") rs.close conn.close %>
|
|
|
![]() |