我利用一个循环向表中写入数据：一个时间段的记录（date1－－date2）居然全部是date1的，且是死循环，求救各位！
<%
if Request.ServerVariables("REQUEST_METHOD")="GET" then
dim user,date1,date2,bz,mysql1,mysql2,date3,date4,dWeekday
user=Request.QueryString("user")
date1=Request.QueryString("kssj")'取一个时间控件的值，格式为yyyy-mm-dd
date3=date1'初始化date3，结果写入的全是date3的记录！！郁闷
date2=Request.QueryString("jzsj")
bz=Request.QueryString("marke")
  
strConnString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("reguser.mdb")
set myconn=Server.CreateObject("ADODB.Connection")
myconn.open strConnString
mysql1="select * from user where user_name='"&user&"'"
mysql2="select * from reguser where user_name='"&user&"'and user_lastlogin >= #"&Request.QueryString("kssj")&"# and user_lastlogin <= #"&Request.QueryString("jzsj")&"#" '数据库里如果是用户登录的时间到秒的，这个判断有用吗？

mysql3="insert into reguser (user_name,user_lastlogin,user_marke) values ('"&user&"','"&date3&"','"&bz&"') "
 
set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open mysql1,myconn,3,3
set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open mysql2,myconn,3,3
 if rs1.recordcount<=0 then
 %>
 <br />
 <%
 response.Write("用户名不能为空或无此用户名,请重新输入用户名!")
 else if date1>date2 then
  %>
 <br />
 <%
 response.Write("截止时间不能小于开始时间!") '对于用户自动登录的也就是时间到秒的 这个if好像不起作用，不知道为什么！
 else if rs2.recordcount>0 then
  %>
 <br />
 <%
 response.Write("用户在此时间段已有登录,请重新选择时间段!")
 else
 
 do while date3<=date2
 dWeekday =Weekday(date3)
 if Weekday(date3)<>1and Weekday(date3)<>7then
 set rs3=myconn.Execute(mysql3)
 end if
 date3=DateAdd("d", 1, date1)
 loop  '就是这个循环啊，费了我一上午，没整出来！ 
  %>
 <br />
 <% 
 Response.Write("保存成功!")
 
 end if
 end if
 end if
 myconn.Close
set rs1=nothing
set rs2=nothing
set rs3=nothing
 end if
%>