bonjour
j'ai un soucis avec le téléchargement des fichiers clients vers le serveur car le code html de la page est ajouté à chaque fois à la fin du fichier téléchargé, surprenant?????
Voici le code que j'utilise, si quelqu'un peut me dire ou j'ai un soucis car là je ne vois pas!!!
Dim savePath As String = "d:\www\upload\"
Sub Upload_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs)
message.Text="Fichier en cours de téléchargement."
If Not (ul_file.PostedFile Is Nothing) Then
Try
Dim postedFile = ul_file.PostedFile
Dim filename As String = System.IO.Path.GetFileName(ul_file.postedFile.FileName)
' Dim filename As String = Path.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
' connection a la base de donnees oracle '
dim cn_string as string
dim dbconn,sql,dbcomm,dbread
cn_string=ConfigurationSettings.AppSettings("cn")
dbconn=New OleDbConnection(cn_string)
dbconn.Open()
sql="insert into user.file_upload ("
sql=sql + " ident_file,filename,filesize,content_type,ident_acteur,ident_file_type,date_debut,date_fin)"
sql=sql + " values ("
sql=sql + " user.seq_ident_file.nextval,'" + filename + "','" + contentLength.ToString() + "'"
sql=sql + " ,'" + contentType + "'," + CType(Request.Cookies("IdActeur").Value, String)
sql=sql + ",0,'" + DateTime.Now.ToString("yyyy/MM/dd") + "','9999/12/31')"
dbcomm = New OleDbCommand(sql, dbconn)
' dbcomm.Connection.Open()
dbcomm.ExecuteNonQuery()
'recupere l'ident_file du fichier telecharge'
sql="select to_char(user.seq_ident_file.currval) from dual"
dbcomm=New OleDbCommand(sql,dbconn)
dbread=dbcomm.ExecuteReader()
dim r_ident_file as string
dbread.Read()
r_ident_file=dbread.getstring(0)
' dbcomm.Connection.Close()
dbconn.close()
postedFile.SaveAs(savePath & r_ident_file & "_" & filename)
message.Text = postedFile.Filename & " uploaded" & _
"<br>content type: " & contentType & _
"<br>content length: " & contentLength.ToString()
Dim Script As String
Script = "<script language=""javascript"" type=""text/javascript"">" & vbNewLine
'verifier request.querystring
Script &= " window.opener.document.getElementById(""ident_" & request.querystring("id") & """).value = """ & r_ident_file & """ ;" & vbNewLine
Script &= " window.opener.document.getElementById(""" & request.querystring("id") & """).value = """ & filename & """ ;" & vbNewLine
Script &= " window.close();</" & "script>"
Me.RegisterStartupScript("ulfile", Script)
' Catch exc As Exception
' message.Text = "<font color=""#FF0000"">Le système est dans l'impossibilité de télécharger votre document.</font>"
catch dbe as system.data.oledb.oledbexception
message.text = "Erreur :<br> " + dbe.tostring().replace(chr(13),"<br>")
End Try
End If
End Sub
merci
A+