db=server.mappath("/admin/db2.mdb") Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db conn.Open connstr
dim gs,sql gs = Trim(request.Form("gs")) sql ="select top1 * from gs order by id desc" set rs=server.CreateObject("ADODB.recordset") rs.open sql,conn,1,3
%>
<%=rs.fields("content")
%> <% conn.close rs.close set rs=nothing set conn=nothing