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>
