Ajax GuestBook(ASP)实现_2

2.ajaxAdd.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)
%>