' 發展單位：國立成功大學水利及海洋工程學系  水資源系統管理與規劃研究室
' 撰寫人：鄭子璉，博士候選人，微軟最有價值專家 (qvb3377@ms5.hinet.net)
' 僅供學術測試使用，引用請註明原出處

Public Function ResponseFile(Byval vOutput, Byval sContentType, Byval sFileName, Byval bSaveFile)

With Response
	.Expires = -1
	.Buffer = True
	.Clear
	
	If bSaveFile Then
		sContentDisposition = "attachment; " ' 強制存檔，未設定則依瀏覽器預設開啟或存檔
	End If
	
	If Len(sFileName) > 0 Then
		sContentDisposition = sContentDisposition & "filename=" & sFileName ' 檔名
	End If

	If Len(sContentDisposition) > 0 Then
		.AddHeader "Content-disposition", sContentDisposition
	End If

	.ContentType = sContentType
	
	Select Case VarType(vOutput)
	Case vbString
		.Write vOutput
	Case Else
		.BinaryWrite vOutput
	End Select

	.Flush
	.Clear	
	.End
End With

End Function