ASP 做每日值班提示的代码，急求！！谢谢!!

来源：百度知道 编辑：UC知道 时间：2024/06/21 14:46:33
单位的网站首页想搞个每日值班提示。单位几十个人，每天晚上都要有一人值班，周六周日两天白天要有两人值班，晚上一样得有一人值班。我想这样设置ACCESS数据库：duty.mdb，表DUTY，字段包括ID,USER(文本)，DATE（文本）。数据编辑就直接在数据库里添加修改了，现在就想要一个能读取每日数据的ASP，谢谢各位啦~~~

<%
dim conn
set conn = server.createobject("adodb.connection")
'连接数据库，要注意duty.mdb的路径问题
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("duty.mdb")

Function getDutyUserName(d)
Dim rs
sql="select [user] from [duty] where datediff('d',[date],'" & d & "')=0"
Set rs=conn.execute(sql)

While Not rs.eof
getDutyUserName=getDutyUserName & "," & rs("user")
rs.movenext
Wend

If Len(getDutyUserName)>0 Then
getDutyUserName=Mid(getDutyUserName,2,Len(getDutyUserName)-1)
End If

End Function
%>

<%
'调用
response.write("今日值班：" & getDutyUserName(Date()))
%>