Hola a tod@s, aqui os dejo una funcion que te permite validar un usuario contra el dominio, el valor de retorno es un true o un false
Leer másValidar usuario contra el dominio (active directory)
Más que contenido para programadores
Hola a tod@s, aqui os dejo una funcion que te permite validar un usuario contra el dominio, el valor de retorno es un true o un false
Leer másValidar usuario contra el dominio (active directory)
FileUpload ASPx con Ftp
Para subir ficheros a un ftp puedes usar fileupload.
1 2 3 4 |
<asp:FileUpload ID="FileUpload1" runat="server" AllowMultiple="true" /> <asp:Button Text="subir al Ftp" runat="server" OnClick="FTPUpload" /> <hr /> <asp:Label ID="label1" runat="server" /> |
Si te has fijado bien en este ejemplo marcamos que esta permitido subir multiples ficheros a la web.
si no deseas subir multiples ficheros establece AllowMultiple=”false”
Ahora vamos con la parte del botón muy facilita. lo dejo comentado para que puedas seguirlo
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
Protected Sub FTPUpload(sender As Object, e As EventArgs) 'Direccion FTP. Dim ftp As String = "ftp://tuftp.com/" 'Directorio donde vas a subir los ficheros. Dim ftpFolder As String = "Subidas/" For Each file As HttpPostedFile In FileUpload1.PostedFiles Dim fileBytes As Byte() = Nothing 'Leemos los ficheros y creamos el array de bytes que seran escritos. Dim fileName As String = Path.GetFileName(file.FileName) Using fileStream As New StreamReader(file.InputStream) fileBytes = Encoding.UTF8.GetBytes(fileStream.ReadToEnd()) fileStream.Close() End Using Try 'LLamamos as webrequest de nuestro ftp y le indicamos que es subida de ficheros. Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ftp & ftpFolder & fileName), FtpWebRequest) request.Method = WebRequestMethods.Ftp.UploadFile 'Asignamos las credenciales y el modo passivo o no request.Credentials = New NetworkCredential("username", "password") request.ContentLength = fileBytes.Length request.UsePassive = True request.UseBinary = True request.ServicePoint.ConnectionLimit = fileBytes.Length request.EnableSsl = False 'Escribimos los datos Using requestStream As Stream = request.GetRequestStream() requestStream.Write(fileBytes, 0, fileBytes.Length) requestStream.Close() End Using Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) ' y al label le vamos pasando los ficheros almacenados lblMessage.Text &= fileName & " subido.<br />" response.Close() Catch ex As WebException Throw New Exception(TryCast(ex.Response, FtpWebResponse).StatusDescription) End Try Next End Sub |
Ya ves que facil.
seguramente te haga falta incorporar los imports siguientes
1 2 3 |
Imports System.IO Imports System.Net Imports System.Text |
Espero que te sirva. un Saludo
Generar SHA512
Hola aqui te dejo la funcion para generar el codificado en SHA512 en vb.net
1 2 3 4 5 6 7 8 9 10 11 12 |
Function generarSHA512(ByVal sCadena As String) As String ' Objeto de codificación Dim ueCodigo As New UnicodeEncoding() ' Objeto para instanciar las codificación Dim SHA As New SHA512Managed</code> ' Calcula el valor hash de la cadena recibida Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena)) ' Convierte el valor anterior en cadena y lo devuelve Return Convert.ToBase64String(bHash) End Function |
Espero que te sirva un Saludo
GENERAR MD5
Hola aquí os dejo la función para generar un md5 vb.net
Espero que os sirva , Un Saludo
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Imports System.Text Imports System.Security.Cryptography Function generarMD5(ByVal sCadena As String) As String Dim ueCodigo As New UnicodeEncoding() Dim Md5 As New MD5CryptoServiceProvider() Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena)) Return Convert.ToBase64String(bHash) End Function |
Hola a todos, vamos a ver un ejemplo de DateDiff, para ello lo que vamos a realizar es una comparación de un calendario a la fecha actual. Para sacar la diferencia entre 2 fechas.
Buenas a todos, en este post vamos a ver como Crear Thumbnail desde Imagen,
Buenas a todos, en este ejemplo vamos a ver como ocultar y mostrar un panel con javascript.
Leer másOcultar / mostrar Panel con Javascript asp.net Vb.net
Hola a todos qué tal aquí os dejo en este post cómo exportar DataGridView a Excel. Ya veréis qué es muy fácil y muy sencillo no tiene ninguna complicación ,así que os dejo todo el código a continuación.
No os olvidéis de añadir la referencia de interop. Excel para que esto funcione.
Si no lo encontráis dentro de las referencias de visual studio.NET , en Google seguramente encontrareis donde la podéis encontrar
Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet
exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()
Dim NCol As Integer = ElGrid.ColumnCount
Dim NRow As Integer = ElGrid.RowCount
For i As Integer = 1 To NCol
exHoja.Cells.Item(1, i) = ElGrid.Columns(i – 1).Name.ToString
‘exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next
For Fila As Integer = 0 To NRow – 1
For Col As Integer = 0 To NCol – 1
exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
Next
Next
exHoja.Rows.Item(1).Font.Bold = 1
exHoja.Rows.Item(1).HorizontalAlignment = 3
exHoja.Columns.AutoFit()
exApp.Application.Visible = True
exHoja = Nothing
exLibro = Nothing
exApp = Nothing
Espero que os sirva un saludo a todos
Hola a todos, algunas veces hachemos en falta algún automatismo o propiedad en los controles si este es tu caso , aquí puedes ver como realizarlo en unos pasos muy simples.