RecorteX

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
 

Este ejemplo regresa ErrorLevel=1

descargar
 
         dim ErrorLevel as integer=1
         Environment.Exit(ErrorLevel)