Function ReplaceString(ByVal strSearch As String, ByVal strSearchFor As String, ByVal strReplaceWith As String) As String Try '--> Busca la variable del strSearch para strSearchFor y la substituye por el strReplaceWith. Dim lngFoundLoc As Long ' Location of match. Dim lngLenRemove As Long ' Length of string being replaced. '--> Fije la longitud del texto original para saltar. lngLenRemove = Len(strSearchFor) '--> Fije la localización match. ... Leer más »
'--> Esta funcion permite desencriptar datos que fueron encriptados con la funcion encripta. Public Function Decrypta(ByVal cTexto As String, ByVal nLlave As Integer) As String Dim nLargo As Long Dim n As Long Dim cCaracter As String Dim NewCadena As String Dim NewNumero As Long
Public datname, bakname, tstream As Object, tempFileName As Object, strES As Object Public optio As Integer Public strOpt As Object, strFileEnd As Object Public i As Long Public j, k, l As Integer Public dig_number As Long Public row_number As Long Public strTempNumber, strRndNumber As Object, strElse$, ESPassword$ Public min, max As Integer Public rndNumber, rndElse, diffNumber, sumNumber As Integer Public Lines As Long Public ES As Boolean
Public Function GeneratePassword( _ ByVal intLength As Integer, _ Optional ByVal bolWithNumber As Boolean = False, Optional ByVal bolWithUpperCase As Boolean = False, Optional ByVal bolWithAll As Boo
... Leer más »
Public Sub mySetFocus(ByVal sPage As Page, ByVal ctrl As String) Dim f As StringBuilder = New StringBuilder() f.Append("<script language='JavaScript'>") f.Append("function setFocus() {") f.Append("document.getElementById('") f.Append(ctrl) f.Append("').focus();}") f.Append(" window.onload=setFocus;") f.Append("</") f.Append("script>") sPage.ClientScript.RegisterClientScriptBlock(sPage.GetType(), "<Focus>", f.ToString()) End Sub
Public Function Validar_Email(ByVal Email As String) As Boolean Dim i As Integer, iLen As Integer, caracter As String Dim pos As Integer, bp As Boolean, iPos As Integer, iPos2 As Integer
Function Dias_Naturales(ByVal fechaIni As Date, ByVal sDias As Integer) As Date fechaIni = Format("dd/MM/yyyy", fechaIni) 'Dias_Naturales = DateDiff(("d"), fechaIni, fechaFin) Dias_Naturales = DateAdd(DateInterval.Day, sDias, fechaIni) End Function
Function El_Dia_es_habil(ByVal fechaIni As Date, ByVal fechaFin As Date) As Integer Dim i As Integer Dim sDiasNoHabil As Integer Dim sDias As Integer Dim DayOfWeek As FirstDayOfWeek
'--> Abrir RecordSet con Ado Public Function AbreRS(ByVal sConsulta As String, ByVal cnSistema As ADODB.Connection, ByVal sTipoMotor As Integer) As ADODB.Recordset '--> Establecer base de datos que esta utilizando On Error GoTo ErrorAbrers
AbreRS = New ADODB.Recordset '--> SQL Server If sTipoMotor = 0 Then With AbreRS .let_Source(sConsulta) .ActiveConnection = cnSistema .CacheSize = 50 &
... Leer más »
'--> Abrir base de datos con Ado Public Function AbreBD(ByVal Source As String, ByVal BaseDatos As String, ByVal User As String, ByVal Contraseña As String, ByVal sTipoMotor As Integer) As ADODB.Connection '--> Abrir una base de datos On Error GoTo ErroresAbrirBD
AbreBD = New ADODB.Connection If sTipoMotor = 0 Then '--> Abrir base de datos en SQL Server With AbreBD .ConnectionString = "Provider=SQLOLEDB;Password=" & Contraseña & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & BaseDatos & ";Data Source=" & Source & "" &
... Leer más »
'--------------------------------------------------------------------- ' EncryptString ' Optimizing by Harvey T. ' Corregido por Miguel A. Vallejo Duran '--------------------------------------------------------------------- Public Const ENCRYPT As Integer = 1, DECRYPT As Integer = 2
Function EncryptString(ByVal Text As String, ByVal Action As Single, ByVal UserPassword As String) As String Dim UserKey As String Dim Temp As Integer 'Dim Times As Integer Dim i As Integer Dim j As Integer Dim n As Integer Dim rtn As Stri
... Leer más »
Function EncriptaXOR(ByVal sTexto As String) As String Dim i As Integer Dim n As Integer Dim tmpValor As String Dim y As Integer 'Expresión1 Expresión2 Resultado es 'True True False 'True False True 'False &
... Leer más »
' Función que maximiza el tamaño de la ventana del navegador hasta la resolución ' que tenga el cliente establecida. ' ' --> Como entrada recibe la página a la que aplicar el script.
Public Sub MaximizarVentana_TamañoPantalla(ByVal pagina As Page)
' Función para cerrar la ventana del navegador transcurrido un determinado tiempo. ' ' -->> Como entrada recibe la página a la que aplicar la función y el número de segundos ' tras los cuales se cerrará la ventana del navegador. ' Public Sub CerrarPantalla_TimeOut(ByVal pag As Page, ByVal Segundos As Integer)
Dim strScript As String Segundos = Segundos * 1000
Private Sub EnviarMail(ByVal Parametro As String) '---------------------------------- 'Datos del correo de GMAIL 'Usuario: usuarioGMAIL 'Password: GdyivouiIkx 'codigo de verificación: 34757 '----------------------------------
Dim sCadena As Object Dim i As Integer
sCadena = Split(txtListaCorreos.Text.Trim, ";", -1, 1) For i = 0 To UBoun
... Leer más »
Enviar correo desde una página ASPX usando ASP.NET v2.0
En este artículo vamos a ver cómo enviar correos desde páginas de
ASP.NET (.aspx), usando las clases del espacio de nombres System.Net.Mail,
que so
... Leer más »
Un ejemplo practico
con el cual haras uso de tablas y algoritmos recursivos para recuperar tu
información. Esto es aplicable a foros aunque tambien puedes usarlo para
información que requiera vinculación padre-hijo en tablas de bd, además de la
creacion y uso de controles en tiempo de ejecución.
La idea general
parte de una tabla recursiva de la siguiente forma:
Un aspecto
importante en la construcción de aplicaciones Web es la navegación entra
páginas y el uso de link, que en conjunto unen las páginas de nuestra
aplicación haciendo de esta un todo. De lo contrario tendríamos páginas
aisladas que no se podrí
... Leer más »
Desde hace algun tiempo he querido aportar más a la comunidad de
desarrollo, ahora que estoy trabajando en el tema de criptografía me doy cuenta
que no hay mucho material sobre este tema en panoramabox. Aqui
consigno algunas de las cosas que he aprendido sobre criptografía y espero les
sea
... Leer más »
Sres Desarrolladores, les
envio este aporte que permitirá conocer las opciones principales del control
ComboBox, en este articulo no utilizo el enlace del control a base de datos,
pero les prometo que dentro de poco preparo otro con enlaces a Base de D
... Leer más »
Para la mayoría de las personas
resulta confuso que, al hacer click en un link o botón, la página responda
lanzando una nueva ventana del navegador. Añade otra dimensión a la complejidad
de la navegación. Sin embargo, muchas veces nuestro cliente ... Leer más »
En este articulo veremos la
posibilidad de pasar datos entre paginas utilizando JavaScript. La forma de
hacerlo es pasando estos datos como parametros en la URL ¿Que es Esto? Facil,
tenemos la direccion de la pagina y a esta le añadimos unos parametros
adicionales que contendran los valores que queremos pasar y quedaria algo
asi...
... Leer más »
Con este nombre se ha masificado la
funcionalidad que se logra con Java Script de abrir una nueva ventana,
genralmente sin barra de estado, de direccion, sin botones estandar, etc.
Hace pocos días, Haaron González publicó en este sitio un
artículo titulado Control personalizado ASP.NET DataGridDesplazable en el
que, de una manera muy elegante (muy al estilo .NET), propone la creación de un
control personalizado, un DataGrid que no muestra en pantalla todos sus
registros sino que presenta una barra de scroll vertical para poder desplazarse
a lo largo
... Leer más »
Existen muchos ejemplos de como
subir archivos a el servidor por medio de paginas Asp . Net pero ne he
encontrado ("en lo personal") ninguno que me diga por que si se
intenta subir un archivo de mas
... Leer más »
