INSERT INTO 语句的语法错误 MM_editCmd.Execute
INSERT INTO 语句的语法错误 MM_editCmd.Execute
错误类型：Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。/about/registerp.asp, 第 115 行
浏览器类型：Mozilla/4.0 ( MSIE 6.0; Windows NT 5.1; SV1; QQPinyin 689; TencentTraveler 4.0; InfoPath.1)
网页：POST 100 ??? /about/registerp.asp
POST Data:vname=11&vmima=11&vmima2=11&vemail=&textfield=%B8%F6%C8%CB&v=%CC%E1%BD%BB&MM_insert=form1
这个是网站的错误
如果是你自己的网站
请贴出相关代码
Dim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmd
Dim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordId
Dim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_i
MM_editAction = CStr(Request.ServerVariables(&SCRIPT_NAME&))If (Request.QueryString && &&) Then
MM_editAction = MM_editAction & &?& & Server.HTMLEncode(Request.QueryString)End If
' boolean to abort record editMM_abortEdit = false
' query string to executeMM_editQuery = &&%&&%' *** Insert Record: set variables
If (CStr(Request(&MM_insert&)) = &form1&) Then
MM_editConnection = MM_conn_STRING
MM_editTable = &e&
MM_editRedirectUrl = &cg.asp&
MM_fieldsStr
= &vname|value|vmima|value|vmima2|value|vemail|value|textfield|value&
MM_columnsStr = &ename|',none,''|passworde|',none,''|passwordrepeate|',none,''|e-mail|',none,''|identity|',none,''&
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, &|&)
MM_columns = Split(MM_columnsStr, &|&)
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
' append the query string to the redirect URL
If (MM_editRedirectUrl && && And Request.QueryString && &&) Then
If (InStr(1, MM_editRedirectUrl, &?&, vbTextCompare) = 0 And Request.QueryString && &&) Then
MM_editRedirectUrl = MM_editRedirectUrl & &?& & Request.QueryString
MM_editRedirectUrl = MM_editRedirectUrl & &&& & Request.QueryString
End If%&&%' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValuesDim MM_dbValues
If (CStr(Request(&MM_insert&)) && &&) Then
' create the sql insert statement
MM_tableValues = &&
MM_dbValues = &&
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),&,&)
MM_delim = MM_typeArray(0)
If (MM_delim = &none&) Then MM_delim = &&
MM_altVal = MM_typeArray(1)
If (MM_altVal = &none&) Then MM_altVal = &&
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = &none&) Then MM_emptyVal = &&
If (MM_formVal = &&) Then
MM_formVal = MM_emptyVal
If (MM_altVal && &&) Then
MM_formVal = MM_altVal
ElseIf (MM_delim = &'&) Then
' escape quotes
MM_formVal = &'& & Replace(MM_formVal,&'&,&''&) & &'&
MM_formVal = MM_delim + MM_formVal + MM_delim
If (MM_i && LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & &,&
MM_dbValues = MM_dbValues & &,&
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
MM_editQuery = &insert into & & MM_editTable & & (& & MM_tableValues & &) values (& & MM_dbValues & &)&
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject(&mand&)
MM_editCmd.ActiveConnection = MM_editConnection
mandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl && &&) Then
Response.Redirect(MM_editRedirectUrl)
End If%&%&&!DOCTYPE HTML PUBLIC &-//W3C//DTD HTML 4.01 Transitional//EN& & &html&&!-- InstanceBegin template=&/Templates/index.d
MM_editQuery = &insert into & & MM_editTable & & (& & MM_tableValues & &) values (& & MM_dbValues & &)&
If (Not MM_abortEdit) Then' execute the insertSet MM_editCmd = Server.CreateObject(&mand&)MM_editCmd.ActiveConnection = MM_editConnectionmandText = MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.Close
你这里先不要执行,
response.write(MM_editQuery)
先把 MM_editQuery 输入看看是什么语句
相关知识等待您来回答
网页制作领域专家
& &SOGOU - 京ICP证050897号(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'DW CS5 asp+access表单提交的问题_百度知道
DW CS5 asp+access表单提交的问题
If (Request, MM_editRedirectUrl, 255.Parameters.Prepared = true
MM_editCmd, Request, Request.QueryString
Response.CreateParameter(&quot, ;INSERT INTO Orders (ddtype.Parameters.Append MM_editCmd?; & Request, idcad, 1;param8& &quot, Request, gender.ActiveConnection, 202.Form(&
MM_editCmd.Close
&#39, 1;%If (CStr(Request(&&&& & Rform1&quot.CreateParameter(&quot, 203;OrderOK;)) ';param19&quot.QueryString
MM_editRedirectUrl = MM_editRedirectUrl & &param1&quot, ?; adLongVarWChar
MM_editC&quot.ActiveConnection = MM_touring_STRING
MM_editC execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.Append MM_editCmd.Append MM_editC adLongVarWChar
MM_editCmd, 1?;note&gender&?&quot.CreateParameter(&quot&lt.Parameters, ;.CreateObject (&mand&.QueryString & append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = &quot?&quot.Form(&quot, 202, &.Form(&quot.CreateParameter(& adVarWChar
MM_editCddtype&)) &#39.Form(&quot, , note) VALUES (, R)) ';ADODB?)&.CommandText = &) Then
If (InStr(1, 203;MM_insert&) Then
If (Not MM_abortEdit) Then
&#39.Execute
MM_editCmd.P adVarWChar
MM_editCmd.Redirect(MM_editRedirectUrl)
End IfEnd If%&)) &#39.Append MM_editCmd, ;param20&quot, vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & &quot.asp&)) = &quot, 1, 50
百度知道代码都贴不全，怎么提问
我有更好的答案
一看就是用dw生成的代码
说问题就行了。。。
其他类似问题
为您推荐：
access的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看发表于2002年08月的文章
刚刚接到老班的电话，让我通知大家，凡是参加今天下午缓考的同学， 每人每门需交纳40元。请看到这跳消息的同学们，把这个噩耗告诉更多的同学。 哎~~！[] 　人气：　跟贴：0　分类：　发表于：02-08-30 09:05明天开始办理书本费退款的事情，请所有同学务必到场。 上次没有交数码照片的同学，请明天把照片带来交给老班。 下学期的课程有变动，请有课的同学到老班那里，咨询相关情况。[] 　人气：　跟贴：1　分类：　发表于：02-08-26 19:35由于本人不小心，把我自己电脑里的拨号适配器，给删了。 现在不能拨号上网，请问怎么装？ 还有一个问题就是，如何删掉电脑里的网络邻居啊。 我用的适WIN ME。请各位给我指点一好吗？[] 　人气：　跟贴：3　分类：　发表于：02-08-24 18:05????: Microsoft JET Database Engine (0x80040E14) /bysj/first/reg_1.asp, ? 90 ?If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("mand")MM_editCmd.ActiveConnection = MM_editConnection mandText = [] 　人气：　跟贴：0　分类：　发表于：02-08-22 19:06错误类型： Microsoft JET Database Engine (0x80040E14) /bysj/first/reg_1.asp, 第 90 行If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("mand")MM_editCmd.ActiveConnection = MM_editConnection man……[] 　人气：　跟贴：4　分类：　发表于：02-08-22 19:05请问如何格式化一个数据记录，比如说让数据只保留小数点后面两位。 还有就是，如何控制显示字符的长度，让超出长度的字符用“…”代替，就象 西祠胡同口文章标题一样。请高手指点一下，小弟在此有礼了。[] 　人气：　跟贴：4　分类：　发表于：02-08-20 11:49[] 　人气：　跟贴：0　分类：　发表于：02-08-04 23:14
我的名片酷一族ID　　号：99970注册时间：-上次登陆：14-06-12个人资料这里是哪呢？最新发表文章文章归档? (1)? (4)? (1)? (9)? (1)? (1)? (1)? (2)? (1)? (1)? (1)? (1)? (5)? (2)? (12)? (1)? (1)? (1)? (3)? (3)? (47)? (19)? (6)? (2)? (2)? (4)? (1)? (1)? (1)? (1)? (2)? (14)? (1)? (2)? (1)? (2)? (2)? (1)? (5)? (7)? (5)? (6)? (11)? (8)? (4)? (9)? (8)? (5)? (4)? (2)? (6)? (9)? (20)? (3)? (7)? (2)? (1)? (3)? (2)? (5)? (3)? (4)? (3)? (2)求高手进啊显示什么 MM_editCmd.Execute错误_百度知道
求高手进啊显示什么 MM_editCmd.Execute错误
&%' *** Update Record: construct a sql update statement and execute itIf (CStr(Request(&MM_update&)) && && And CStr(Request(&MM_recordId&)) && &&) Then
' create the sql update statement
MM_editQuery = &update & & MM_editTable & & set &
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),&,&)
MM_delim = MM_typeArray(0)
If (MM_delim = &none&) Then MM_delim = &&
MM_altVal = MM_typeArray(1)
If (MM_altVal = &none&) Then MM_altVal = &&
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = &none&) Then MM_emptyVal = &&
If (MM_formVal = &&) Then
MM_formVal = MM_emptyVal
If (MM_altVal && &&) Then
MM_formVal = MM_altVal
ElseIf (MM_delim = &'&) Then
' escape quotes
MM_formVal = &'& & Replace(MM_formVal,&'&,&''&) & &'&
MM_formVal = MM_delim + MM_formVal + MM_delim
If (MM_i && LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & &,&
MM_editQuery = MM_editQuery & MM_columns(MM_i) & & = & & MM_formVal
MM_editQuery = MM_editQuery & & where & & MM_editColumn & & = & & MM_recordId
If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject(&mand&)
MM_editCmd.ActiveConnection = MM_editConnection
mandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl && &&) Then
Response.Redirect(MM_editRedirectUrl)
End IfEnd If%&
很多年前, 一个爸爸和一个妈妈想休假，所以他们决定晚上去城镇。他们叫来最信任一个人来照看孩子。当保姆来的时候，他们的连个孩子已经在床上睡着了。所以保姆只是看了看孩子是否睡的好，就坐下了。深夜，保姆觉得无聊就想去楼下看电视。但是她看不了，因为楼下没有电视（因为孩子的父母不希望他们的孩子看太多垃圾）。她就打电话给孩子的父母，问是否可以在他们的卧室看电视，当然孩子的父母同意了。但保姆又想要最后一个请求。她问是否可以用毯子或者衣服盖住那小丑雕像，因为那使她感到很害怕。电话沉默了一会。（此时爸爸在和保姆通话）他说：带孩子离开房订鼎斥刮俪钙筹水船惊间……我们将会叫警察……我们从来没有什么小丑雕像。那小丑很可能是一个从监狱逃出来的杀人犯。电话里沉默了一会儿。（正在跟保姆通话的孩子的父亲）说：带上孩子们，离开房子……我们会通知警察……我们没有一个小丑雕像……孩子们和保姆被小丑谋杀了。结果是，小丑是一个从监狱里逃出来的杀人犯。如果你不在5分钟内转发这个贴子，这个小丑在凌晨3点时将会拿着刀站在你的床前。我在这里发了，这就是恶魔般的小丑没有杀我的原因
其他类似问题
为您推荐：
execute的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁