 |
| |
ขอความช่วเหลือโค้ดเพิ่มไฟล์วีดีโอของVB.Net 2008 ครับ |
| |
 |
|
|
 |
 |
|
Web (ASP.NET)
ใช้เป็น Html ไม่ใช่หรอครับเพิ่มไฟล์วีดีโอ คือ แปะ ไฟล์วีดีโอไว้ที่หน้าเว็บใช่มั้ยครับ
ผมเคยใช้แบบนี้นะครับ
Code (VB.NET)
<object height="280px" width="395px" align= middle classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
<param name="Filename" value="Video.wmv" />
<param name="autostart" value="true" />
</object>
|
 |
 |
 |
 |
| Date :
2010-11-10 04:11:54 |
By :
13crowns |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ไม่ได้แปะอะคับคือว่าต้องบราวไปเก็บลงฐานข้อมูลอะคับ
|
| |
|
|
| |
| Date :
2010-11-10 11:50:28 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Browse File Video เก็บใน DB เลยหรอครับ ใช้เป็นเก็บเฉพาะ Path+ชื่อไฟล์ ลง DB ไม่ดีกว่าหรอครับ
|
| |
|
|
| |
| Date :
2010-11-11 07:51:54 |
By :
13crowns |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
.ใช่ครับเก็บเฉพาะนามสกุล Path+ชื่อไฟล์ ลง DB พอจะมีโค้ดบันทึกไหมครับ
|
| |
|
|
| |
| Date :
2010-11-11 10:57:35 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไหนดู Code เพิ่มรูปที่ว่าหน่อยครับ เดี๋ยว แก้ให้
|
| |
|
|
| |
| Date :
2010-11-11 12:45:54 |
By :
13crowns |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
'ภาพ--------------------------------------------------------------------------------------------
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
'-------------------------------------------------------------------------------------------------
|
| |
|
|
| |
| Date :
2010-11-11 18:29:09 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อ่าวเปลี่ยนแค่ นามสกุลตอนเช็คแล้วก็ เปลี่ยน ขนาดที่กำหนด ก็ได้แล้วนี่นา
|
| |
|
|
| |
| Date :
2010-11-12 08:10:15 |
By :
13crowns |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณที่แนะนำครับ
|
| |
|
|
| |
| Date :
2010-11-13 09:48:42 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองรึยังครับได้มั้ย ถ้าติด Error ก็มาโพสต์ไว้นะครับ เดี๋ยวช่วยๆกันดูให้
|
| |
|
|
| |
| Date :
2010-11-13 10:08:27 |
By :
13crowns |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พี่ครับผมลองเปลี่ยนชื่อไฟล์แล้วครับแต่ขนาดไฟผมไม่ได้เปลี่ยครับพี่จะบอกได้ไหมครับผมไม่รู้เกี่ยวกับขนาดครับของไฟล์อะครับ
|
| |
|
|
| |
| Date :
2010-11-15 08:59:29 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
If (FilePic.PostedFile.ContentLength > 131072) Then
ตรงนี้ไงครับ จะให้มันไม่เกินเท่าไหร่ล่ะครับ จำกัดไว้มั้ยว่าไม่ให้อัพเกินกี่ MB
131072 byte = 128 Kilobyte
อันนี้คือจำกัดไว้ไม่ให้เกิน 128 kilobyte อยู่น่ะครับ ถ้าไม่ให้เกิน 10MB
ก็ เป็น If (FilePic.PostedFile.ContentLength > 10485760 ) Then
|
| |
|
|
| |
| Date :
2010-11-15 14:54:50 |
By :
13crowns |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากครับ
|
| |
|
|
| |
| Date :
2010-11-15 17:06:39 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมแก้เหมือนที่พี่บอกแล้วครับไม่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()
End Sub
End Class
|
| |
|
|
| |
| Date :
2010-11-16 01:48:17 |
By :
jom_wirayut |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
