Pb avec telechargement d'un fichier en asp.net 1.1

Sardonnen
Messages postés
89
Date d'inscription
lundi 29 avril 2002
Statut
Membre
Dernière intervention
6 décembre 2006
- 12 oct. 2006 à 10:37
Sardonnen
Messages postés
89
Date d'inscription
lundi 29 avril 2002
Statut
Membre
Dernière intervention
6 décembre 2006
- 17 oct. 2006 à 16:55
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" & _
   "
content type: " & contentType & _
   "
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 = "Le système est dans l'impossibilité de télécharger votre document."
   catch dbe as system.data.oledb.oledbexception
    message.text = "Erreur :
" + dbe.tostring().replace(chr(13),"
")
  End Try
 End If
End Sub


merci
A+

1 réponse

Sardonnen
Messages postés
89
Date d'inscription
lundi 29 avril 2002
Statut
Membre
Dernière intervention
6 décembre 2006

17 oct. 2006 à 16:55
personne n'a de piste?????
0