这是一段添加数据记录的asp代码 可按确定后 老提示不能建立0dbc对象 谢谢帮忙改改 急

[pgcat]

asp部分
<%@LANGUAGE="VBSCRIPT"%><%
' *** Insert Record: construct a sql insert statement and execute it
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
If (CStr(Request("MM_insert")) <> "") Then

MM_tableName = "TABLE1"
MM_fields = "date,DATE,none,none,NULL,info,INFOMATION,',none,'',degree,DEGREE,none,none,NULL"
MM_redirectPage = "successfull.htm"

' create the insert sql statement
MM_tableValues = ""
MM_dbValues = ""
MM_fieldsArray = Split(MM_fields, ",")
For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5
FormVal = CStr(Request.Form(MM_fieldsArray(i)))
Delim = MM_fieldsArray(i+2)
If (Delim = "none") Then Delim = ""
AltVal = MM_fieldsArray(i+3)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_fieldsArray(i+4)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fieldsArray)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_fieldsArray(i+1)
MM_dbValues = MM_dbValues & FormVal
Next
MM_insertStr = "insert into " & MM_tableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

' finish the sql and execute it
Set MM_insertCmd = Server.CreateObject("ADODB.Command")
MM_insertCmd.ActiveConnection = "dsn=datatime;"
MM_insertCmd.CommandText = MM_insertStr
MM_insertCmd.Execute

' redirect with URL parameters
If (MM_redirectPage = "") Then
MM_redirectPage = CStr(Request("URL"))
End If
If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And (Request.QueryString <> "")) Then
MM_redirectPage = MM_redirectPage & "?" & Request.QueryString
End If
Call Response.Redirect(MM_redirectPage)
End If
%>

表单部分
<FORM name=form1 action= <%=MM_editAction%> method="post">
<TABLE borderColor=#6699cc cellSpacing=0 borderColorDark=#000000 cellPadding=0
width="75%" align=center bgColor=#6699cc border=1 onMouseOver="MM_validateForm('date','','NisNum','degree','','NinRange0:1');return document.MM_returnValue">
<TBODY>
<TR>
<TD class=unnamed1>添加记录</TD>
</TR>
<TR>
<TD class=unnamed1>日期
<INPUT maxLength=8 size=8 name=date>
(格式：20010101） </TD>
</TR>
<TR bgColor=#6699cc>
<TD class=unnamed1>消息
<TEXTAREA name=info rows="1" cols="20"></TEXTAREA>
</TD>
</TR>
<TR bgColor=#6699cc>
<TD class=unnamed1>等级
<INPUT size=2 name=degree>
（请添入0或1） </TD>
</TR>
</TBODY>
</TABLE>
<P align=center>
<INPUT type=submit value=确定 name=name>
<INPUT type=reset value=重写 name=Submit2>
</P>
<input type="hidden" name="MM_insert" value="true">
</FORM>

[wxylvmnn]

你没有建立odbc的连接
怎么调用数据呢？

[shengjian_abc]

odbc 是怎么建立的？

[yonge]

可不可以再建立一个connection试一试；
set cn=Server.CreatObject("ADODB.Connection");
set cm=Server.CreatObject("ADODB.Command");
cm.ActiveConnection=cn
cm.CommandText = MM_insertStr
MM_insertCmd.Execute
一般说来，单独用RecordSet来向数据库添加数据可能更好！

[nels1028]

need this:
set cn=Server.CreatObject("ADODB.Connection")

[binghuodao]

要先建立连接

[andytu]

可以在控制面板里面的ODBC Data source(32bit)建立.也可以直接在程序里面建立