ajax留言板二

這是sava.asp檔案,接收ajax.asp發送過來的資料並處理.

<%
Dim conn,rs
Dim connstr
Dim sqlCmd

'建立資料庫連接對象並開啟
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("GuestBook.mdb")
conn.open connstr

'將提交的資料加入資料庫
sqlCmd="insert into data(title,author,content) values('" & request.form("title") & "','" & request.form("author") & "','" & request.form("content") & "')"
conn.execute(sqlCmd)

'返回伺服器時間
Response.write(Date)
%>
好了,就這麼簡單了.

註明:轉載請註明www.111cn.net