hotspotinfo.inc

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

<%
'#############################################################################################
'#
'#	文件名	 : hotspotinfo.inc
'#	Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'#	创建人	 : BinZha
'#  日　期	 : 2002-07-19
'#
'#	修改历史  : ****年**月**日 ****** 修改内容:**********************************************
'#
'#	功能描述	 : 察看大事信息函数文件
'#  版  　本	 :
'#
'#############################################################################################

Function HotspotDetail(sSQL)
	dim crs, rs
	dim sSubject, sDept, sContent, sHappenDate, sName, sRecordDate
	dim sLink
	dim ActionStatus

	if not IsEmpty(iHotspotID) then
	
		set crs = New CRecordset
		set rs = crs.Open(dbLocal, sSQL)

		if rs.EOF then
			Server.Transfer("../common/error.asp")
			Response.end
		end if

		'' 获取任务信息的各种数据
		sSubject			= crs.GetValue("Subject")
		sDept				= crs.GetValue("Dept")
		sContent			= crs.GetValue("Content")
		sHappenDate			= crs.GetValue("HappenDate")
		sName				= crs.GetValue("Name")
		sRecordDate			= crs.GetValue("RecordDate")
		
		if IsEmpty(sContent) or sContent = "" then sContent = "（无内容）"

		crs.Close()
			
		'' 如果是大事管理员，则可以进行修改删除管理。
		if IsHotspotAdmin() then 
			sLink = sLink & _
				"<form method=""post"" name=""frmHotspot"" action=""hotspotinfo.asp"">" & _
				"<tr bgcolor=white height=30>" & _
				"	<td colspan=4 align=center>" & _
				"		<input type=""hidden"" name=""id"" value=""" & iHotspotID & """>" & _
				"		<input type=""hidden"" name=""FormAction"">" & _
				"		<span style=""cursor:hand;color:blue"" onclick=""btnEdit_OnClick()""><img border=0 src=""../images/edit.gif"">&nbsp;修改大事</span>" & _
				"		&nbsp;&nbsp;" & _
				"		<span style=""cursor:hand;color:blue"" onclick=""btnDelete_OnClick()""><img border=0 src=""../images/trash.gif"">&nbsp;删除大事</span>" & _
				"	</td>" & _
				"</tr></form>" 
		end if

		HotspotDetail = _
			"<table cellspacing=1 cellpadding=0 width=600 border=0 align=center bgcolor=silver>" & _
			"<tr height=20 style=""color:white;font-weight:600"">" & _
			"		<td background=""../images/bg/bnbg.gif"" align=center colspan=4>大 事 详 细 信 息</td>" & _
			"</tr>" & _
			"<tr bgcolor=white height=30>" & _
			"		<td width=75 align=center>部　　门:</td><td class=tdvalue width=525>&nbsp;" & sDept & "</td>" & _
			"<tr bgcolor=#ffffcc height=30>" & _
			"		<td width=75 align=center>标　　题:</td><td class=tdvalue width=525>&nbsp;" & sSubject & "</td>" & _
			"</tr>" & _
			"<tr bgcolor=white height=30>" & _
			"		<td width=75 align=center>发生日期:</td><td class=tdvalue width=525>&nbsp;" & sHappenDate & "</td>" & _
			"</tr>" & _
			"<tr bgcolor=#ffffcc height=60>" & _
			"		<td width=75 align=center>内　　容:</td><td class=tdvalue width=525>&nbsp;" & sContent & "<BR><BR>&nbsp;------------------------------------------------------------<br>&nbsp;&nbsp;由" & sName & "于" & year(sRecordDate) & "年" & month(sRecordDate) & "月" & day(sRecordDate) & "日登记</td>" & _
			"</tr>" & _
					sLink  & _
			"</td></tr></table>" & _
			"<br>"
	end if
	
End Function

Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=20>" & _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""hotspotlist.asp"">返回大事列表</a>&nbsp;&nbsp;&nbsp;" & _
		"</tr>" & _
		"</table>"
End Function

'/////////////============================================================================/////////////
Function DeleteHotspot()
	dim sSQL2
	
	sSQL2 = "delete from T_Hotspot where ID = " & ToSQL(iHotspotID, "Number")
	call ExecuteSQL(dbLocal, sSQL2)
	
	Response.Redirect "hotspotlist.asp"
	Response.end
End Function

%>