**********数据插入到ACCESS中
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("waibaowang.mdb")
dim rs,sql
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from huifu"
rs.Open sql,conn,1,3
rs.Addnew
rs("note")=request.Form("t_hfnr")
rs("quanxian")=request.Form("s_hftype")
rs("time")=now
rs("what")="项目名称"
rs("name")="回复者"
rs("huifuid")=request.QueryString("id")
rs.Update
rs.Close
conn.close
set rs=Nothing
'response.Redirect("public.htm")
%>

<%    sql="INSERT into fabiao ( note1,name1,what,time1,quanxian ) VALUES ('"+qq+"','"+ff+"','"+ee+"','"+dd+"','"+rr+"')"
 
    set conn=server.CreateObject ("Adodb.connection")
    set rs=server.CreateObject ("Adodb.recordset")
    Connstr="DBQ="+server.mappath("waibaowang.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}"
    conn.Open connstr
    rs.CursorType=1
    rs.CursorLocation=2
    rs.LockType=3
    rs.Open sql,conn
%>
***********数据库打开*******
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("waibao.mdb")
exec="select * from daima order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

*************
set conn=server.CreateObject ("Adodb.connection")
  set rs=server.CreateObject ("Adodb.recordset")
  Connstr="DBQ="+server.mappath("waibao.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}"  '数据库和网页要在用一个目录
  conn.Open connstr
  rs.CursorType=1
  rs.CursorLocation=2
  rs.LockType=3
  rs.Open sql,conn