代码又错了。
<%
title=request("title")
name=request("name")
tel=request("tel")
home=request("home")
mail=request("mail")
word=request("word")
set conn=Server.CreateObject("adodb.connection")
dbq=Server.MapPath("data/data.mdb")
constr="driver={microsoft access driver (*.mdb)};dbq="&dbq
conn.open constr
sql="insert into mybook(title,name,tel,home,mail,word)values('"&title&"','"&name&"','"&tel&"','"&home&"','"&mail&"','"&word&"')"
conn.execute sql
response.Write("<script>alert('发表成功!')
response.Redirect("rword.asp")
%>