'ภาพ--------------------------------------------------------------------------------------------
Dim CurrentFileName, NewFileName As String
Dim ExtFile As String '//นามสกุล
Dim CurrentPath As String = Server.MapPath("~/Pic/Pages/")
If Not (FilePic.HasFile) Then
Else
CurrentFileName = FilePic.FileName
ExtFile = (Path.GetExtension(CurrentFileName)).ToLower()
NewFileName = "P" + txtId.Text + ExtFile
'//ชนิดข้อมูล
If ((ExtFile <> ".jpg") And (ExtFile <> ".gif")) Then
'//ชนิดชองไฟล์ไม่ใช่ .Jpg และ .Gif
MsgBox("You choose the file Extension in .Jpg .Gif !!!")
Exit Sub
End If '//end of if ((ExtFile <> ".jpg") && (ExtFile <> ".gif"))
'//ขนาดไฟล์
If (FilePic.PostedFile.ContentLength > 131072) Then
'//ขนาดไฟล์มีขนาดมากกว่า 128 Kb(128*1024 =131072 Byte)
MsgBox("The size of big too file,the size of the file must 128 KB not exceed!!! ")
Exit Sub
End If '//end of If (FilePic.PostedFile.ContentLength > 131072) Then
'//Upload
If (FilePic.HasFile) Then
CurrentPath += NewFileName '//ไฟล์ใหม่ที่ต้องการให้มีในเซิร์ฟเวอร์
FilePic.SaveAs(CurrentPath) '//การอัฟโหลดไฟล์
'MsgBox("Upload the file already !!!")
Else
MsgBox("Can not load the file !")
Exit Sub
End If '//end of else if (FileUpload1.HasFile)
End If
'-------------------------------------------------------------------------------------------------
ผมแก้เหมือนที่พี่บอกแล้วครับไม่eror ครับแต่ไม่ลงฐานข้อมูลครับและยังลิ่งไปหน้าอินเตอร์เปล่าๆครับ
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Partial Public Class Nowledge
Inherits System.Web.UI.Page
Dim conn As String = "server=(local);database=dbMeatProduct;uid=poorivat;password=poorivat"
Dim myconn As New SqlConnection(Conn)
Dim sql As String = "select * from Nowledge"
Dim myda As New SqlDataAdapter(Sql, myconn)
Dim Cmd As New SqlCommand
Dim Da As New SqlDataAdapter
Dim ds As New DataSet
Dim drow As DataRow
Dim Found As Boolean
Dim DView As DataView
Private Sub Start()
Dim SqlAcc As String = "Select top 1 id From Nowledge order by id desc"
myconn.Open()
Dim MyCommand As New SqlCommand(SqlAcc, myconn)
Dim MyDataReader As SqlDataReader = MyCommand.ExecuteReader()
Dim Found As Boolean = False
Dim start As Long
While MyDataReader.Read() 'อ่านค่าได้
Found = True
start = Right((MyDataReader.Item("id")), 4)
End While
myconn.Close()
If Found = True Then
start += 1
Else
start = 1
End If
Dim name As String = "N"
txtid.Text = name + start.ToString("0000")
myconn.Close()
txtid.Visible = True
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Start()
End If
End Sub
Protected Sub BtnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnAdd.Click
Dim CurrentFileName, NewFileName As String
Dim ExtFile As String '//นามสกุล
Dim CurrentPath As String = Server.MapPath("~/pic/Product/")
If Not (FilePic.HasFile) Then
Else
CurrentFileName = FilePic.FileName
ExtFile = (Path.GetExtension(CurrentFileName)).ToLower()
NewFileName = "N" + txtid.Text + ExtFile
'//ชนิดข้อมูล
If ((ExtFile <> ".flv") And (ExtFile <> ".wmv")) Then
MsgBox("You choose the file Extension in .flv .wmv !!!")
Exit Sub
End If '//end of if ((ExtFile <> ".jpg") && (ExtFile <> ".gif"))
'//ขนาดไฟล์
If (FilePic.PostedFile.ContentLength > 10485760) Then
MsgBox("The size of big too file,the size of the file must 10 MB not exceed!!! ")
Exit Sub
End If '//end of If (FilePic.PostedFile.ContentLength > 131072) Then
'//Upload
If (FilePic.HasFile) Then
CurrentPath += NewFileName '//ไฟล์ใหม่ที่ต้องการให้มีในเซิร์ฟเวอร์
FilePic.SaveAs(CurrentPath) '//การอัฟโหลดไฟล์
'MsgBox("Upload the file already !!!")
Else
MsgBox("Can not load the file !")
Exit Sub
End If '//end of else if (FileUpload1.HasFile)
End If
sql = "Insert Into Nowledge (id,video,flag) Values (" '//เตรียม SQL
sql = sql & "'" & Request.Form("txtid") & "'" & ","
sql = sql & "'" & ExtFile & "'," '//เตรียม SQL
sql = sql & "'-')"
Cmd = New SqlCommand(sql, myconn) '//ประมวลผลคำสั่งใน SQL
myconn.Open() '//เปิดการเชื่อมต่อ
Cmd.ExecuteNonQuery() '//นำข้อมูลที่ประมวลผลแล้วไปลงตารางข้อมูลในฐานข้อมูล
myconn.Close()
Load balance : Server 00
