% set connlog=server.CreateObject("ADODB.connection") connlog.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../data/history.mdb") & ";uid=;PWD=;" connlog.Open ptype=request("ptype") if ptype="" then keyword=request("keyword") strSQL="select * from sucai where stype=1 and name like '%" & keyword & "%' order by uploaddate desc" else ' ptype=clng("ptype") strSQL="select * from sucai where stype=1 and ptype=" & ptype & " order by uploaddate desc" end if set reclog=server.CreateObject("ADODB.recordset") reclog.Open strSQL,connlog,1,1 %>