<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script runat="server">
Sub btnUpload_OnClick(sender As Object, e As EventArgs)
Me.pnlUpload.Visible = False
Me.pnlSave.Visible = True
If Me.fiUpload.HasFile = False Then
Me.lblText.Text = "Please select upload file!"
ELse
Me.fiUpload.SaveAs(Server.MapPath("Myfiles/"&fiUpload.FileName))
Me.lblText.Text = "<b>" &fiUpload.FileName & "</b> Uploaded.<br>"
'*** Save to Database ***'
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand
Dim strConnString,strSQL As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()
strSQL = "INSERT INTO picture (PictureName) " & _
"VALUES ('" & fiUpload.FileName & "')"
objCmd = New OleDbCommand()
With objCmd
.Connection = objConn
.CommandType = CommandType.Text
.CommandText = strSQL
End With
objCmd.ExecuteNonQuery()
objCmd = Nothing
objConn.Close()
objConn = Nothing
Me.hplLink1.NavigateUrl = "AspNetFileUploadToDatabase1.aspx"
Me.hplLink2.NavigateUrl = "AspNetFileUploadToDatabase2.aspx"
End IF
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Upload files</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Panel id="pnlUpload" runat="server">
<asp:FileUpload id="fiUpload" runat="server"></asp:FileUpload>
<input id="btnUpload" type="button" OnServerClick="btnUpload_OnClick" value="Upload" runat="server" />
</asp:Panel>
<asp:Panel id="pnlSave" Visible="false" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label><br />
<asp:HyperLink id="hplLink1" runat="server">Upload again</asp:HyperLink>
,
<asp:HyperLink id="hplLink2" runat="server">View files</asp:HyperLink>
</asp:Panel>
</form>
</body>
</html>
AspNetFileUploadToDatabase2.aspx
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script runat="server">
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()
BindData()
End Sub
Sub BindData()
Dim strSQL As String
strSQL = "SELECT * FROM picture"
Dim dtReader As OleDbDataReader
objCmd = New OleDbCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()
'*** BindData to Repeater ***'
myRepeater.DataSource = dtReader
myRepeater.DataBind()
dtReader.Close()
dtReader = Nothing
End Sub
Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Upload files</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Repeater id="myRepeater" runat="server">
<HeaderTemplate>
<table border="1">
<tr>
<th>PictureID</th>
<th>PictureName</th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td align="center"><%#Container.DataItem("PictureID") %></td>
<td><a href="Myfiles/<%#Container.DataItem("PictureName") %>" target="blank">
<%#Container.DataItem("PictureName") %></a>
</td>
</tr>
</ItemTemplate>
</asp:Repeater>
</form>
</body>
</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 01
