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 sSQL, sSubject, iSerial, sNewsTable
	dim crs, rs
	dim iCounter	: iCounter = 0
	dim iMax		: iMax = 10
	dim i

	sSQL = "select * from T_News order by record_time desc"
	sNewsTable = "<table width=325 border=0 cellspacing=0 cellpadding=1>"
	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") 
		sNewsTable = sNewsTable & "<tr height=18><td><img src=""../images/bg/ar-g.gif"" width=8 height=8> <a target=_blank href=""../news/newsdetail.asp?serial=" & iSerial & """ title=""" & sSubject & """>" & Bref(sSubject,26) & "</a></td></tr>"
		rs.MoveNext
	wEnd
	for i = iCounter + 1 to iMax
		sNewsTable = sNewsTable & "<tr height=18><td>&nbsp;</td></tr>"
	next
	sNewsTable = sNewsTable & "</table>"

	NewsInMainPage = _
		"<table width=350 border=0 cellspacing=0 cellpadding=2 align=center>" & _
		"<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 href=""../news/news.asp"">&gt;&gt;更多</a><img src=""../images/bg/Sp.gif"" width=25 height=9></td>" & _
		"</tr>" & _
		"</table>"
End Function
		


%>