01.
<%@ Page Language=
"VB"
%>
02.
<%@ Import
Namespace
=
"System.Data"
%>
03.
<%@ Import
Namespace
=
"System.Data.OleDb"
%>
04.
<script runat=
"server"
>
05.
Sub
btnUpload_OnClick(sender
As
Object
, e
As
EventArgs)
06.
07.
Me
.pnlUpload.Visible =
False
08.
Me
.pnlSave.Visible =
True
09.
10.
If
Me
.fiUpload.HasFile =
False
Then
11.
Me
.lblText.Text =
"Please select upload file!"
12.
ELse
13.
Me
.fiUpload.SaveAs(Server.MapPath(
"Myfiles/"
&fiUpload.FileName))
14.
Me
.lblText.Text =
"<b>"
&fiUpload.FileName &
"</b> Uploaded.<br>"
15.
16.
17.
Dim
objConn
As
OleDbConnection
18.
Dim
objCmd
As
OleDbCommand
19.
Dim
strConnString,strSQL
As
String
20.
21.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
&Server.MapPath(
"database/mydatabase.mdb"
)&
";"
22.
objConn =
New
OleDbConnection(strConnString)
23.
objConn.Open()
24.
25.
strSQL =
"INSERT INTO picture (PictureName) "
& _
26.
"VALUES ('"
& fiUpload.FileName &
"')"
27.
28.
objCmd =
New
OleDbCommand()
29.
With
objCmd
30.
.Connection = objConn
31.
.CommandType = CommandType.Text
32.
.CommandText = strSQL
33.
End
With
34.
objCmd.ExecuteNonQuery()
35.
36.
objCmd =
Nothing
37.
objConn.Close()
38.
objConn =
Nothing
39.
40.
Me
.hplLink1.NavigateUrl =
"AspNetFileUploadToDatabase1.aspx"
41.
Me
.hplLink2.NavigateUrl =
"AspNetFileUploadToDatabase2.aspx"
42.
End
IF
43.
End
Sub
44.
</script>
45.
<html>
46.
<head>
47.
<title>ThaiCreate.Com ASP.NET - Upload files</title>
48.
</head>
49.
<body>
50.
<form id=
"form1"
runat=
"server"
>
51.
<asp:Panel id=
"pnlUpload"
runat=
"server"
>
52.
<asp:FileUpload id=
"fiUpload"
runat=
"server"
></asp:FileUpload>
53.
<input id=
"btnUpload"
type=
"button"
OnServerClick=
"btnUpload_OnClick"
value=
"Upload"
runat=
"server"
/>
54.
</asp:Panel>
55.
<asp:Panel id=
"pnlSave"
Visible=
"false"
runat=
"server"
>
56.
<asp:Label id=
"lblText"
runat=
"server"
></asp:Label><br />
57.
<asp:HyperLink id=
"hplLink1"
runat=
"server"
>Upload again</asp:HyperLink>
58.
,
59.
<asp:HyperLink id=
"hplLink2"
runat=
"server"
>View files</asp:HyperLink>
60.
</asp:Panel>
61.
</form>
62.
</body>
63.
</html>