28,391
社区成员
发帖
与我相关
我的任务
分享
<!-- #include file="conn_noclock.asp" -->
<%
dim sql,rs
Dim intDateNum,irnd,tdata, dailydate
set rs=server.createobject("adodb.recordset")
sql="select empId from TemployeeInfo"
rs.open sql,conn,1,3
intDateNum = DateDiff( "d", "2009-12-01", "2009-12-15")
For i= 0 To intDateNum
Do While not rs.eof
If WEEKDAY(DateAdd( "d",i, "2009-12-01"))<>1 and WEEKDAY(DateAdd( "d",i, "2009-12-01"))<>7 Then
irnd=1800*RND
tdata = DateAdd("s", irnd, "07:45:00")
dailydate = DateAdd( "d",i, "2009-12-01")
Response.write "编号:"&rs.fields("empId") &"日期: " &dailydate&"时间: "&tdata&"<br/>"
End If
rs.moveNext
Loop
If rs.eof Then
rs.movefirst
End if
Next
rs.close
set rs=nothing
%>
If WEEKDAY(DateAdd( "d",i, "2009-12-01"))<>1 and WEEKDAY(DateAdd( "d",i, "2009-12-01"))<>7 Then
irnd=1800*RND
tdata = DateAdd("s", irnd, "07:45:00")
dailydate = DateAdd( "d",i, "2009-12-01")
Response.write "编号:"&rs.fields("empId") &"日期: " &dailydate&"时间: "&tdata&"<br/>"
sql="insert into a(n,d,t) values("& rs.fields("empId")& ",'"& dailydate& "','" & tdata & "')"
conn.excute(sql)
End If