RecorteX

<p>Ejemplo de validación de fechas con formato <b>dd/mm/aaaa</b></p>

<small>Fecha:</small>
<br>
<input type=“text” name=“fecha” size=“15” onblur=“testFecha(this)”>

<script>
function testFecha(control){ if (control.value.length==0) return;

if (!validaFecha(control.value)) { alert(“Fecha Invalida”); control.focus(); }else{ alert(“ok”); }
}

function validaFecha(Cadena){ var Fecha= new String(Cadena) var RealFecha= new Date() var Ano= new String(Fecha.substring(Fecha.lastIndexOf(”/”)+1,Fecha.length)) var Mes= new String(Fecha.substring(Fecha.indexOf(”/”)+1,Fecha.lastIndexOf(”/”))) var Dia= new String(Fecha.substring(0,Fecha.indexOf(”/”)))

// Valido el año if (isNaN(Ano) || Ano.length<4 || parseFloat(Ano)<1900){ return false; } // Valido el Mes if (isNaN(Mes) || parseFloat(Mes)<1 || parseFloat(Mes)>12){ return false; } // Valido el Dia if (isNaN(Dia) || parseInt(Dia, 10)<1 || parseInt(Dia, 10)>31){ return false; } if (Mes==4 || Mes==6 || Mes==9 || Mes==11) { if (Dia>30) { return false; } } if (Mes==2 && Dia > 28 ) { bisiesto=((Ano % 4 == 0) && ((Ano % 100 != 0) || (Ano % 400 == 0))); if (bisiesto && Dia<=29) return true; else return false; } return true; }

Creamos un bat con las siguientes lineas:
net stop “Apache Tomcat”
net stop “SQLSERVERAGENT”
net stop “MSSQLSERVER”
sleep 30
net start “MSSQLSERVER”
net start “SQLSERVERAGENT”
sleep 30
net start “Apache Tomcat”
sleep 180
iisreset

donde los nombres entre comillas corresponden a servicios windows, en este ejemplo se paran los tres primeros servicios, despues el sistema espera 30 segundos, arranca 2, espera otros 30 segundos, y asi…

descargar
 
function aMayusculas (f) {
	  for (i=0; i<f.elements.length; i++) {
	      if (f.elements[i].type!='hidden') {
	        if (f.elements[i].type=='text') 
	        	f.elements[i].value=f.elements[i].value.toUpperCase();        
	      }
	  }
	}
 

<xsl:template match=”/”> <table border=“1”> <tr> <th>Name</th> <th>Job</th> <th>Salary</th> </tr> <xsl:for-each select=“company/department/employee”> <xsl:sort select=“name” /> <tr> <td><xsl:value-of select=“name”/></td> <td><xsl:value-of select=“job”/></td> <td><xsl:value-of select=“salary”/></td> </tr> </xsl:for-each> </table>
</xsl:template>

Function fEvitarAcces()

Dim dbs As Database
Dim prp As Property
Const cPrpName As String = “AllowByPassKey”

On Error GoTo fEvitarAccess_Error

‘Abrir base de datos
Set dbs = CodeDb

dbs.Properties.Append dbs.CreateProperty(cPrpName, dbBoolean, False)

fEvitarAccess_Exit:
On Error Resume Next
dbs.Close: Set dbs = Nothing
Exit Function
fEvitarAccess_Error:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical
Resume fEvitarAccess_Exit
End Function

tipod.onchange=new Function(“javascript:prueba()”);

dupli.onclick=function() {open(enlace,null)};

public static StringBuffer replaceAllenSB(StringBuffer original, String replaced, String replacement)
{ StringBuffer theSB = new StringBuffer(original); int baseIndex = 0; int badSignIndex = 0; while ((badSignIndex = original.indexOf(replaced, badSignIndex)) != -1) { theSB.delete(badSignIndex + baseIndex, badSignIndex + baseIndex + replaced.length()); theSB.insert(badSignIndex + baseIndex, replacement); baseIndex = baseIndex + replacement.length() – replaced.length(); badSignIndex = badSignIndex + replaced.length(); } return theSB;
}

descargar
 
    Private Function getDT(ByVal qry As String, ByVal connectionString as string) As DataTable
        Dim dataSet As DataSet = New DataSet
        Dim conn As New SqlConnection(connectionString)
        Dim cmdString As String = qry
        Dim dataAdapter As New SqlDataAdapter(cmdString, conn)
        Dim ds As New DataSet()
        dataAdapter.Fill(ds, "dt")
 
        Return ds.Tables("dt")
    End Function
 

descargar
 
    Private Function XMLtoDT(ByVal xml As String) As DataTable
        Dim dataSet As DataSet = New DataSet
        Dim reader As New System.Xml.XmlTextReader(New StringReader(xml))
        dataSet.ReadXml(reader)
        If dataSet.Tables.Count = 0 Then
            Return New DataTable
        Else
            Return dataSet.Tables(0)
        End If
    End Function
 

descargar
 
    Function IsIn(ByVal val1 As String, ByVal text As String) As Boolean
        Dim ret As Boolean = False
        Dim temp() As String
        Dim separador As String = ","
        temp = Microsoft.VisualBasic.Split(text, separador)
        For Each b As String In temp
            If val1 = b Then
                ret = True
                Exit For
            End If
        Next
        Return ret
    End Function