UC知道DW与Access插入数据记录
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:07:15
连接成功，但是就是不能插入数据记录代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/dblink.asp" -->
<%
Dim MM_editAction
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
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dblink_STRING
MM_editCmd.CommandText = "INSERT INTO link (mail) VALUES (?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/dblink.asp" -->
<%
Dim MM_editAction
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
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dblink_STRING
MM_editCmd.CommandText = "INSERT INTO link (mail) VALUES (?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters
1、检查一下数据库mail字段类型，要设置为文本，长度最好在20以上
2、Dreamweaver生成的代码看的头晕，我不说代码，你直接用DM检查。
打开页面后点右面的服务器行为，双击插入记录打开，看一下表单元素是否插入到列email(你数据库里的字段名)中，没有就选择一下，然后下面选择提交为文本。
不建议使用DW自动生成的代码.