Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14' [Microsoft][ODBC Microsoft Access 驱动程序] FROM 子句语法错误。 /index.asp，行 55；代码是：<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/shujuku.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")) = "forml") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_edit
Cmd
Set MM_edit
Cmd = Server.CreateObject ("ADODB.Command")
MM_edit
Cmd.ActiveConnection = MM_shujuku_STRING
MM_edit
Cmd.CommandText = "INSERT INTO [信息表] ([姓名], [性别], [手机号码], [邮箱]) VALUES (?, ?, ?, ?)"
MM_edit
Cmd.Prepared = true
MM_edit
Cmd.Parameters.Append MM_edit
Cmd.CreateParameter("param1", 201, 1, -1, Request.Form("姓名")) ' adLongVarChar
MM_edit
Cmd.Parameters.Append MM_edit
Cmd.CreateParameter("param2", 201, 1, -1, Request.Form("性别")) ' adLongVarChar
MM_edit
Cmd.Parameters.Append MM_edit
Cmd.CreateParameter("param3", 201, 1, -1, Request.Form("手机号码")) ' adLongVarChar
MM_edit
Cmd.Parameters.Append MM_edit
Cmd.CreateParameter("param4", 201, 1, -1, Request.Form("邮箱")) ' adLongVarChar
MM_edit
Cmd.Execute
MM_edit
Cmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "提示插入成功.html"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_
cmd
Dim Recordset1_numRows
Set Recordset1_
cmd = Server.CreateObject ("ADODB.Command")
Recordset1_
cmd.ActiveConnection = MM_shujuku_STRING
Recordset1_
cmd.CommandText = "SELECT * FROM [信息表]"
Recordset1_
cmd.Prepared = true
Set Recordset1 = Recordset1_
cmd.Execute
Recordset1_numRows = 0
%>
<html>
<head>
<title>shouye</title>
<body><form name="forml" action="<%=MM_editAction%>" method="POST" id="forml">
<p>姓名：
<label for="textfield"></label>
<input type="text" name="姓名" id="姓名">
</p>
<p>性别：
<input type="radio" name="性别" id="性别" value="男">
男
<label for="radio"></label>
<input type="radio" name="性别" id="性别" value="女">
女
<label for="radio2"></label>
</p>
<p>手机号码：
<label for="textfield3"></label>
<input type="text" name="手机号码" id="手机号码">
</p>
<p>邮箱：
<label for="textfield4"></label>
<input type="text" name="邮箱" id="邮箱">
</p>
<p>
<input type="submit" name="button" id="button" value="提交">
<a href="index.asp">取消</a></p>
<p>
</p>
<p>
</p>
</form>
<p>This is my first website<p>
</body>
</head>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
解答了在使用CMD时遇到的无法在不同驱动器间直接切换目录的问题，提供了两种解决方法：普通切换目录命令（d:）和告知提示符同时改变驱动器和目录（cd/dd:）。
扫一扫
645
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
