Subir imagen a carpeta y grabar nombre en bd

[pepelucho]

Hola, como puedo subir una imagen y grabar el nombre en una base de datos, ademas de tener un formulario donde puedo ponerle negrita italica subrayado asi como cuando se agrega un tema en este foro??

Gracias de antemano.

[neivan]

Para subir una imagen del ordenador del cliente a una carpetadel servidor???????

Puedes hacer:::

con un <input id="file1" type="file" runat="server" />
Para cogerla y el code:

Function CheckFile() As Boolean
If file1.PostedFile.ContentLength > 0 Then
If Not (file1.PostedFile.ContentLength / 1000) > 1024 Then
Dim FileExt As String
FileExt = System.IO.Path.GetExtension(file1.PostedFile.FileN ame).ToLower
If FileExt = ".doc" Or FileExt = ".txt" Or FileExt = ".pdf" Then
lblerror.Text = "El fichero a sido enviado!!!"
Return True
Else
lblerror.Text = "La extensión del fixhero no es corecta."
Return False
End If
Else
Dim SizeMBs As String
SizeMBs = CStr(file1.PostedFile.ContentLength / (1024 * 1024))
SizeMBs = SizeMBs.Substring(0, SizeMBs.IndexOf(".") + 3)
lblerror.Text = "El fichero es demasiado grande ! tu pudes enviar ficheros de 1 Mb como maximo, y el fichero actual tine un tamaño de " & SizeMBs & "MB"
Return False
End If
Else
lblerror.Text = "Fichero no Valido"
return False
End If
End Function


Function SaveFile() As Boolean
If CheckFile() = True Then
Dim Fname As String = System.IO.Path.GetFileName(file1.PostedFile.FileNa me)
'file1.PostedFile.SaveAs(Server.MapPath("Descarga\ " & Fname)) '// ruta relativa
file1.PostedFile.SaveAs("C:\ivan\privados\archivos \" & Fname) '// ruta absoluta
Return True
Else
Return False
End If
End Function

Arriba en la funcion checkfile le indicas q es de tipo jpg o gif o el que kieras,utiliza esto para subirlo a la carpeta q kieras
Comprueba que devulve Fname
Si devulve el nombre.jpg por ejmplo haces un split(Fname , ".")
que te devolvera un array con 2 posiciones ,la primera posicion sera el nombre sin la extension.... y lo metes en tu bd