费心了
谢谢！
不过需要，在
'--------------------------------------------
sql="select * from output_shu where 姓名='" & sname & "' and 时间>=#" & sbdate & "# and 时间<=#" & sedate & "# order by 品种"
rs.open sql,conn
'--------------------------------------------

中加
Set rs=Server.CreateObject("ADODB.RecordSet")
语句

测试成功

[em03 你的conn文件件中不是有这一句吗？

后来文件改了，忘了 不好意思 我改成了 <% serstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath("/data/data.mdb") set conn=server.CreateObject("ADODB.CONNECTION") conn.open serstr

'日期格式化成YYYY-MM-DD Function CFdate(udate) '去除空格，如果长度大于8，只取前8位数 udate=trim(udate) IF Len(udate)>8 Then udate=Left(udate,8) End IF '如果字符创中有非数字字符，返回空 For i=1 to Len(udate) IF Asc(Mid(udate,i,1))<48 Or Asc(Mid(udate,i,1))>57 Then CFdate="" Exit For Else '对符合条件的数字进行格式化 Select Case Len(udate) Case 4 CFdate=udate&"-01-01" Case 5 CFdate=Left(udate,4)&"-0"&Right(udate,1)&"-01" Case 6 IF Right(udate,2)>12 Then CFdate=Left(udate,4)&"-12-01" Else CFdate=Left(udate,4)&"-"&Right(udate,2)&"-01" End IF Case 7 IF Mid(udate,5,2)>12 Then CFdate=Left(udate,4)&"-12-0"&Right(udate,1) Else CFdate=Left(udate,4)&"-"&Right(udate,2)&"-0"&Right(udate,1) End IF Case 8 IF Mid(udate,5,2)>12 And Right(udate,2)>31 Then CFdate=Left(udate,4)&"-12-01" ElseIF Mid(udate,5,2)>12 And Right(udate,2)<31 Then CFdate=Left(udate,4)&"-12-"&Right(udate,2) ElseIF Mid(udate,5,2)<12 And Right(udate,2)>31 Then CFdate=Left(udate,4)&"-"&Mid(udate,5,2)&"-01" ElseIF Mid(udate,5,2)=02 And Right(udate,2)>28 Then CFdate=Left(udate,4)&"-"&Mid(udate,5,2)&"-28" Else CFdate=Left(udate,4)&"-"&Mid(udate,5,2)&"-"&Right(udate,2) End IF Case Else CFdate="" End Select End IF Next End Function %> 本以为好用，没想到，不管用。

好倒是   

不用对日期这么大费周折吧！

也对
没必要费这么大周折

yaa