连接数据库、表、对记录操作

'Response.Buffer=True
'session.codepage=936
'dim rs

Set conn=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Data.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DBPath
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from 表"
rs.open sql,conn, 1, 3
rs.addnew ,添加记录 rs.edit ,修改记录 rs.delete ,删除记录
rs("字段1")＝trim(request.form("某控件1"))
rs("字段2")＝trim(request.form("某控件2"))
.....
rs.update
rs.close
set conn=nothing
set rs=nothing