datetimemysql&;ASP经典
我正在尝试使用asp classic将参数日期传递给函数:我的数据库中的格式为datetime:2012-02-22 00:00:00,但我的参数仅包含“2012-02-22” 所以它不工作,我收到一个空的rsdatetimemysql&;ASP经典,datetime,asp-classic,Datetime,Asp Classic,我正在尝试使用asp classic将参数日期传递给函数:我的数据库中的格式为datetime:2012-02-22 00:00:00,但我的参数仅包含“2012-02-22” 所以它不工作,我收到一个空的rs <!--#include file="JSON.asp" --> <!--#include file="JSON_UTIL_0.1.1.asp" --> <% function concours(datedp) Dim sConnection, o
<!--#include file="JSON.asp" -->
<!--#include file="JSON_UTIL_0.1.1.asp" -->
<%
function concours(datedp)
Dim sConnection, objConn , objRS
Const adCmdText = &H0001
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
BD_serveur = "localhost"
BD_utilisateur = "root"
BD_password = ""
BD_nom = "emploipublic"
'datedp= "2012-02-22"
sConnection ="DRIVER={MySQL ODBC 5.1 Driver}; SERVER=" & BD_serveur & ";UID=" & BD_utilisateur & ";pwd=" & BD_password & ";database=" & BD_nom & ";option=3;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(sConnection)
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandType = adCmdText
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM concours WHERE DATE(dateDepot)='"& datedp & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open cmd, ,adOpenForwardOnly,adLockReadOnly
Dim jsonObject
Set jsonObject = New JSON 'JSON class is in the include file json.asp'
jsonResult = jsonObject.toJSON(Empty, rs, False)
Response.ContentType = "application/json"
Response.Write jsonResult
end function
concours("2012-02-22")
谢谢你!!它woooks:=但是我如何将参数datedp转换为datetime??请!当我使用datedp=“2012-03-03”进行测试时,它会通过,但当我在参数中传递它并调用函数时,它会返回一个空的rs…表中是否有恰好包含该日期的行?如果你输入日期,它需要午夜时间,而不是一整天。我在mysql上测试了这个功能,但当我将它放入我的代码中时,它不起作用:SELECT*FROMconcours
WHERE date(dateDepot)=“2012-02-22”Ps:Im这样调用我的函数:concours(“2012-02-22”)你是在循环recodset对象以获得行吗?在页面上显示更多代码1)“查看源代码”,并确保其“空白”,json可能在IE或某些浏览器中不可见。2) 将Response.Write(rs(0))放在json创建之前,并查看是否打印出一些内容。3) JSON类中出现了一些问题,请尝试响应。在那里也写一些东西,看看是否打印出了一些东西
SQL = "SELECT * FROM concours WHERE dateDepot='"& datedp & "'"