盒子论坛 v2.1

下面这段代码，我在运行时出现＂记录添加成功＂提示，但数据库里却没有新添加的记录！请帮我看一下，这哪里有错误呀！
<%
dim strname,strxing,strhigh,strmarry
dim strage,strxue,strback
dim strphone,strworked,strlove
dim strfind,strsend,strwrite,strnote
dim sql
dim conn
dim connstr

   'on error resume next
if request("name")="" then
  response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的名字！');" & "history.back()" & "</script>"
end if
if request("high")="" then
  response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的身高！');" & "history.back()" & "</script>"
end if
if request("age")="" then
  response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的年龄！');" & "history.back()" & "</script>"
end if
if request("phone")="" then
  response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的联系电话！');" & "history.back()" & "</script>"
end if
strname = trim(request("name"))
strxing = trim(request("xing"))
strhigh = trim(request("high"))
strmarry = trim(request("marry"))
strage = trim(request("age"))
strxue = trim(request("xue"))
strback = trim(request("back"))
strphone = trim(request("phone"))
strworked = trim(request("worked"))
strlove = trim(request("love"))
strfind = trim(request("find"))
strsend = trim(request("send"))
strwrite = trim(request("write"))
strnote = trim(request("note"))
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("friends.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,3,3
rs("Name")=strname
rs("Sex")=strxing
rs("High")=strhigh
rs("Married")=strmarry
rs("Age")=strage
rs("Dip")=strxue
rs("Telephone")=strphone
rs("Work")=strworked
rs("Hobby")=strlove
rs("Friends")=strfind
rs("Send")=strsend
rs("Write")=strwrite
rs("Note")=strnote
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "记录添加成功!"

%>
----------------------------------------------
发现错误是我的爱好！

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/6/9 10:51:21

1楼：

定义两个数组
Dim fields(),Values()
field(0)="name"
...
values(0)="XXX"
...
rs.AddNew fields,values
rs.Update
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

error (qimu80)	★☆☆☆☆	-
	普通会员

2003/6/9 10:55:11

2楼：

谢谢你，你能帮我改一下吗？我对这个语句用的不熟，非常谢谢你！
----------------------------------------------
发现错误是我的爱好！

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/6/9 11:03:10

3楼：

好久不用asp了不知道对不对
<%
dim strname,strxing,strhigh,strmarry
dim strage,strxue,strback
dim strphone,strworked,strlove
dim strfind,strsend,strwrite,strnote
dim sql
dim conn
dim connstr
Dim fields(13),Values(13)

'on error resume next
if request("name")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的名字！');" & "history.back()" & "</script>"
end if
if request("high")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的身高！');" & "history.back()" & "</script>"
end if
if request("age")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的年龄！');" & "history.back()" & "</script>"
end if
if request("phone")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入您的联系电话！');" & "history.back()" & "</script>"
end if
strname = trim(request("name"))
strxing = trim(request("xing"))
strhigh = trim(request("high"))
strmarry = trim(request("marry"))
strage = trim(request("age"))
strxue = trim(request("xue"))
strback = trim(request("back"))
strphone = trim(request("phone"))
strworked = trim(request("worked"))
strlove = trim(request("love"))
strfind = trim(request("find"))
strsend = trim(request("send"))
strwrite = trim(request("write"))
strnote = trim(request("note"))
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("friends.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,3,3
fields(0)="Name"
fields(1)="Sex"
fields(2)="High"
fields(3)="Married"
fields(4)="Age"
fields(5)="Dip"
fields(6)="Telephone"
fields(7)="Work"
fields(8)="Hobby"
fields(9)="Friends"
fields(10)="Send"
fields(11)="Write"
fields(12)="Note"

values(0)=strname
values(1)=strxing
values(2)=strhigh
values(3)=strmarry
values(4)=strage
values(5)=strxue
values(6)=strphone
values(7)=strworked
values(8)=strlove
values(9)=strfind
values(10)=strsend
values(11)=strwrite
values(12)=strnote

rs.AddNew fields,values
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "记录添加成功!"

%>
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

error (qimu80)	★☆☆☆☆	-
	普通会员

2003/6/9 11:30:51

4楼：

在rs.AddNew fields,values这一行，出现＂项目在所需的名称或序数中未被发现＂这样错误提示。
----------------------------------------------
发现错误是我的爱好！

信息

登陆以后才能回复