home.inc

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

<%
Function NewsInHomePage()
	dim sSQL, sSubject, iSerial, sTemp
	dim crs, rs
	dim iCounter	: iCounter = 0
	dim iMax		: iMax = 10

	sSQL = "select * from T_News order by record_time desc"
	sTemp = ""
	set crs = New CRecordset
	set rs = crs.Open(dbLocal, sSQL)
	while Not rs.EOF and iCounter < iMax 
		iCounter = iCounter + 1
		iSerial = crs.GetValue("serial")
		sSubject = crs.GetValue("subject") 
		sTemp = sTemp & "<br>" & iCounter & ".<a target=_blank title=""" & sSubject & """ onmouseover=""window.status='" & sSubject & "'"" href=""../news/newsdetail.asp?serial=" & iSerial & """>" & Bref(sSubject,24) & "</a>"
		rs.MoveNext
	wEnd
	NewsInHomePage = sTemp
End Function


Function NewsInMainPage
	dim iRow
	dim strPurchase,strStock,strWorksheet,sNewsTable
	
	iRow=0
	iRow=DLookUp(conn,"select count(*) from t_goods where remind_status=2")
	if iRow=0 then
		strPurchase="没有物品需要采购！"
	else
		strPurchase="有<font color=red>"&iRow&"</font>种物品数量小于最小库存，需要马上采购！<a title=""点击查看详细情况"" href=""../purchase/purchase_remind.asp""><img border=0 src=""../images/arrowr.gif""></a>"
	end if
	
	iRow=0
	iRow=DLookUp(conn,"select count(*) from t_purchase_master where sheet_status='完成'")
	if iRow=0 then
		strStock="没有采购单需要入库！"
	else
		strStock="有<font color=red>"&iRow&"</font>张采购单需要入库！<a title=""点击查看详细情况"" href=""../stock/purchase_input.asp""><img border=0 src=""../images/arrowr.gif""></a>"
	end if
	
	
	
	iRow=0
	iRow=DLookUp(conn,"select count(*) from t_worksheet where (getdate()>(starttime+limit_days-remind_method)) and remind_method>0 and finished=0")
	if iRow=0 then
		strWorksheet="没有工作单需要执行提醒！"
	else
		strWorksheet="有<font color=red>"&iRow&"</font>张工作单处于执行提醒状态！<a title=""点击查看详细情况"" href=""../worksheet/remind_worksheet.asp""><img border=0 src=""../images/arrowr.gif""></a>"
	end if
	
	sNewsTable = "<table width=450 border=0 cellspacing=0 cellpadding=1>"&_
			 "<tr height=18><td>&nbsp;</td></tr>"&_
			 "<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8><font color=blue>库存采购提醒：</font></td></tr>"&_
			"<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&strPurchase&"</td></tr>"&_
			"<tr height=18><td>&nbsp;</td></tr>"&_
			 "<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8><font color=blue>采购单入库提醒：</font></td></tr>"&_
			 "<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&strStock&"</td></tr>"&_
			"<tr height=18><td>&nbsp;</td></tr>"&_
			 "<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8><font color=blue>工作单执行提醒：</font></td></tr>"&_
			 "<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&strWorksheet&"</td></tr>"&_			
			 "<tr height=18><td>&nbsp;</td></tr>"&_
			 "</table>"

	NewsInMainPage = _
		"<table width=350 border=0 cellspacing=0 cellpadding=2 align=center>" & _
		"<tr height=20><td>&nbsp;</td></tr>"&_
		"<tr>" & _
		"	<td><img src=""../images/bg/ar-b.gif""	width=10 height=10>&nbsp;<b>待办事宜</b>" & _
		"		<table width=325 border=0 cellspacing=0 cellpadding=1 background=""../images/bg/bnbg.gif"" height=5>" & _
		"		<tr><td><img src=""../images/bg/Sp.gif"" width=80 height=5></td></tr>" & _
		"		</table>" & _
				sNewsTable & _
		"		<img src=""../images/bg/ar-w.gif"" width=8 height=3><img src=""../images/bg/line.gif"" width=300 height=3>" & _
		"	</td>" & _
		"</tr>" & _
		"<tr>" & _
		"	<td align=right></a><img src=""../images/bg/Sp.gif"" width=25 height=9></td>" & _
		"</tr>" & _
		"</table>"
End Function
		


%>