求段代码 asp 批量修改时间？？
求段代码 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个
以此类推。。。
也就是
指定iD段
指定时间段
批量更新 随机时间 一天 3个时间
[解决办法]
那边都给你解答完了，跑csdn了 正好我简化了一下代码
在csdn的话给我加分吧 哈 ，那边的都没人
Dim Db,ConnDb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("01.mdb")Set Conn = Server.CreateObject("ADODB.Connection")Conn.open Dblid = 1rid = 7Lyear = "2012-6-5" '日期如果也加段的话自己搞吧，照葫芦画瓢LHour = "1-23" '小时 时间段 按照时间规则 24以内Lminute = "1-59" '分钟 时间段 60以内'lid 开始id'rid 结束idCall SetDate(lid,rid,Lyear,LHour,Lminute)'打开数据库自己加Function GetDate(Lyeara,LHoura,Lminutea) Dim L_Hour,LHT_Hour,LHour_l,LHour_r,LHourb Dim L_minute,LHT_minute,Lminute_l,Lminute_r,Lminuteb,Lsecondb Randomize 'Response.write LHour_r L_Hour = Split(LHoura, "-", -1, 1) LHT_Hour = L_Hour LHour_l = Int(L_Hour(1))-Int(L_Hour(0))+1 LHour_r = Int(L_Hour(0)) LHourb = Int((LHour_l * Rnd)+LHour_r) L_minute = Split(Lminutea, "-", -1, 1) LHT_minute = L_minute Lminute_l = Int(L_minute(1))-Int(L_minute(0))+1 Lminute_r = Int(L_minute(0)) Lminuteb = Int((Lminute_l * Rnd)+Lminute_r) Lsecondb = Int((59 * Rnd) + 1) 'Response.write "<font color=red>"&Lyeara&" "&LHourb&":"&Lminuteb&":"&Lsecondb&"</font>" GetDate = FormatDateTime(Lyeara&" "&LHourb&":"&Lminuteb&":"&Lsecondb) 'Response.write "<br><font color=red>时间段:"&FormatDateTime(Lyear&" "&LHT_Hour(0)&":"&LHT_minute(0)&":00")&"至"&FormatDateTime(Lyear&" "&LHT_Hour(1)&":"&LHT_minute(1)&":00")&"</font>"End FunctionFunction SetDate(lid,rid,Lyear,LHour,Lminute) Dim Sql,Rs,Total,ydate Randomize Set Rs = Server.Createobject("adodb.recordset") Total = 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 '随机根据当前时间生成时间,加(1-1000)秒随机数，可以换分钟，小时 ydate = GetDate(Lyear,LHour,Lminute) ydate = DATEADD ("s" , Int((59 * Rnd) + 1),ydate) '当每超过三条数据的时候判断 If (Total Mod 3)=0 Then '每3条+1天 If Total <> 0 Then ydate = DATEADD ("d" , 1, ydate) Lyear = FormatDateTime(ydate,2) Total = 0 End If End If Response.write "<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.CloseSet Conn = Nothing