幸福是什麼？

幸福是什麼？一種發自內心的喜悅。

看見親愛的老婆睡著的樣子，

看見寶貝在媽媽肚子裡的樣子，

看見小米(貓)睡著的樣子，

很多生活中的小事物都可讓我感到喜悅，

這就是我的幸福。

[.Net2.0]下載存於DB內的檔案

Public Sub DownloadStream(ByVal RefPage As System.Web.UI.Page, ByVal FileData As Byte(), ByVal FileName As String)
RefPage.Response.Clear()
RefPage.Response.AddHeader("Content-Disposition", "attachment; filename=" + FileName)
RefPage.Response.ContentType = "application/octet-stream"
RefPage.Response.BinaryWrite(FileData)
RefPage.Response.End()
End Sub

[.Net2.0]上傳檔案後存於目錄下

1.在網頁內放置
<br /><input id="UpFile" runat="server" type="file"><br /><asp:Button id="btnAdd" runat="server" Text="上傳" OnClick="btnAdd_Click"></asp:Button><br />

2.按鈕事件
Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Pic_FilePath As String = Server.MapPath("Upload")
Dim file_form, file_size As String

If (UpFile.PostedFile.FileName <> "") Then
file_form = UpFile.PostedFile.FileName.Substring(UpFile.PostedFile.FileName.LastIndexOf("."))
file_size = UpFile.PostedFile.ContentLength.ToString
Dim FileName As String = "Sample_1"
UpFile.PostedFile.SaveAs(Pic_FilePath + "\" + FileName + file_form)
End If
If (UpFile.PostedFile.FileName <> "") Then
Response.Write("檔案上傳成功")
End If
End Sub

[.Net2.0]上傳檔案後存於資料庫

1.在MS_SQL內建立Table及SP
drop table test
go
create table test ( autono int IDENTITY(1,1) NOT NULL,
PersonImageType varchar(255) ,
PersonImage image)
go
drop proc sp_person_isp
go
Create proc sp_person_isp @PersonImageType varchar(255) , @PersonImage Image
As
Insert Into test(PersonImageType , PersonImage)
values(@PersonImageType , @PersonImage)
GO

2.在網頁內放置
<br /><input id="UpPhoto" type="file" runat="server"><br /><?xml:namespace prefix = asp /><asp:button id="btnAdd" runat="server" text="上傳"></asp:button><br />


3.引入參考Imports System.IOImports System.Data.SqlClient

4.在Click事件內寫入
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim intImageSize As Int64
Dim strImageType As String
Dim ImageStream As Stream
' Gets the Size of the Image
intImageSize = UpPhoto.PostedFile.ContentLength
' Gets the Image Type
strImageType = UpPhoto.PostedFile.ContentType
' Reads the Image
ImageStream = UpPhoto.PostedFile.InputStream
Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)

' Create Instance of Connection and Command Object
Dim myConnection As New SqlConnection("server=伺服器名稱;database=資料庫名稱;uid=登入帳號;pwd=密碼;")
Dim myCommand As New SqlCommand("sp_person_isp", myConnection)

' Mark the Command as a SPROC
myCommand.CommandType = CommandType.StoredProcedure

' Add Parameters to SPROC
Dim prmPersonImage As New SqlParameter("@PersonImage", SqlDbType.Image)
prmPersonImage.Value = ImageContent
myCommand.Parameters.Add(prmPersonImage)
Dim prmPersonImageType As New SqlParameter("@PersonImageType", SqlDbType.VarChar, 255)
prmPersonImageType.Value = strImageType
myCommand.Parameters.Add(prmPersonImageType)

Try
myConnection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()
Response.Write("New person successfully added!")
Catch SQLexc As SqlException
Response.Write("Insert Failed. Error Details are: " = SQLexc.ToString())
End Try
End Sub