<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("guestbook.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message")

sql="select top 1 * from guestbook"
set rs=server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,2
rs.addnew
rs("name")=name
rs("tel")=tel
rs("message")=message
rs.update
rs.close
set rs=nothing
response.write"紀錄成功加入"
%>

以下是引用twptwp在2006-12-14 15:50:01的发言：

原程序:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("guestbook.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message")

exec="insert into guestbook(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"

或者

exec="insert into guestbook(name,tel,message)values('"&name&"',"&tel&",'"&message&"')"

conn.execute exec
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"紀錄成功加入"
%>
錯誤提示:
技術資訊 (供技術支援人員使用)

錯誤類型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 查詢運算式 '\'\'' 中的 語法錯誤 (少了運算元)。
/insert5.asp, line 11

瀏覽器類型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

頁數：
GET /insert5.asp

時間：
2006年12月14日, 下午 03:40:29
請求那位高手,給我一個簡單不容易出錯的寫入數据庫的程序給我,万分感謝.

其他資訊：
Microsoft Support