ASP Classic和SQL日期超出范围错误

Question

我正在移动一个ASP经典应用程序到一个新的服务器。我没有开发的应用程序和我没有经验与ASP希望有人能指导我。

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 

[Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a varchar data type to a datetime data type resulted in an out-of-range value. 

/clientname/Admin/EntregasProcess.asp, line 49 

我读到可能是日期格式，所以我把它改成YYYY-MM-DD。

现在它正显示出这一点：

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 

[Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a varchar data type to a datetime data type resulted in an out-of-range value. 

/clientname/Admin/EntregasProcess.asp, line 62

数据库上的日期格式如下所示：

2006-07-31 00:00:00.000 

这是asp文件的代码：

<%@ Language=VBScript %>
<!--#include file="StrConn.asp"-->
<%

if Session("Role") <> "AD" Then 'AD=Administrador, CG = Consulta Gral.
Response.Redirect "../home.asp"
end if

%>

<%

Dim month_number, year_number, day_number, tituloEntrega, Estatus, idCuestionario, date_number

month_number = Request.Form("month_number")
year_number = Request.Form("year_number")
day_number = Request.Form("day_number")
tituloEntrega = trim(Request.Form("tituloEntrega"))
idCuestionario = Request.Form("idCuestionario")
Estatus = Request.Form("Estatus")
idEntrega = Request.Form("idEntrega")
<!--BITACORA::ESC::Oscar Salgado 20090729-->
bitacora = Request.Form("bitacora")
page = Request.Form("page")
<!--=====================================-->


date_number = dateSerial(year_number,month_number+1,day_number)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnPortal

<!--BITACORA::ESC::Oscar Salgado 20090729-->
SQL="Delete from dbo.tbBitacoraShow where idCuestionario = " & idCuestionario
conn.execute(SQL)
if bitacora = "1" Then
    SQL="Insert into dbo.tbBitacoraShow(idCuestionario) values(" & idCuestionario & ")"
end if
conn.execute(SQL)
<!--=====================================-->

Select Case Request.Form("btnGo")

    Case "Agregar"
    if trim(tituloentrega) <> "" Then
        SQL = "Insert into tbEntregas(TituloEntrega,Date,Estatus,IDCuestionario) values('" & _
            tituloEntrega & "','" & date_number & _
            "'," & estatus & ",'" & idCuestionario & "')"
        conn.Execute sql
    end if


    'Response.Write SQL
    'Response.End

    Case "Actualizar"

    SQL = "update tbEntregas Set TituloEntrega = '" & tituloEntrega & _
        "',Date='" & date_number & " ',Estatus=" & estatus & _
        ",IdCuestionario='" & idCuestionario & "' Where idEntrega = " & idEntrega

    conn.Execute sql

    'Response.Write SQL
    'Response.End

End Select


Response.Redirect "Entregas.asp?idEntrega="&idEntrega&"&page="&page

%>

Answer 1

好的，这是一个常见的问题，当您的查询没有正确的参数化。我认为这是一种不好的做法。

当开发人员将日期格式硬编码到应用程序中时，就会出现此问题。它受到一个或多个相关因素的影响：

• 更改IIS/Web服务器中的区域/语言设置
• 数据库用户中语言设置的更改

日期必须为ODBC cannonical格式（“yyyy-mm-dd hh：mm：ss”）以避免任何问题。这是通用格式，您可以避免我前面提到的任何因素。

我给你三种可能的解决方案：

正确的方法是在ASP中使用“.createParameter（）”方法对“adodb.command”对象的查询进行正确的参数化，并将其附加到命令中。问题是您需要添加大量的附加代码来实现这一点。

示例代码

'-------------------------------------------------------------------'
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.CommandText = sSQL
set oCmd.ActiveConnection= oConn
Set oPar = oCmd.CreateParameter("initial_date",7,1,,dDate) 'Date
oCmd.Parameters.Append(oPar)
'-------------------------------------------------------------------'

实际的方法是将硬编码格式改为cannonical格式，以避免当前和未来可能出现的问题。

快速修复方法是更改Web服务器中的区域设置或数据库服务器中的语言设置，以匹配过去的实现。

如何做到这一点：

首先，您需要知道开发人员在应用程序中使用的是哪种格式：例如，在墨西哥，格式是DD/MM/YYYY，通常服务器是英文的（MM/DD/YYYY）

Web服务器-区域设置

访问应用程序数据库的用户

将默认语言设置为应用程序使用的日期格式