以資料庫ACCESS為例

比如你資料庫裡有一個表AAA，裡面有欄位b1、b2、b3

連結資料庫程式碼

Response.CodePage = 936

dim conn

dim connstr

on error resume next

connstr="DBQ="+server.mappath("資料庫路徑")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

%>

表單:

提交表單，把表單的資料寫入所連線的資料庫的處理程式：

if trim(requet("tj"))="y" then

set rs=server.createobject("adodb.recordset")

sql="select * from AAA"

rs.open sql,conn,1,3

rs.addnew

rs("b1")=trim(requet("b1"))

rs("b2")=trim(requet("b2"))

rs("b3")=trim(requet("b3"))

rs.update

response.write""

end if

%>