#32003/6/3 16:14:55
灌个水贴,在covien和allinhands前辈的帮助下,终于搞定了;以后大家遇到这样的问题可以查看的:
<%
dim mydate,last,pass
mydate=weekday(now())
if mydate=1 then
last=dateadd("d",-6,now())
pass=dateadd("d",-0,now())
elseif mydate=2 then
last=dateadd("D",-7,now())
pass=dateadd("d",-1,now())
elseif mydate=3 then
last=dateadd("d",-8,now())
pass=dateadd("d",-2,now())
elseif mydate=4 then
last=dateadd("d",-9,now())
pass=dateadd("d",-3,now())
elseif mydate=5 then
last=dateadd("d",-10,now())
pass=dateadd("d",-4,now())
elseif mydate=6 then
last=dateadd("d",-11,now())
pass=dateadd("d",-5,now())
elseif mydate=7 then
last=dateadd("d",-12,now())
pass=dateadd("d",-6,now())
end if
'response.write last&"
"&pass
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select id,name from movie where mtime >= '"&last&"' and mtime <='"&pass&"'"
rs.open sql,cn,1,3
%>
编辑历史:[这消息被arhui编辑过(编辑时间2003-06-03 16:18:27)]
难人一个……