<%
'******************
'取得剛剛添加公告的編號
'******************	
Function GetBulletinId()

	set rsBulletin=server.CreateObject("ADODB.recordset")
	strSQL="select Id from Bulletin order by Id Desc"
	rsBulletin.Open strSQL,conn,1,1
	
	If Not rsBulletin.eof Then
		GetBulletinId=rsBulletin("Id")
	ELse
		GetBulletinId=0
	End If
	rsBulletin.close
	
End Function

'******************
'更新上傳文件路徑列表
'******************	
Sub UpdateUpload(AreaType,ItemId)

	UploadFileCount=Session("UploadFileCount")
	UploadFileDir=Session("UploadFileDir")

	
	If UploadFileCount>0 Then
		
	  FileDir=split(UploadFileDir,"*") '獲得上傳文件路徑

	  for i=1 to ubound(FileDir)
		InputFileDir=FileDir(i)
		strSQL="insert into Upload (UpPath,Type,ItemId) values('"&InputFileDir&"',"&AreaType&","&ItemId&")"
		conn.execute strsql   
	  Next   
		
	End If
	
End Sub

'******************
'將公告欄條目瀏覽權限保存進權限列表
'******************	
Sub UpdateReadRight(AreaType,ItemCount,ItemId)

	If ItemCount>0 Then

	  for i=1 to ItemCount
		ZZID=Request("ZZ"&i&"")
		ZWID=Request("ZW"&i&"")
		strSQL="insert into ReadRight (ZZID,ZWID,Type,ItemId) values("&ZZID&","&ZWID&","&AreaType&","&ItemId&")"
		conn.execute strsql   
	  Next   
		
	End If
	
End Sub

'******************
'刪除公告時判斷此公告是否有附件
'******************	
Function GetDeleteUpload(ItemId)

	set rsBulletin=server.CreateObject("ADODB.recordset")
	strSQL="select FuJian from Bulletin where Id="&ItemId&""
	rsBulletin.Open strSQL,conn,1,1 
	
	GetDeleteUpload=rsBulletin("FuJian")
	rsBulletin.close

End Function

'******************
'刪除公告時判斷此公告是否設置瀏覽權限
'******************	
Function GetDeleteReadRight(ItemId)

	set rsBulletin=server.CreateObject("ADODB.recordset")
	strSQL="select ReadRight from Bulletin where Id="&ItemId&""
	rsBulletin.Open strSQL,conn,1,1 
	
	GetDeleteReadRight=rsBulletin("ReadRight")	
	rsBulletin.close
	
End Function

%>