[求助] 在Dreamweaver MX 2004中向数据库插入记录的问题！！！在线等候！请版主帮忙！！

帖子排序:

帖子发起人：cwbjcj 发起时间：2004-12-15 15:44 下午 回复：11

cwbjcj

等级：FLASH 2
注册：2004-07-23
发贴：146
积分：0
访问我的Blog

2004-12-15, 15:44 下午 IP 地址：已记录报告收藏楼主

[求助] 在Dreamweaver MX 2004中向数据库插入记录的问题！！！在线等候！请版主帮忙！！

请问各位，大哥，大姐，小弟在Dreamweaver MX 2004中插入记录时候出现以下错误： Microsoft VBScript 编译器错误错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft JET Database Engine 错误 '80040e14' INSERT INTO 语句的语法错误。 /dingdan.asp，行115 但是读数据是可以的，这是为什么啊。。。网页全部代码如下： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
' *** 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_dingdan_STRING
MM_editTable = "Dingdan"
MM_editRedirectUrl = "index.asp"
MM_fieldsStr = "Name|value|Add|value|Til|value|Cz|value|Email|value|Public|value|PublicNo|value|No|value|Yq|value"
MM_columnsStr = "Name|',none,''|Add|',none,''|Til|none,none,NULL|Cz|none,none,NULL|Email|',none,''|Public|',none,''|PublicNo|',none,''|No|',none,''|Yq|',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 Recordset1
Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_dingdan_STRING
Recordset1.Source = "SELECT * FROM Dingdan"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open() Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> <body>
<p> </p> <p><%=(Recordset1.Fields.Item("Name").Value)%></p> <form method="post" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Name:</td>
<td><input type="text" name="Name" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Add:</td>
<td><input type="text" name="Add" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Til:</td>
<td><input type="text" name="Til" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Cz:</td>
<td><input type="text" name="Cz" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Email:</td>
<td><input type="text" name="Email" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Public:</td>
<td><input type="text" name="Public" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">PublicNo:</td>
<td><input type="text" name="PublicNo" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">No:</td>
<td><input type="text" name="No" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Yq:</td>
<td><input type="text" name="Yq" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="插入记录">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

[此贴子已经被作者于2004-12-22 11:47:17编辑过]

cwbjcj

等级：FLASH 2
注册：2004-07-23
发贴：146
积分：0
访问我的Blog

2004-12-15, 17:28 下午 IP 地址：已记录报告收藏 第2楼

晕，不是吧，怎么没有人来回答我的问题呢？？？？？

coldstone

等级：博客管理员
头衔：河姆渡性感农民
注册：2001-11-11
发贴：3,903
积分：120
访问我的Blog

2004-12-16, 10:07 上午 IP 地址：已记录报告收藏 第3楼

已经提示了是insert 语法错误了啊。在 MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then这一行下面加上两行：
Response.Write(MM_editQuery)
Response.End()
看看输出的结果有什么错误，可以帖上来让大家帮你看。

其实。。我是一个演员。。

真的爱你chen

等级：FLASH1
注册：2004-08-01
发贴：49
积分：0

2004-12-16, 16:10 下午 IP 地址：已记录报告收藏 第4楼

斑主看看这样可以吗？？sj=date()
sj=sj &":"&hour(time()) &":"& minute(time())
库连接。。。。
sql="INSERT into notes (nowtime) VALUES('"sj"')"

cwbjcj

等级：FLASH 2
注册：2004-07-23
发贴：146
积分：0
访问我的Blog

2004-12-17, 14:44 下午 IP 地址：已记录报告收藏 第5楼

版主，你用你的方法，加了两行，出现的是以下结果： insert into Dingdan (Name,Add,Til,Cz,Email,Public,PublicNo,No,Yq) values ('sdfd','sdfsf',23,2323,'sdfsf','sdfsf','sdfsdf','2323','dsfsdf')

cwbjcj

等级：FLASH 2
注册：2004-07-23
发贴：146
积分：0
访问我的Blog

2004-12-17, 15:30 下午 IP 地址：已记录报告收藏 第6楼

版主大哥，你在不，我已经把结果贴上来了，，，帮我看看吗。。。。。。走过的路过的，也帮帮我这个菜鸟吧。。。。。。

玄光石

等级：FLASH1
注册：2004-11-25
发贴：23
积分：0

2004-12-17, 16:25 下午 IP 地址：已记录报告收藏 第7楼

大哥，老实说，我也是菜鸟一个，可能也帮不上你什么忙。不过我想你可以试试看把加了斑主说的resonse.write后的那个字符串 insert into Dingdan (Name,Add,Til,Cz,Email,Public,PublicNo,No,Yq) values ('sdfd','sdfsf',23,2323,'sdfsf','sdfsf','sdfsdf','2323','dsfsdf') 拷贝到Access里面去运行一下看可不可以，如果是语法错误的话，Access会告诉你具体是什么原因的。我想你应该是用的Access数据吧！不晓得行不行，你试试先！

+++++++++++++++++++++++
需要帮助的菜鸟!!!

cwbjcj

等级：FLASH 2
注册：2004-07-23
发贴：146
积分：0
访问我的Blog

2004-12-17, 17:49 下午 IP 地址：已记录报告收藏 第8楼

呵呵，谢了，我先去试试

cwbjcj

等级：FLASH 2
注册：2004-07-23
发贴：146
积分：0
访问我的Blog

2004-12-17, 18:16 下午 IP 地址：已记录报告收藏 第9楼

晕，不是吧，我在数据库（Access）里用 insert into Dingdan (Name,Add,Til,Cz,Email,Public,PublicNo,No,Yq) values ('sdfd','sdfsf',23,2323,'sdfsf','sdfsf','sdfsdf','2323','dsfsdf')是可以的。。。这是怎么回事啊。。。。。难道是我的Dreamweaver有问题，还是我的 IIS 不行啊。。。。 这下更晕了。。。。 救命啊。。。。。。

[此贴子已经被作者于2004-12-19 8:48:20编辑过]

oddly76

等级：FLASH1
注册：2004-12-06
发贴：25
积分：0

2004-12-20, 16:39 下午 IP 地址：已记录报告收藏 第10楼

我的也是出现这样的问题！请大家帮帮忙吧！

fiction2003

等级：FLASH1
注册：2005-04-09
发贴：3
积分：1

2006-05-20, 21:08 下午 IP 地址：已记录报告收藏 第11楼

Re：[求助] 在Dreamweaver MX 2004中向数据库插入记录的问题！！！在线等候！请版主帮忙！！

fchnipj

等级：FLASH1
注册：2006-05-19
发贴：3
积分：0

2006-05-21, 11:44 上午 IP 地址：已记录报告收藏 第12楼

Re：[求助] 在Dreamweaver MX 2004中向数据库插入记录的问题！！！在线等候！请版主帮忙！！

楼上说的极是,测试成功的.

闪吧论坛 » :: 闪客之吧 :: » [网页设计与编程] » [求助] 在Dreamweaver MX 2004中向数据库插入记录的问题！！！在线等候！请版主帮忙！！

快速回复帖子

当有回复时邮件通知我。禁用BBCode。禁用表情。	标题：