<%
on error resume next
dim conn
dim connstr
connstr="DBQ="+server.mappath("1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim title
dim content
title=request("title")
content=request("content")
dim rs
dim stt
set rs=server.createobject("adodb.recordset")
rs.Open "表名",conn,1,3
rs("title").value=title
rs("content").value=content
rs.update
rs.close
%>
<%
on error resume next
dim conn
dim connstr
connstr="DBQ="+server.mappath("1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
conn.execute "insert into table (title,content) values ('"&request.form("title")&"','"&request.form("content")&"')"
conn.close
set conn=nothing
%>