而如果定义为变量再引用,也不行:如下代码:!!
<%
Function genSQLstr()
Dim sId,PurBdd,PurBdd2
sId=session("sId")
PurBdd=Request.Form("PurBd")
PurBdd= FormatDateTime(Date, 1)
PurBdd2=Request.Form("PurBd2")
PurBdd2= FormatDateTime(Date, 1)
if Request.Form("PurBn")<>"" then
StrSQL=StrSQL+"where sBillNo like '%"+Request.Form("PurBn")+"%'"
else
StrSQL=StrSQL+"where sSuppId='"& sId &"'"
end if
if Request.Form("PurBd")<>"" and Request.Form("PurBd2")<>"" then
StrSQL=StrSQL+"and dBillDay between 'Purdd' and 'Purdd2'"
end if
if Request.Form("PurBrd")<>"" then
StrSQL=StrSQL+"and dRecDate = '%"+Request.Form("PurBrd")+"%'"
end if
' 只获取到自己的订单
strSQL=strSQL & " and sSuppId='" & Replace(sId,"'","''") & "'" ' 防止注入攻击
End function
%>
错误类型:
Microsoft OLE DB Provider for SQL Server (0x80040E07)
从字符串转换为 datetime 时发生语法错误。
/pur_list.asp, 第 60 行
<%
Function genSQLstr()
Dim sId,PurBdd,PurBdd2
sId=session("sId")
PurBdd=Request.Form("PurBd")
PurBdd= FormatDateTime(Date, 1)
PurBdd2=Request.Form("PurBd2")
PurBdd2= FormatDateTime(Date, 1)
if Request.Form("PurBn")<>"" then
StrSQL=StrSQL+"where sBillNo like '%"+Request.Form("PurBn")+"%'"
else
StrSQL=StrSQL+"where sSuppId='"& sId &"'"
end if
if Request.Form("PurBd")<>"" and Request.Form("PurBd2")<>"" then
StrSQL=StrSQL+"and dBillDay between 'Purdd' and 'Purdd2'"
end if
if Request.Form("PurBrd")<>"" then
StrSQL=StrSQL+"and dRecDate = '%"+Request.Form("PurBrd")+"%'"
end if
' 只获取到自己的订单
strSQL=strSQL & " and sSuppId='" & Replace(sId,"'","''") & "'" ' 防止注入攻击
End function
%>
错误类型:
Microsoft OLE DB Provider for SQL Server (0x80040E07)
从字符串转换为 datetime 时发生语法错误。
/pur_list.asp, 第 60 行