<%@ 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>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง