ajaxadd.asp

来自「< 精通AJAX>>光盘 要求： JDK1.4.2」· ASP 代码 · 共 18 行

<%
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)
%>