Question

asp搜索日期范围代码怎么写

如果提交的页面代码如下： <form name="form1" method="post" action="xiaofeijilu.asp">
贵宾姓名：<input type=text name="xingming" size="30">
开始时间：<input type=text name="date1" size="30">
结束时间：<input type=text name="date2" size="30">
<input type="submit" name="Submit2" value="查询记录">
</form>
以下代码应该修改什么地方才能搜索到指定的时间范围？
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from vipback where online='1' "
xingming=request("xingming")
date1=request("date1")
date2=request("date2")
sql=sql+ " and xingming like '%"&xingming&"%'"+" and postdate like '%"&date1&"%' " ///这里应该怎么修改才对
sql=sql + "order by top desc,id desc"
rs.open sql,conn,1
%>

Answer 1

要看你是用什么数据库的，accsee可以这么写：
sql=sql+ " and xingming like '%"&xingming&"%'"+" and postdate between #"&date1&"# and #" &date2&"#"

追问

不行呀，反而打不开了，帮忙测试一下是不是语法有问题

追答

用response.write sql 把sql字符串打印出来，然后拿一accsee中去测试一下。

追问

我不明白您的意思，我是一个asp初学者，上面的代码也是网上找的，让您笑话了，您能不能帮忙测试一下，如果用原来没有改的代码在输出页面上能正常显示500多条记录，用您给的代码一条记录也没有，而且感觉数据也没有读出来

追答

在sql=sql+ " and xingming like '%"&xingming&"%'"+" and postdate between #"&date1&"# and #" &date2&"#" 这句之后加一句：
response.write sql
然后看一下打印结果，贴出来看一下。

追问

加在后面时显示该页无法显示
提行后在加显示select * from vipback where online='1' and postdate like '%%' and date between ## and ##
不知道您能看懂吗

追答

是这样呀，你的xingming，date1，date2这三个变量都为空呀

追问

变量是什么我也不知道，呵呵，是不是文本框没有填写的原因
如果想填写就搜索，不填写就显示所有的记录应该怎么写

追答

你的开始时间和结束时间都必须填写后才能搜索，否则data1和data2都为空，还有like '%"&date1&"%' "这个要删掉的

追问

我开放了一个ftp，您可以直接下载或者上传文件来测试，ftp://27.9.169.52/
同时您也可以访问http://27.9.169.52/xiaofeijilu.asp
非常感谢，这么晚了还打扰您
如果您想进入帐号看一下每个用户的密码都是111
对了，您可以登陆一个帐户进去，看看vip查询，我想要的就是那个效果，不过把你搜索的内容换成时间范围

追答

sql=sql+ " and UserName like '%"&keywords&"%' " +" and date between #"&keywords1&"# and #" &keywords2&"#"

这样就行了，这是在vip姓名中用卡号查询，如果要用真实姓名查询的话：改成：
sql=sql+ " and xingming like '%"&keywords&"%' " +" and date between #"&keywords1&"# and #" &keywords2&"#"

Answer 2

sql数据库如下
xingming=request("xingming")
date1=request("date1")
date2=request("date2")
Dim SearchSQL
If xingming <> "" Then
SearchSQL = SearchSQL & " and xingming like '%" & xingming & "%'"
End If
If IsDate(date1) Then
SearchSQL = SearchSQL & " and Datediff(s,'" & date1 & "',postdate) > 0"
End If
If IsDate(date2) Then
SearchSQL = SearchSQL & " and Datediff(s,'" & date2 & "',postdate) < 0"
End If
sql="select * from vipback where online='1' " & SearchSQL & " order by top desc,id desc"

追问

我用的是access数据库，一楼的朋友是不是语法有问题，把sql换成您给的反而在不搜索的时候也显示不出来数据了
二楼的朋友能不能说说access的语句应该怎么写

追答

把Datediff(s,'" & date1 & "',postdate) > 0中的s用单引号引起来就可以了
如SearchSQL = SearchSQL & " and Datediff('s','" & date1 & "',postdate) > 0"

Answer 3

exec="select * from ruku where EQ_code like '%"&EQ_code&"%' and riqi between '2009-2-1' and '2009-2-28'
设一个日期范围，用between and查询可以了

Answer 4

xingming=request("xingming")
date1=request("date1")
date2=request("date2")
Dim SearchSQL
If xingming <> "" Then
SearchSQL = SearchSQL & " and xingming like '%" & xingming & "%'"
End If
If IsDate(date1) Then
SearchSQL = SearchSQL & " and Datediff('s','" & date1 & "',postdate) > 0"
End If
If IsDate(date2) Then
SearchSQL = SearchSQL & " and Datediff('s','" & date2 & "',postdate) < 0"
End If
sql="select * from vipback where online='1' " & SearchSQL & " order by top desc,id desc"