因为你根本没有写数据库插入语句呀!
lwgboy 的方法可行,不过,没有必要创建recordset,可以简化成这样,即
第二页代码修改为下面的即可:
<%
dim conn,connstr,db
db="sjk/ygh.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
dim name2,message2,b12
name2=request.form("name")
message2=request.form("message")
sql= "insert into book(name,message) values('"&name2&"','"&message2&"') "
conn.execute sql
%>