Ver original
Dim usuapuntuar, usukpuntua, PuntosaOtorgar, reconocedores, kienson, i, otroReconocedor
usuapuntuar = Request.QueryString("akien")
usukpuntua = Request.QueryString("dkien")
 
SQL="Select Usuario, Reconocimiento FROM tabla WHERE Usuario = '"&usukpuntua&"'" ' Sacamos la puntuación que tiene el usuario que quiere puntar el articulo
 
cant_reconocimiento = CInt(rs1.Fields("Reconocimiento"))
 
' ============= Puntos que puede otorgar el usuario que intenta puntuar el articulo, deacuerdo con su reconociemiento hasta el momento =============
if cant_reconocimiento =< 9 Then
PuntosaOtorgar = 1
elseif cant_reconocimiento >= 10 and cant_reconocimiento =< 19 Then
PuntosaOtorgar = 2
elseif cant_reconocimiento >= 20 and cant_reconocimiento =< 29 Then
PuntosaOtorgar = 3
elseif cant_reconocimiento >= 30 and cant_reconocimiento =< 39 Then
PuntosaOtorgar = 4
elseif cant_reconocimiento >= 40 and cant_reconocimiento =< 49 Then
PuntosaOtorgar = 5
else 
PuntosaOtorgar = 6
end if
' ===============================================
 
SQL="Select Usuario, Kien_Reconoce FROM tabla WHERE Usuario = '"&usuapuntuar&"'" ' Kienes le han otorgado puntos a este usuario
 
reconocedores = rs2.Fields("Kien_Reconoce")
 
if reconocedores <> "" Then ' Si no es el primer usuario en puntuar el tema
kienson = Split(reconocedores, ",")
For i = 0 To UBound(kienson)
If kienson(i) = usukpuntua AND i =< 2 Then ' No hay 3 nuevos reconocedores entre la última vez que este usuario puntuó el articulo y ahora
Response.Write usukpuntua & escape(", desde la última vez que reconociestes el esfuerzo de ") & usuapuntuar & escape(", nadie más se lo ha reconcido. Así que tendrás que esperar hasta que otro usuario lo haga.")
Response.End ()
Exit For
End If
Next
otroReconocedor =  usukpuntua & "," & reconocedores
else
otroReconocedor =  usukpuntua
end if
 
SQL="UPDATE tabla SET Reconocimiento = Reconocimiento + "&PuntosaOtorgar&" , Kien_Reconoce = '"&otroReconocedor&"'  WHERE Usuario = '"&usuapuntuar&"';"
Response.Write usukpuntua & escape(", seguro que ") & usuapuntuar & escape(" te agradece el reconocimento que le acabas de dar por su esfuerzo.")
Response.End ()
%>
 

Ver original
function creaAjax(){
    var ajaxs = ["Msxml2.XMLHTTP","Msxml2.XMLHTTP.4.0","Msxml2.XMLH TTP.5.0","Msxml2.XMLHTTP.3.0","Microsoft.XMLHTTP"];
    var ajax = false;
    for(var i=0 ; !ajax && i<ajaxs.length ; i++){
        try{ 
            ajax = new ActiveXObject(ajaxs[i]);   // Internet Explorer
        }
        catch(e) { 
            ajax = false; 
        }
    }
    if(!ajax && typeof XMLHttpRequest!='undefined') {
        ajax = new XMLHttpRequest();  // Firefox, Opera 8.0+, Safari
    }
    return ajax;
}
 
function PuntarArticulo(ak, dk){
var ajax=creaAjax();
ajax.open ('GET', 'reconocimiento.asp?akien='+ak+'&dkien='+dk, true);
ajax.onreadystatechange = function() {
 
    if (ajax==null){
        alert ("Tu navegador web no soporta AJAX!");
        return;
    }
 
         if (ajax.readyState==1 || ajax.readyState==2 || ajax.readyState==3) {
                                      
         }
         else if (ajax.readyState==4){
                   if(ajax.status==200){
                                            alert (unescape(ajax.responseText));
                return;
                   }
                   else if (ajax.status==404)
                                             {
                                            alert ("La dirección no existe");
                return;
                                             }
                                             else
                                             {
                                             alert ("Error: " + ajax.status);
                return;
                                             }
                                    }
                  }
         ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
         ajax.send(null);
         return
}
 
 
function Evento(elemento,nomevento,funcion)
{
  if (elemento.attachEvent)
  {
      var f=function(){
        funcion.call(elemento,window.event);
    }
    elemento.attachEvent('on'+nomevento,f);
    return true;
  }
  else  
    if (elemento.addEventListener)
    {
      elemento.addEventListener(nomevento,funcion,false);
      return true;
    }
    else
      return false;
}
 

Ver original
'WeekDay arroja para Sábado: 7 y para Domingo: 1
 
Function DiasLab(Fec,Days)
    For x = 1 To Days*2
        MyDate = DateAdd("d",x,Fec)
        If Not(WeekDay(MyDate) = 1 Or WeekDay(MyDate) = 7) Then
            y = y + 1
        End If
        If Not(y = Days) Then
            z = z + 1
        Else
            Exit For
        End If
    Next
    DiasLab = DateAdd("d",z+1,Fec)
End Function
 
Response.Write DiasLab("2009-10-27",8)
 

Ver original
Dim fInicio,fFinal,AInicio,AFinal,bis,i,sumadiasBis,segundos,anyos,segundosRestante,meses,dias
fInicio = "09/01/2010"
fFinal = "18/02/2013"
AInicio = 2010
AFinal = 2013
bis = 0
 
' Comprobamos si hay algún año bisiesto. 86400 segundos es un días
For i = AInicio To AFinal
if i mod 4 = 0 then
bis = bis + 86400
else
bis = bis + 0
end if
Next ' i
sumadiasBis = bis
 
Response.Write "Fecha de Inicio " & fInicio & "<br />Fecha Final " & fFinal & "<br /><br />Restan<br />"
 
' Calculamos los segundos entre las dos fechas
segundos = DateDiff("s", fInicio, fFinal)
 
anyos = Fix((segundos-sumadiasBis)/31536000)
Response.Write anyos & " a&ntilde;os<br />"
segundosRestante = (segundos-sumadiasBis) mod (31536000)
 
meses = Fix(segundosRestante/2592000)
Response.Write meses & " meses<br />"
segundosRestante = segundosRestante mod 2592000 ' Suma un día mas por cada años bisiesto
' segundosRestante = (segundosRestante-sumadiasBis) mod 2592000 ' No suma un día mas por cada año bisiesto
 
dias = Fix(segundosRestante/86400)
Response.Write dias & " d&iacute;as"
 

Ver original
set fso=server.CreateObject("Scripting.filesystemobject")
  'si existen las carpetas se eliminan para despues volver a crearlas
  if fso.folderexists(server.MapPath("graficas")) then
    fso.deletefolder(server.MapPath("graficas"))
    set nfolder=fso.createfolder(server.MapPath("graficas"))    
  else
    'caso contrario solo se crean las carpetas
    set nfolder=fso.createfolder(server.MapPath("graficas"))
  end if
 
  if fso.folderexists(server.MapPath("graficas2")) then
    fso.deletefolder(server.MapPath("graficas2"))
    set nfolder=fso.createfolder(server.MapPath("graficas2"))   
  else
    set nfolder=fso.createfolder(server.MapPath("graficas2"))
  end if
  
  set fso=nothing
  set nfolder=nothing
 

Ver original
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="http-equiv" content="Content-type: text/html; charset=UTF-8"/>
<title></title>
<style type="text/css">
.contenedor {
background: #EEEEEE;
border:1px solid rgb(120,120,120);
width:400px;
overflow:auto;
}
 
#lenguaje {
background: orange;
font: 12px verdana;
color: #000000;
padding-left: 4px;
width:100px;
height:18px;
}
 
.contenido1, .contenido2 {
font: 12px monospace;
color: #000000;
padding-top: 1px;
padding-bottom: 1px;
}
 
.contenido1 {
background: #FFFFFF;
}
 
.contenido2 {
background: transparent;
}
</style>
</head>
<body>
<%
Function EnvuelveCod(cadena)
Dim Reg1, RempCorchete, Reg2, RempEtiquetas, Reg3, RempLengaje, arrlang, contador, arretiqueta
Dim enumeraYcolorea_linea, n, encabezado, array_codigo, i, resto, estilo, RempSaltoLinea
 
' Cambia caracteres especiales por sus entidades HTML
cadena = Server.HTMLEncode(cadena)
cadena = Replace(cadena, "<", "&lt;", 1, -1, 1)
cadena = Replace(cadena, ">", "&gt;", 1, -1, 1)
cadena = Replace(cadena, "{", "{", 1, -1, 1)
cadena = Replace(cadena, "}", "}", 1, -1, 1)
cadena = Replace(cadena, "$", "$", 1, -1, 1)
cadena = Replace(cadena, "%", "%", 1, -1, 1)
cadena = Replace(cadena, "(", "(", 1, -1, 1)
cadena = Replace(cadena, ")", ")", 1, -1, 1)
cadena = Replace(cadena, "\", "\", 1, -1, 1)
cadena = Replace(cadena, "|", "|", 1, -1, 1)
cadena = Replace(cadena, ":", ":", 1, -1, 1)
cadena = Replace(cadena, "?", "?", 1, -1, 1)
cadena = Replace(cadena, "¿", "&iquest;", 1, -1, 1)
cadena = Replace(cadena, "!", "!", 1, -1, 1)
cadena = Replace(cadena, "+", "+", 1, -1, 1)
cadena = Replace(cadena, "*", "*", 1, -1, 1)
cadena = Replace(cadena, ",", ",", 1, -1, 1)
cadena = Replace(cadena, "-", "-", 1, -1, 1)
cadena = Replace(cadena, "_", "_", 1, -1, 1)
cadena = Replace(cadena, "=", "=", 1, -1, 1)
cadena = Replace(cadena, "'", "'", 1, -1, 1)
cadena = Replace(cadena, ".", ".", 1, -1, 1)
cadena = Replace(cadena, "^", "^", 1, -1, 1)
cadena = Replace(cadena,"¡","&iexcl;", 1, -1, 1)
cadena = Replace(cadena,"ñ","&ntilde;", 1, -1, 1)
cadena = Replace(cadena,"Ñ","&Ntilde;", 1, -1, 1)
cadena = Replace(cadena,"á","&aacute;", 1, -1, 1)
cadena = Replace(cadena,"Á","&Aacute;", 1, -1, 1)
cadena = Replace(cadena,"é","&eacute;", 1, -1, 1)
cadena = Replace(cadena,"É","&Eacute;", 1, -1, 1)
cadena = Replace(cadena,"í","&iacute;", 1, -1, 1)
cadena = Replace(cadena,"Í","&Iacute;", 1, -1, 1)
cadena = Replace(cadena,"ó","&oacute;", 1, -1, 1)
cadena = Replace(cadena,"Ó","&Oacute;", 1, -1, 1)
cadena = Replace(cadena,"ú","&uacute;", 1, -1, 1)
cadena = Replace(cadena,"Ú","&Uacute;", 1, -1, 1)
cadena = Replace(cadena , "&quot;", """", 1, -1, 1) 
 
' Reemplaza los corchetes por entidades cuendo no equivalen a las etiquetas de código
Set Reg1= New RegExp 
Reg1.IgnoreCase = True
Reg1.Global = True
Reg1.Pattern = "\[(?!(\/*)code)(.*)(\])"
RempCorchete = Reg1.Replace(cadena, "[$2]") 
 
' Este reemplazo hay que hacerlo aquí, para que no afecte al cierre de las etiquetas
cadena = Replace(RempCorchete, "/", "/", 1, -1, 1) 
 
' Reemplaza las etiquetas de código por el caracter "|". Se puede escoger cualquier otro caracter
Set Reg2= New RegExp 
Reg2.IgnoreCase = True
Reg2.Global = True
Reg2.Pattern = "(\r?[^a-z0-9&]?\[.*?\]\r?[^a-z0-9&]?)"
RempEtiquetas = Reg2.Replace(cadena, "|") 
 
' Reemplaza las etiquetas de códogo y todo el texto que no está envuelto en ellas. 
' Solo mantenemos el lenguaje (atributo) de las etiquetas en caso que lo tengan y se le añade el caracter "|" . 
' Se puede escoger cualquier otro caracter
Set Reg3= New RegExp 
Reg3.IgnoreCase = True
Reg3.Global = True
Reg3.Pattern = "([^\[]*)(\[(?:[^""\]]+))([""]?)(\s*)(.*?)\4\3(\][^\[]*)(\[[^\[]+)"
RempLengaje = Reg3.Replace(cadena, "$5|")
 
' Separamos el lenguaje
arrlang = Split(Trim(RempLengaje),"|")
 
contador = 0
 
' Este reemplazo hay que hacerlo aquí
RempEtiquetas = Replace(RempEtiquetas, """", "&quot;", 1, -1, 1) 
 
' Separamos el texto plano del código
arretiqueta = Split(RempEtiquetas,"|")
            enumeraYcolorea_linea = ""
 
    For n = 0 to UBound(arretiqueta)
        ' Es texto plano
        IF (Int(n) mod 2 = 0 ) then 
            enumeraYcolorea_linea = enumeraYcolorea_linea & arretiqueta(n)
        
        ' Es código
        ELSE 
            ' En la etiqueta de código no se especifica lenguaje
            If (arrlang(contador) = "" or arrlang(contador) = null) then
            encabezado = ""
             ' Se especifica lenguaje
            Else
            encabezado = "<div id=""lenguaje"">" & arrlang(contador) & "</div>"
            End If
contador = contador +1
            enumeraYcolorea_linea = enumeraYcolorea_linea & "<pre><div class=""contenedor"">" & encabezado & "<ol type=""1"">"
 
            array_codigo = Split(arretiqueta(n), vbCrLf) ' Dividimos cada linea de código
 
        For i = 0 to UBound(array_codigo)
            resto = (abs(i) mod 2)
            select Case resto ' Coloreamos cada linea
                    case 0: estilo = "contenido1"
                   case 1: estilo = "contenido2"
            end select
            enumeraYcolorea_linea = enumeraYcolorea_linea & "<li class="""&estilo&""">" &  array_codigo(i) & "</li>"
        Next 'i
            enumeraYcolorea_linea = enumeraYcolorea_linea & "</ol></div></pre>"
 
        END IF
    Next 'n
 
' Reemplamos los saltos de linea
RempSaltoLinea = Replace(enumeraYcolorea_linea, vbCrLf, "<br />" & vbCrLf, 1, -1, 1)
 
Set RempLengaje = Nothing
Set RempEtiquetas = Nothing
Set RempCorchete = Nothing
EnvuelveCod = RempSaltoLinea
End Function
 
 
' Función para subir a la bd el html generado
Response.Write EnvuelveCod(Trim(Request.Form("txtarea")))
 
' Recibe el html de la bd
' Response.Write Request.Form("txtarea")
%>
</body>
</html>