<%
'******************
'取得剛剛添加公告的編號
'******************	
Function GetBulletinId()
	set rsBulletin=server.CreateObject("ADODB.recordset")
	    strSQL="select Id from gongwen 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 gongUpload (UpPath,Type,ItemId) values('"&InputFileDir&"',"&AreaType&","&ItemId&")"
		conn.execute strsql   
	  Next   		
	End If
End Sub
%>