El mas basico
<% response.write"¡Hola Mundo!" %> ------- Formatear el texto <% response.write("" & now()) response.write(" (Hora de Madrid (España))
") If h < 12 then response.write("¡Buenos Dias!") else response.write("¡Buenas tardes!") end if %> ------- dias y horas Hoy es dia: <%response.write(date())%>.VBScripts' funcion WeekdayName para sacar el nombre del dia de la semana:
<% response.Write(WeekDayName(1)) response.Write("Abreviatura del dia de la semana:
<% response.Write(WeekDayName(1,true)) response.Write("Dia de la semana actual:
<% response.Write(WeekdayName(weekday(date))) response.Write("VBScripts' funcion MonthName para sacar el nombre del mes:
<% response.Write(MonthName(1)) response.Write("Abreviatura del mes:
<% response.Write(MonthName(1,true)) response.Write("mes actual:
<% response.Write(MonthName(month(date))) response.Write("Contador de tiempo hasta el año 3000:
<%millennium=cdate("1/1/3000 00:00:00")%>
It is
<%response.write(DateDiff("yyyy", Now(), millennium))%>
años hasta el año 3000!
It is
<%response.write(DateDiff("m", Now(), millennium))%>
meses hata el año 3000!
It is
<%response.write(DateDiff("ww", Now(), millennium))%>
semanas hasta el año 3000!
It is
<%response.write(DateDiff("d", Now(), millennium))%>
dias hasta el año 3000!
It is
<%response.write(DateDiff("h", Now(), millennium))%>
horas hasta el año 3000!
It is
<%response.write(DateDiff("n", Now(), millennium))%>
minutos hasta el año 3000!
It is
<%response.write(DateDiff("s", Now(), millennium))%>
segundos hasta el año 3000!
Sintaxis de DateAdd: DateAdd(intervalo,numero,fecha). Puedes usar DateAdd para , por ejemplo,calcualr la fecha de dentro de 30 dias a partir de hoy.
------- Esto es una fecha? <% somedate="10/30/99" response.write(IsDate(somedate)) %> -------- Convirtiendo mayusculas y minusculas <% name = "Juan Soldado" response.write(ucase(name)) response.write("El resultado del calculo es: <%call vbproc(3,4)%>
Tambien puedes llamar al procedimiento sin call
El resultado del calculo es: <%vbproc 3,4%>
------- Formularios (metodo GET) <% If Request.QueryString("fname")<>"" Then Response.Write ("Hola " & Request.QueryString("fname") & "!") Response.Write ("Tu telefono favorito es: " & telefono & "
") end if %> ------- Creando una cookie de bienvenida um=request.cookies("NumVisits") If num = "" Then response.cookies("NumVisits") = 1 Else response.cookies("NumVisits") = num + 1 End If %> <% if num="" then %> Bienvenido! Esta es la primera vez que visitas esta pagina web. <% else %> Tu has visitado esta pagina web <%response.write(num)%> veces <% end if %> ------- Como hacer Un Redirect hacia otra URL <% if Request.Form("select")<>"" then Response.Redirect(Request.Form("select")) end if %> ------- Controlando el buffer de ejecución <% Response.Buffer=true %>Escribimos texto, pero este no se manda al cliente hasta que no invoquemos el flush.
Este txto sigue sin mandarse, esta aqui guardadito
Vale, ya tenemos generado todo el texto que queriamos mandar,
ahora hacemos flush al buffer y lo mandamos
Escribimos texto, pero este no se manda al cliente hasta que no invoquemos el flush.
Este texto sigue sin mandarse, esta aqui guardadito
Lo he pensado mejor, no voy a mandar el texto,
ahora hacemos Clear al buffer y lo eliminamos
Este texto, como esta despues del clear, si llega al cliente
------- Terminar una script en medio del procesoEstoy escribiendo un texto en el cliente pero ......
<%
Response.End
%>
Como hemos invocado un .End, se corta