ASP(INSERT INTO 语句的语法错误。)急啊!!!!!!

[chengwei1985]

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/coon.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim 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 edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

MM_editConnection = MM_coon_STRING
MM_editTable = "jd"
MM_editRedirectUrl = "addok.asp"
MM_fieldsStr = "kehu|value|date|value|id|value|pzid|value|pzchi|value|pzji|value|pzza|value|pz1|value|pz2|value|pz3|value|pz4|value|pz5|value|pz6|value|pz7|value|pz8|value|pz9|value|pz10|value|pzxiaoji|value|psid|value|pschi|value|psji|value|psza|value|ps1|value|ps2|value|ps3|value|ps4|value|ps5|value|ps6|value|ps7|value|ps8|value|ps9|value|ps10|value|psxiaoji|value|lwid|value|lwchi|value|lwji|value|lwza|value|lw1|value|lw2|value|lw3|value|lw4|value|lw5|value|lw6|value|lw7|value|lw8|value|lw9|value|lw10|value|lwxiaoji|value|zlid|value|zlchi|value|zlji|value|zlza|value|zl1|value|zl2|value|zl3|value|zl4|value|zl5|value|zl6|value|zl7|value|zl8|value|zl9|value|zl10|value|zlxiaoji|value|ghid|value|ghchi|value|ghji|value|ghza|value|gh1|value|gh2|value|gh3|value|gh4|value|gh5|value|gh6|value|gh7|value|gh8|value|gh9|value|gh10|value|ghxiaoji|value|sbid|value|sbchi|value|sbji|value|sbza|value|sb1|value|sb2|value|sb3|value|sb4|value|sb5|value|sb6|value|sb7|value|sb8|value|sb9|value|sb10|value|sbxiaoji|value|huohao|value|chengliao|value|randi|value|ranmian|value|tuoshui|value|hongan|value|zaguang|value|baoguang|value"
MM_columnsStr = "kehu|',none,''|date|',none,''|id|',none,''|pzid|',none,''|pzchi|',none,''|pzji|',none,''|pzza|',none,''|pz1|',none,''|pz2|',none,''|pz3|',none,''|pz4|',none,''|pz5|',none,''|pz6|',none,''|pz7|',none,''|pz8|',none,''|pz9|',none,''|pz10|',none,''|pzxiaoji|',none,''|psid|',none,''|pschi|',none,''|psji|',none,''|psza|',none,''|ps1|',none,''|ps2|',none,''|ps3|',none,''|ps4|',none,''|ps5|',none,''|ps6|',none,''|ps7|',none,''|ps8|',none,''|ps9|',none,''|ps10|',none,''|psxiaoji|',none,''|lwid|',none,''|lwchi|',none,''|lwji|',none,''|lwza|',none,''|lw1|',none,''|lw2|',none,''|lw3|',none,''|lw4|',none,''|lw5|',none,''|lw6|',none,''|lw7|',none,''|lw8|',none,''|lw9|',none,''|lw10|',none,''|lwxiaoji|',none,''|zlid|',none,''|zlchi|',none,''|zlji|',none,''|zlza|',none,''|zl1|',none,''|zl2|',none,''|zl3|',none,''|zl4|',none,''|zl5|',none,''|zl6|',none,''|zl7|',none,''|zl8|',none,''|zl9|',none,''|zl10|',none,''|zlxiaoji|',none,''|ghid|',none,''|ghchi|',none,''|ghji|',none,''|ghza|',none,''|gh1|',none,''|gh2|',none,''|gh3|',none,''|gh4|',none,''|gh5|',none,''|gh6|',none,''|gh7|',none,''|gh8|',none,''|gh9|',none,''|gh10|',none,''|ghxiaoji|',none,''|sbid|',none,''|sbchi|',none,''|sbji|',none,''|sbza|',none,''|sb1|',none,''|sb2|',none,''|sb3|',none,''|sb4|',none,''|sb5|',none,''|sb6|',none,''|sb7|',none,''|sb8|',none,''|sb9|',none,''|sb10|',none,''|sbxiaoji|',none,''|huohao|',none,''|chengliao|',none,''|randi|',none,''|ranmian|',none,''|tuoshui|',none,''|hongan|',none,''|zaguang|',none,''|baoguang|',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)))
Next

' 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
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim 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
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values ("& MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute ((总显这里出错的.))
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_coon_STRING
rs.Source = "SELECT * FROM jd"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>

[stou]

up

[chessman_mak]

建议使用UPDATE添加..

[chenyu112]

同意二楼
使用update也可以很容易的查出错误来

[lhfx1985]

晕啊！天书啊！我还是帮你看了！出现这样的原因是因为你的表中使用了保留字啊！应该将字段date改为tdate或fdate就可以了啊！

[lhfx1985]

记得要加分啊！

[jackhuclan]

MM_editCmd.CommandText = MM_editQuery
MM_editCmd.CommandType= AdCmdText
MM_editCmd.Execute MM_editQuery
如果 CommandType 属性与 CommandText 属性中的命令类型不匹配，调用 Execute 方法时将产生错误

[yalan]

应该是机器生成的代码吧，天书~~~