请谁帮哈忙 (0x80040E14)INSERT INTO 语句的语法异常

请哪位高手帮哈忙 (0x80040E14)INSERT INTO 语句的语法错误。
技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80040E14)
INSERT INTO 语句的语法错误。
/sanatorium/service/buy1/conn.asp, 第 41 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

网页：
POST 290 ??? /sanatorium/service/buy1/addreg_success.asp

addreg_success.asp代码如下：
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>



<%
username=md5(request.form( "username "))
password=md5(request.form( "password "))
realname=request.form( "realname ")
'superadmin=request.form( "superadmin ")
address=request.form( "address ")
usertel=request.form( "usertel ")
mobile=request.form( "mobile ")
useremail=request.form( "useremail ")
recepit=request.form( "recepit ")
sex=request.form( "sex ")
postcode=request.form( "postcode ")
city=request.form( "city ")
if username= " " or password= " " or realname= " " or address= " " or usertel= " " or mobile= " " or recepit= " " or sex= " " or postcode= " " or city= " " then
response.write " <script> alert( '用户资料请填写清楚 '); </script> "
response.write " <script> history.go(-1); </script> "
response.end
end if

addrs "member ", "username,password,recepit,address,usertel,mobile,useremail,sex,postcode,city ", " ' "+username+ " ', ' "+password+ " ', ' "+realname+ " ', ' "+address+ " ', ' "+usertel+ " ', ' "+mobile+ " ', ' "+useremail+ " ', ' "+recepit+ " ', ' "+sex+ " ', ' "+postcode+ " ', ' "+city+ " ' " '添加数据

closeconn()
%>
<HTML>
<HEAD>
<TITLE> 操作成功 </TITLE>
<meta name= "Generator " content= "EditPlus ">
<meta name= "Author ">
<meta name= "Keywords " content= " ">
<meta name= "Description " content= " ">
<link href= "../buy/css/index_style.css " rel= "stylesheet " type= "text/css ">
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<link href= "../../css/index_style.css " rel= "stylesheet " type= "text/css ">
</HEAD>

<BODY>
<p>   </p>
<p>   </p>
<p>   </p>
<p>   </p>
<center>
<h1> 会员注册成功 </h1>
<p> <a href= "service6-1.asp "style= "color:#000000 "> 返回登陆页面 </a> </p>
</center>
</BODY>
</HTML>

conn.asp代码：
<%
dim conn
dim connstr
dim rs
dim db
db= "../../database/database.mdb "
Set conn = Server.CreateObject( "ADODB.Connection ")
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr= "driver={Microsoft Access Driver (*.mdb)};dbq= " & Server.MapPath(db)
conn.Open connstr
function selectrs(rsnum,rstable,rscondition,rsattribute,rspagesize)
if rsnum <> " " then rsnum= "top "&rsnum
if rsattribute <> " ' ' " then allcondition= " where "&rscondition& "= "&rsattribute
if request( "smalltype ") <> " " then allcondition= " where imagesmalltype= ' "&request( "smalltype ")& " ' "
exec= "select "&rsnum& " * from "&rstable&allcondition& " order by ID desc " 'ASC是升序
'response.write(exec)
rs.open exec,conn,1,1
' 
if request( "pageno ") <> " " then
pageno=clng(request( "pageno "))
if pageno=0 then
pageno=1
end if
else
pageno =1
end if
if rspagesize= " " then rs.pagesize=15 else rs.pagesize=clng(rspagesize)
if not rs.eof then
if pageno <= rs.pagecount then rs.absolutepage=pageno
if pageno > rs.pagecount then rs.absolutepage=rs.pagecount
end if
findtype= "&type= "&request( "type ")
if request( "smalltype ") <> " " then findtype= "&smalltype= "&request( "smalltype ")
' 
end function
'////////////////////////////////////////////////////////添加数据
function addrs(rstable,rsfield,rsfieldvalue)
exec= "insert into "&rstable& "( "&rsfield& ")values( "&rsfieldvalue& ") "
'response.write(exec)
conn.execute exec
end function
'////////////////////////////////////////////////////////修改数据
function modifyrs(rstable,rscondition,rsattribute,rsfield,rsfieldvalue)
if rsattribute <> " ' ' " then allcondition= " where "&rscondition& "= "&rsattribute
exec= "select * from "&rstable&allcondition
'response.write(exec)
rs.open exec,conn,1,3
allrsfield=split(rsfield, "| ")
allrsfieldvalue=split(rsfieldvalue, "|| ")
for i=0 to Ubound(allrsfield)
rs(allrsfield(i))=allrsfieldvalue(i)
next
rs.update
end function
'////////////////////////////////////////////////////////删除数据
function deleters(rstable,rscondition,rsattribute)
if rsattribute <> " ' ' " then allcondition= " where "&rscondition& "= "&rsattribute

exec= "delete * from "&rstable&allcondition
'response.write(exec)
conn.execute exec
end function
'////////////////////////////////////////////////////////关闭数据表
function closers()
rs.close()
end function
'////////////////////////////////////////////////////////关闭数据库
function closeconn()
set rs=nothing
conn.close()
set conn=nothing
end function
%>

[解决办法]
addrs "member ", "username,[password],recepit,address,usertel,mobile,useremail,sex,postcode,city ", " ' "+username+ " ', ' "+password+ " ', ' "+realname+ " ', ' "+address+ " ', ' "+usertel+ " ', ' "+mobile+ " ', ' "+useremail+ " ', ' "+recepit+ " ', ' "+sex+ " ', ' "+postcode+ " ', ' "+city+ " ' " '添加数据

[解决办法]
exec= "insert into ' "&rstable& " '( ' "&rsfield& " ')values( ' "&rsfieldvalue& " ') "
[解决办法]
修改数据库的权限了。
右键--属性--权限--everyone--全选

老问题了。

请谁帮哈忙 (0x80040E14)INSERT INTO

热点推荐