求段代码 asp 批量修改时间？？
数据库
表：aaa
字段1：ID
字段2（时间）： 2012-6-5 19:35:43
（假设有1-20个记录）
指定修改ID段为5-10   也就是指修改5-10的记录
指定 修改字段2（时间）开始时间段  如 2012-6-5 10:35:43——2012-6-5 19:35:43，
在2012-6-5 10:35:43——2012-6-5 19:35:43中随机时间更新字段2（时间）3个   
完成后自动  换为
2012-6-6 10:35:43——2012-6-6 19:35:43 中随机时间更新字段2（时间）3个
以此类推。。。

也就是 批量更新时间 每天更新 3个时间

那个找到了方法，但这个还是搞不定，求高手给段代码吧，谢谢

就是
1.只批量修改 5—10的记录  （这个是假如的，也可能指定批量修改50-100的记录）

2.指定随机时间段 如：2012-6-5 10:35:43——2012-6-5 19:35:43

在这个时间段内随机产生3个时间 并修改3个记录，修改到第4个记录的时候 把时间段增加1天  在随机产生3个时间 并修改3个记录   

就这样以此类推


[ 本帖最后由 sunfeiyao 于 2012-6-6 09:03 编辑 ]

应该是 第一个记录比第二个记录小

新数据 是随机生成的呀？？？

在线，等待。。。求解

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/001.asp, 第 20 行

刷新总是 打印 FalseTrue

Dim Db,Conn
Db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("01.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Db


'lid 开始id
'rid 结束id
'ldate 开始时间
'rdate 结束时间
Call SetDate(1,7,"2012-6-5 16:12:30","2012-6-5 22:12:32")
'打开数据库自己加


Function SetDate(lid,rid,ldate,rdate)
    Dim Sql,Rs,Total,ydate
    Set Rs = Server.Createobject("adodb.recordset")
    Total = 0
    'ydate = Now()'可指定固定时间
     ydate =  这个位置怎么指定时间段
    'Sql = "select id,ydate from Table_1 where id >= "&lid&" and id <= "&rid&" and DateDiff(""s"",ydate,'"&ldate&"') < 0 And DateDiff(""s"",ydate,'"&rdate&"') > 0"
    Sql = "select id,ydate from Table_1 where id >= "&lid&" and id <= "&rid&""

    'Response.write sql
    Rs.Open Sql,Conn,1,1
    If Rs.Bof Or Rs.Eof Then
       Response.write "False"
    Else
        Do Until Rs.EOF
            '当每超过三条数据的时候判断
            If (Total Mod 3)=0 Then
                '随机根据当前时间生成时间,加(1-1000)秒随机数，可以换分钟，小时
                ydate = DATEADD ("s" , Int((1000 * Rnd) + 1),ydate)
                '每3条+1天
                If Total <> 0 Then
                    ydate = DATEADD ("d" , 1, ydate)
                    Total = 0
                End If
               
            Else
                '随机根据当前时间生成时间
                ydate = DATEADD ("s" ,Int((1000 * Rnd) + 1), ydate)
            End If
        Response.write "<br><br>ID："&Rs("id")&" 更新时间："&ydate&"<br>"
        Sql = "Update Table_1 Set ydate='"&ydate&"' Where id="&Rs("id")
        Response.write Sql
        Conn.Execute(Sql)
        Total=Total+1    
        Rs.MoveNext
        Loop       
    End If
    Rs.Close
    Set Rs = Nothing
    Response.write "True"
End Function
'关闭数据库自己加
Conn.Close
Set Conn = Nothing

ydate =  这个位置怎么指定时间段