asp 标准表达式中数据类型不匹配 20
我是用ACCESS来做为数据库传输!MicrosoftJETDatabaseEngine'80040e07'标准表达式中数据类型不匹配。\qg.asp,line115--...
我是用ACCESS 来做为数据库传输!
Microsoft JET Database Engine '80040e07'
标准表达式中数据类型不匹配。
\qg.asp, line 115
---------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/cnn.asp" -->
<%
' *** 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")) = "form3") Then
MM_editConnection = MM_cnn_STRING
MM_editTable = "qg"
MM_editRedirectUrl = "file/qg_cg.asp"
MM_fieldsStr = "name|value|tel|value|dz|value|nr|value"
MM_columnsStr = "name|',none,''|tel|none,none,NULL|dz|',none,''|nr|',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
%>
错误在115 line 展开
Microsoft JET Database Engine '80040e07'
标准表达式中数据类型不匹配。
\qg.asp, line 115
---------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/cnn.asp" -->
<%
' *** 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")) = "form3") Then
MM_editConnection = MM_cnn_STRING
MM_editTable = "qg"
MM_editRedirectUrl = "file/qg_cg.asp"
MM_fieldsStr = "name|value|tel|value|dz|value|nr|value"
MM_columnsStr = "name|',none,''|tel|none,none,NULL|dz|',none,''|nr|',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
%>
错误在115 line 展开
2个回答
展开全部
你给出的代码 也查看不到115行啊;
引起问题的原因是你数据库表里字段接受的数据类型不一致导致的;由于asp是弱数据类型只有一种就是variant,是可变类型,所以不用考虑asp部分,主要是你的字段类型,查看115行写入的是什么类型数据(比如是文本,你要插入到时间日期字段就不行),修改数据库字段类型;
引起问题的原因是你数据库表里字段接受的数据类型不一致导致的;由于asp是弱数据类型只有一种就是variant,是可变类型,所以不用考虑asp部分,主要是你的字段类型,查看115行写入的是什么类型数据(比如是文本,你要插入到时间日期字段就不行),修改数据库字段类型;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询