UC知道帮个忙修改一下ASP网页制作错误
来源：百度知道 编辑：UC知道 时间：2024/05/22 08:28:28
技术信息（用于支持人员）
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
[Microsoft][ODBC Microsoft Access Driver]非法的精确度数值
/conn.asp, 第 27 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/aspconn.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")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_aspconn_S
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
[Microsoft][ODBC Microsoft Access Driver]非法的精确度数值
/conn.asp, 第 27 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/aspconn.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")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_aspconn_S
这个问题 很好解决！你的换一种连接方式。
比如
<%Dim myconn
myconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("xintong_data/#%5c_data.mdb")
set conn=server.createobject("ADODB.connection")
conn.open myconn
%>
数据库前面不加../试一下
错误很明显，你的数据库设计在存储过程三个参数中，不是全为字符类型，存在数值类型，系统自动转换的时候错误，建议去看看数据库中的存储过程
这个问题挺难.