wmt.inc

物业管理和办公自动化系统

<%
function TableMeeting()
	TableMeeting = "<table border=0 align=center width=950> <tr><td width=200><img border=0 src=""../images/cntelecom.gif""></td>"
	TableMeeting = TableMeeting & " <td width=480 align=center style=""font:15pt;font-weight:900""><b>信息世界分公司一周会议安排</b></td>"
	TableMeeting = TableMeeting & "<td valign=bottom align=right style=""font:12pt"">"&getGongliStr(pFrom_time)&"至"&getGongliStr(pTo_time)&"</td></tr> </table>"
	TableMeeting = TableMeeting & "<table align=center width=950 border=1 cellspacing=0 cellpadding=4 style=""table-layout:fixed"">"
	TableMeeting = TableMeeting & "<tr><td width=120 align=center style=""font-size:11pt"">日期</td><td width=400 align=center style=""font-size:11pt"">上午</td><td width=* align=center style=""font-size:11pt"">下午</td></tr>"

	dim sSQL,crs,rs '构造sql语句，选出某一天上午或者下午的会议
	while Cdate(pFrom_time) <= Cdate(pTo_time)
		sSQL = "select * from T_MeetingPrepare "
		sSQL = sSQL & " where start_time >='" & pFrom_time & "' and start_time <'" & DateAdd("h", 12, pFrom_time) & "'"
		sSQL = sSQL & " order by start_time"
		set crs = New CRecordset
		set rs = crs.Open(dbLocal, sSQL)
		TableMeeting = TableMeeting & "<tr ><td  style=""font-size:11pt"" align=center><br>"&Formatdt(pFrom_time,"m月d日")&"<br>（"&getWeekdayStr1(pFrom_time)&"）<br><br></td>"
		TableMeeting = TableMeeting & "<td >&nbsp;"
		while not rs.eof
		TableMeeting = TableMeeting &"<b>"& Formatdt(rs("start_time"),"hh:mm") &"&nbsp;&nbsp;" 
		TableMeeting = TableMeeting & Tohtml(rs("meeting_name"))&"</b>"
		TableMeeting = TableMeeting & "<br>&nbsp;出席：&nbsp;&nbsp;" & TransEmpSerial(dbLocal,rs("attendee"))& "," & rs("guest") 
		TableMeeting = TableMeeting & "<br>&nbsp;地点：&nbsp;&nbsp;" & Tohtml(rs("meeting_room"))&"<br>&nbsp;"
			rs.movenext
		wend
		crs.close()

		TableMeeting = TableMeeting & "</td>"

		sSQL = "select * from T_MeetingPrepare "
		sSQL = sSQL & " where start_time >='" & DateAdd("h", 12, pFrom_time)  & "' and start_time <'" & DateAdd("d", 1, pFrom_time) & "'"
		sSQL = sSQL & " order by start_time"
		set crs = New CRecordset
		set rs = crs.Open(dbLocal, sSQL)
		TableMeeting = TableMeeting & "<td style=""font-size:11pt"">&nbsp;"
		while not rs.eof
		TableMeeting = TableMeeting &"<b>"& Formatdt(rs("start_time"),"hh:mm") &"&nbsp;&nbsp;" 
		TableMeeting = TableMeeting & Tohtml(rs("meeting_name"))&"</b>"
		TableMeeting = TableMeeting & "<br>&nbsp;出席：&nbsp;&nbsp;" & TransEmpSerial(dbLocal,rs("attendee"))& "," & rs("guest") 
		TableMeeting = TableMeeting & "<br>&nbsp;地点：&nbsp;&nbsp;" & Tohtml(rs("meeting_room"))&"<br>&nbsp;"
			rs.movenext
		wend
		crs.close()

		TableMeeting = TableMeeting & "</td>"
		TableMeeting = TableMeeting & "</tr>"
		pFrom_time = DateAdd("d", 1, pFrom_time)
	wend
	TableMeeting = TableMeeting & "</table>"
End Function

%>