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)
%>
好了,就这么简单了.

注明:转载请注明