addok.asp
代码:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
if request("text1")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入用户名！');" & "history.back()" & "</script>"
Response.End
end if
name=request("name")
sex=request("sex")
officephone=request("officehpone")
faxphone=request("faxphone")
homephone=request("homephone")
cellphone=request("cellphone")
city=request("city")
country=request("country")
address=request("address")
zipcode=request("zipcode")
msn=request("msn")
qq=request("qq")
email=request("email")
url=request("url")
info=request("info")

sql="insert into book(name,sex,officephone,faxphone,homephone,cellphone,city,country,address,zipcode,msn,qq,email,url,info) values('"&name&"','"&sex&"','"&officephone&"''"&faxphone&"','"&homephone&"','"&cellphone&"','"&city&"','"&country&"','"&address&"','"&zipcode&"','"&msn&"','"&qq&"','"&email&"','"&url&"','"&info&"')"
conn.Execute(sql)
response.write "<script language=JavaScript>" & chr(13) & "alert('信息添加成功！');"&"window.location.href = 'index.asp'"&" </script>"
conn.Close
set conn=nothing
%>

data.mdb数据库 表book

利用表单提交,但总是出错,不知道错在哪.请指教

sql="insert into book(name,sex,officephone,faxphone,homephone,cellphone,city,country,address,zipcode,msn,qq,email,url,info) values('"&name&"','"&sex&"','"&officephone&"','"&faxphone&"','"&homephone&"','"&cellphone&"','"&city&"','"&country&"','"&address&"','"&zipcode&"','"&msn&"','"&qq&"','"&email&"','"&url&"','"&info&"')"

你眼神真好..

还是不行~```

addok.asp
代码:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
if request("name")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入用户名！');" & "history.back()" & "</script>"
Response.End
end if
name=request("name")
sex=request("sex")
officephone=request("officehpone")
faxphone=request("faxphone")
homephone=request("homephone")
cellphone=request("cellphone")
city=request("city")
country=request("country")
address=request("address")
zipcode=request("zipcode")
msn=request("msn")
qq=request("qq")
email=request("email")
url=request("url")
info=request("info")

sql="insert into book(name,sex,officephone,faxphone,homephone,cellphone,city,country,address,zipcode,msn,qq,email,url,info) values('"&name&"','"&sex&"','"&officephone&"''"&faxphone&"','"&homephone&"','"&cellphone&"','"&city&"','"&country&"','"&address&"','"&zipcode&"','"&msn&"','"&qq&"','"&email&"','"&url&"','"&info&"')"
conn.Execute(sql)
response.write "<script language=JavaScript>" & chr(13) & "alert('信息添加成功！');"&"window.location.href = 'index.asp'"&" </script>"
conn.Close
set conn=nothing
%>

data.mdb数据库 表book


更改一下.那个text1改name

请写出错误提示，我在想会不会是数据库写入的权限问题……

<%
sql="insert into book(name,sex,officephone,faxphone,homephone,cellphone,city,country,address,zipcode,msn,qq,email,url,info) values('"&name&"','"&sex&"','"&officephone&"''"&faxphone&"','"&homephone&"','"&cellphone&"','"&city&"','"&country&"','"&address&"','"&zipcode&"','"&msn&"','"&qq&"','"&email&"','"&url&"','"&info&"')"
response.Write sql
response.end
conn.Execute(sql)

%>
你把这个输出来看看..你的sql有错吗?

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/tel/addok.asp，行 20

<%
^

发现好似多了一个<%
删除了之后

insert into book(name,sex,officephone,faxphone,homephone,cellphone,city,country,address,zipcode,msn,qq,email,url,info) values('eee','','','','','','','','','','','','','','')

附上文件