标准表达式中数据类型不匹配(asp)

Question

我比较新手,希望大家照顾 Set conn = Server.CreateObject("ADODB.Connection")
xdb_conn_str = "driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & "F:\SourceCode\aspskqs\Blog\database\blog.mdb"conn.Open xDb_Conn_Str
' 建立SQL语句
strsql = "SELECT * FROM [Essay] where PublishTime>'"&newDataStr&"' Order by PublishTime Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
rs.Open strsql, conn, 1,2              '提示21行错误,就是这里
totalRecs = rs.RecordCount
%>

Answer 1

'"&newDataStr&"'
这个变量不是日期值

Answer 2

PublishTime如果这是时间,你上面"&newDataStr&"'就有误了
你可以"&cdate(newDataStr)&"'转换!
还有rs.cursorlocation = 3游标已设为3但下面又再次设置也是不必要的!去掉这行吧
然后rs.Open strsql,conn,1,2改为rs.Open strsql,conn,1,3

Answer 3

昨晚发贴一直出错,没有给出完整的代码,真是不好意思啊
<%
' 打开连接池
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str' 建立SQL语句
strsql = "SELECT top 1 PublishTime FROM [Essay]  Order by PublishTime Desc"
Set tempRS=conn.Execute(strsql)
If not tempRS.eof and not tempRS.bof then
  newDataStr=year(tempRS(0))&"-"&month(tempRS(0))&"-"&day(tempRS(0))
else
  newDataStr=year(now())&"-"&month(now())&"-"&day(now())
End if
tempRS.Close
set tempRS=nothing' 建立SQL语句
strsql = "SELECT * FROM [Essay] where PublishTime > '"&newDataStr&"' Order by PublishTime Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
 rs.cursorlocation = 3
rs.Open  strsql, conn,3,2
totalRecs = rs.RecordCount
%>
我还想问一下,这个tempRS(0) 他的参数0是怎么意思呢

Answer 4

PublishTime如果这是时间,你上面"&newDataStr&"'就有误了
你可以"&cdate(newDataStr)&"'转换!
还有rs.cursorlocation = 3游标已设为3但下面又再次设置也是不必要的!去掉这行吧
然后rs.Open strsql,conn,1,2改为rs.Open strsql,conn,1,3试了一下,问题没有解决,提示还是和原来一样