Curso asp - Programación en asp

1 - Programación en asp

Las páginas tienen una extensión .ASP---Los tags son &lt;% %&gt;------ejemplo:------prueba.asp------&lt;% response.write "HOLA" %&gt;---------Variables:------No hace falta definirlas------dim var1------option explicit obligamos a definir todas las variables (recomendado)------vartype var1------Nos devuelve el tipo de una variable (un número)------vbEmpty --&gt; 0---vbNull --&gt; 1---vbInteger --&gt; 2---vbLong --&gt; 3---vbSingle --&gt; 4---vbDouble --&gt; 5---vbCurrency --&gt; 6---vbDate --&gt; 7---vbString --&gt; 8---vbObject --&gt; 9---vbError --&gt; 10---vbBoolean --&gt; 11---vbVariant --&gt; 12---vbDataObject --&gt; 13---vbBytc --&gt; 17---vbArray --&gt; 8192------Ejemplo:------dim var1---var1=6.0---response.write vartype (var1)------Resultado --&gt; 5 (o sea double)------option explicit---response.write "Hola" ---response.write var1------Resultado --&gt; Variable no definida: 'var1' -----------------------------------------------------División Entera --&gt; ---Potencia -- ^---Modulo --&gt; Mod------Operadores de comparación:------=---&lt;&gt;------Concatenar: &amp; (+)---------and --&gt; las dos son ciertas------or --&gt; una de las dos es cierta------not --&gt;lo contrario------xor --&gt; cierto si solamente una de las dos es cierta.---------function pepe(param1,param2)---pepe=5---end function------exit function para salir de una funcion------Procedimientos---sub PepeProc (par1,par2)---end sub------exit sub para salir del procedimiento---------Para llamar a un procedimiento------call PepeProc ("Par1,"par2) o directamente PepeProc "par1","par2"---------if condicion then---...---else---...---end if---------select case(variable)---case "A": ...---case "B": ...---case "C": ...---case Else: ...---end select------function tipovariable(var)---------for next------for a=1 to 5---..---next------do (while | until) ... loop---------Do while a&gt;0---...---loop------do until a=0---..---loop------While ... wend (Obsoleto)------For each ... in ...---------For each elemento in Mi_Array---------Salir bucles------Exit for (for)------Exit loop (while)-------------------------------------i=0---x=1---do while i&lt;=9---i=i+1---resultado=x*i---response.write ""---response.write resultado---loop-------------------------------------Ámbito de las variables------- Página---Dim a---a=5------Esta variable tiene valor dentro de esta página (sólo en la página actual)------- Sesión---Válidas durante toda la visita del usuario (Dura hasta que se cierra el navegador o hasta que pasa un tiempo determinado)------Session("var")=5------- Aplicación---Válidas siempre, no caducan y se puede acceder para todos los usuarios.------Application("var")=7------------Global.asa------InetPub/www.root------se carga siempre que un usuario abre una página asp---inicializaciones/terminaciones------session_onstart--&gt;se activa cuando unusuario entra en la página---session_onend--&gt;se desactiva cuando un usuario abandona la sesión pq ha pasado un tiempo o pq ha hecho un session_abandon---application_onstart--&gt; se activa cuando el 1er usuario entra en la página web---application_onend --&gt; se desactiva cuando ya no haya ninguna sesión activa------plantilla para un fichero global:---------sub session_onstart---end sub---sub session_onend---end sub---sub application_onstart---application("visitas")=0---end sub---sub application_onend---end sub---------PROPIEDADES:------session_id --&gt; identificador de la sesión---timeout --&gt; tiempo que queda de sesión------session.sessionid------MÉTODO:------abandon--&gt;destruye la sesión actual y nos activa el evento session_onend.No destruye la sesión hasta que no se haya ejecutado todo el código.------contents.remove--&gt;elimina una variable de sesión---contents.removeall--&gt;elimina todas las variables de sesión---contents--&gt;colección de elementos añadidos a la sesión------ejemplo:---session("var1")=1---session("var2")=2------------Application------Lock --&gt; bloquear------Unlock --&gt; desbloquear------Application.lock---Application.("variable")="Hola"---Application.unlock------El objeto Server:------Propiedad:------ScriptTimeOut --&gt; tiempo en segundos para ejecutar una página, sino lo hace en este tiempo da error. (Es como el max_execution_time = 30 del PHP)---------CreateObject -&gt; Crear objeto com------(Objeto COM --&gt; objetos dentro de dlls que se encuentran en el directorio windows, y quedan para todas las aplicaciones windows. Se registran en el sistema, y cualquier programas puede acceder a ellas.------Execute -&gt; ejecutar un ASP---GetLastError -&gt; Último error---MapPath -&gt; Carpeta física---HtmlEncode -&gt; Codificar para HTML---UrlEncode -&gt; Codificar una URL---------Ejemplo:------El directorio raiz es:---&lt;%=server.mappath("/") %&gt;------Codigo sin codificar---&lt;% response.write(" si a&lt;b r&gt;c") %&gt;------Codigo codificado---&lt;%=server.htmlencode(" si a&lt;b r&gt;c") %&gt;------Prueba URL------&lt;%=server.urlencode("dir=c/del carmen,25") %&gt;------= sirve para response.write---------Transfer -&gt; redirecciona a otra página.---------Objeto Request y Response---------Request -&gt; obtener variables---Response -&gt; escribir valores------TotalBytes -&gt; los bytes enviados al cliente en la petición.------ClientCertificate -&gt; certificados---Cookies -&gt; cookies---Form -&gt; valoers formulario---QueryString -&gt; valor URL---ServerVariables -&gt; variables servidor---------Ejemplo:------(Enviar la cookie antes de nada, o sea arriba de todo)---&lt;% response.cookies("Cantidad")=5 %&gt;------El valor de la cookie es:------&lt;%=request.cookies("Cantidad") %&gt;------Ejemplo Formulario:------&lt;form name="form1" method="post" action="mostrar.asp"&gt;---&lt;p&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Nombre ---&lt;input type="text" name="nombre"&gt;---&lt;/font&gt;&lt;/p&gt;---&lt;p&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Dirección ---&lt;input type="text" name="dire"&gt;---&lt;/font&gt;&lt;/p&gt;---&lt;p&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Teléfono ---&lt;input type="text" name="tel"&gt;---&lt;/font&gt;&lt;/p&gt;---&lt;p&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt; ---&lt;input type="submit" name="Submit" value="Submit"&gt;---&lt;/font&gt;&lt;/p&gt;---&lt;/form&gt;---------------------------------------------------Su nombre es: &lt;%=request.form("nombre")%&gt;---Su dirección es: &lt;%=request.form("dire")%&gt;---Su teléfono es: &lt;%=request.form("tel")%&gt;---------Si el form method="get" entonces no podemos hacer request.form, sino querystring.------method="post" -&gt; request.form---method="get" -&gt; querystring------path_info ---path_translated -&gt; direccion fisica del disco duro---query_string -&gt; cadena con parametros---remote_addr -&gt; IP---remote_host -&gt; Nombre de la maquina---request_method -&gt; get o post---script_map -&gt; base del URL---script_name -&gt; ruta virtual---server_port -&gt; puerto servidor---server_port_secure -&gt; puerto SSL---server_protocol -&gt;protocolo de comunicaciones---url -&gt; URL---server_software -&gt; servidor------Server Variables------Ejemplo Info.asp------&lt;%=request.servervariables("server_port") %&gt;---&lt;%=request.servervariables("path_info") %&gt;---&lt;%=request.servervariables("server_software") %&gt;---&lt;%=request.servervariables("server_protocol") %&gt;---&lt;%=request.servervariables("script_name") %&gt;---&lt;%=request.servervariables("remote_host") %&gt;---&lt;%=request.servervariables("remote_addr") %&gt;------etc,etc,etc------Objeto Response------Buffer -&gt; cierto o falso (si es cierto hasta que no se acabe de ejecutar la pagina no se envian los datos, si es falso se va enviando) O todo o nada, si tenemos 50 registros, si el buffer esta true, o nos enseña los 50 o ninguno, si esta en false, nos enseña 10 por ejemplo.---CacheControl -&gt; especificar si la pagina se guardará en caché en el proxy.---Expires -&gt; tiempo que tiene que almacenarse esta pagina en caché.------AppendToLog -&gt; se guardara en el fichero log del servidor.---Clear -&gt; nos borra el buffer---End -&gt; terminamos la pagina, y se envia este el buffer esta true o no.---FlusH -&gt; envia lo que hay en el buffer, si esta true---Redirect -&gt; redirecciona la pagina a otro sitio---Write -&gt; para escribir---Coookies -&gt; colección de galletas------Ejemplo:---------&lt;%---For x=1 to 1000---response.write (x)---response.write ""---next---%&gt;------Va saliendo....------Y ahora------&lt;%---response.buffer=true---For x=1 to 1000---response.write (x)---response.write ""---next---response.end---%&gt;------Sale de golpe!!!------Más ejemplos:------login.htm------------------------------------------&lt;html&gt;---&lt;head&gt;---&lt;title&gt;- Login &lt;/title&gt;---&lt;meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"&gt;---&lt;/head&gt;---&lt;body bgcolor="#FFFFFF" text="#000000"&gt;---&lt;form name="form1" method="post" action="comprobar.asp"&gt;---&lt;table width="41%" border="0" cellspacing="0" cellpadding="0" bgcolor="#999999" align="center"&gt;---&lt;tr bgcolor="#333333"&gt; ---&lt;td colspan="3"&gt; &lt;/td&gt;---&lt;/tr&gt;---&lt;tr&gt; ---&lt;td width="19%"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Nombre&lt;/font&gt;&lt;/td&gt;---&lt;td width="55%"&gt; ---&lt;input type="text" name="nombre" maxlength="10"&gt;---&lt;/td&gt;---&lt;td width="26%" rowspan="3"&gt; &lt;/td&gt;---&lt;/tr&gt;---&lt;tr&gt; ---&lt;td width="19%"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Password&lt;/font&gt;&lt;/td&gt;---&lt;td width="55%"&gt; ---&lt;input type="password" name="pass" maxlength="20"&gt;---&lt;/td&gt;---&lt;/tr&gt;---&lt;tr&gt; ---&lt;td width="19%"&gt; &lt;/td&gt;---&lt;td width="55%"&gt; ---&lt;input type="submit" name="Submit" value="Enviar"&gt;---&lt;/td&gt;---&lt;/tr&gt;---&lt;/table&gt;---&lt;/form&gt;---&lt;/body&gt;---&lt;/html&gt;---------------------------------------------comprobar.asp------------------------------------------&lt;%---if (request.form("nombre")="alex") and (request.form("pass")="alex") then---Session("nombre")=request.form("nombre")---response.redirect("correcto.asp")---else---response.redirect("incorrecto.asp")---end if---%&gt;---------------------------------------------correcto.asp------------------------------------------&lt;%---response.write("Bievenido"&amp;Session("nombre"))---%&gt;---------------------------------------------incorrecto.asp------------------------------------------&lt;%---response.write("No tienes acceso")---%&gt;---------------------------------------------Teoría:------En el IIS 5.0---ASP Error------ASPCode---Number---Description---File---Line---Column---Source---Category------variable+Error=server.getLastError------Página que abre el servidor cuando hay un erorr --&gt; 500-100.asp------Conexiones con bases de datos-------&gt; ODBC --&gt; se puede conectar con cualquier base de datos que acepte ODBC---------¿ Qué es el OBDC ? -&gt; Conexión base de datos a través de Windows. Object Data Base Conection.------ADO -&gt; colección de objetos para conectarse a la BD. WorkSpace, Recordset, etc------Primer paso:------Vamos a crear una base de datos con access:------clientes------IDCliente (autonúmerico)---Nombre---Direccion---Telefono------Clientes.mdb------Configuración---Panel de Control---Fuentes de datos ODBC------Data Source Name (DSN)------DSN Usuario---DSN Archivo (solo de un archivo)------DSN Usuario --&gt; Agregar, Microsoft Acces-Driver, Nombre del Origen Clientes, Base de Datos (Seleccionar y cogemos cliente.mdb, en avanzadas podemos poner password, etc.------Set con= Server.CreateObject("ADODB.CONNECTION")---con.open "DSN=Clientes;UID=Nombre_usuario;PWD=Password;"------a-&gt; Crear RecordSet---set mirs=con.execute("Select * from clientes") -&gt; es como un mysql_query------mirs.eof---mirs.movenext---mirs("Nombre")---etc------b-&gt; Ejecutar una consulta---con.execute=("Update...")------Variable de aplicación mejor, ponerlo en el global.asa, y luego llamarlo con un include.------response.write(mirs("Nombre"))------Ejemplo:------&lt;%---Set con= Server.CreateObject("ADODB.CONNECTION")---con.open "DSN=Clientes;"------set mirs=con.execute("Select * from clientes")------do until mirs.eof---response.write(mirs("Nombre"))---mirs.movenext---loop------%&gt;------Para actualizar y borrar registros:------conexion.asp------&lt;%---Set con= Server.CreateObject("ADODB.CONNECTION")---con.open "DSN=Clientes;"------set mirs=con.execute("Select * from clientes")------do until mirs.eof------response.write("&lt;form method=post action=edit.asp&gt;")---response.write("&lt;input type=hidden name=id value="&amp;mirs("IDCliente")&amp;"&gt;")---response.write(mirs("IDCliente"))---response.write("")---response.write(mirs("Nombre"))---response.write("")---response.write(mirs("Direccion"))---response.write("")---response.write(mirs("Telefono"))---response.write("")---response.write("&lt;input type=submit value=Editar&gt;")---response.write("&lt;/form&gt;")---response.write("&lt;hr&gt;")---mirs.movenext---loop------%&gt;------edit.asp------&lt;%---Set con= Server.CreateObject("ADODB.CONNECTION")---con.open "DSN=Clientes;"------if request.form("Borrar")="Borrar" then---set mirs=con.execute("DELETE from clientes where IDCliente="&amp;request.form("id")&amp;"")---response.write ("Eliminado")---else---if request.form("Actualizar")="Actualizar" then---set mirs=con.execute("UPDATE clientes SET Nombre='"&amp;request.form("Nombre")&amp;"', Direccion='"&amp;request.form("Direccion")&amp;"', Telefono='"&amp;request.form("Telefono")&amp;"' where IDCliente="&amp;request.form("id")&amp;"")---response.write ("Actualizado")---else---set mirs=con.execute("Select * from clientes where IDCliente="&amp;request.form("id")&amp;"")------response.write("&lt;form method=post&gt;")---response.write("&lt;input type=hidden name=id value="&amp;mirs("IDCliente")&amp;"&gt;")---response.write ("Nombre: &lt;input type=text name=Nombre value="&amp;mirs("Nombre")&amp;"&gt;")---response.write("")---response.write ("Dirección: &lt;input type=text name=Direccion value="&amp;mirs("Direccion")&amp;"&gt;")---response.write("")---response.write ("Telefono: &lt;input type=text name=Telefono value="&amp;mirs("Telefono")&amp;"&gt;")---response.write("")---response.write("&lt;input type=submit name=Actualizar value=Actualizar&gt;")---response.write("&lt;input type=submit name=Borrar value=Borrar&gt;")---response.write("&lt;/form&gt;")------end if------end if---%&gt;------Funciones------var=array(1,2,3)------Join(matriz,caracter)---Join --&gt; una matriz en una cadena---Split(cadena,delimitador)---Split --&gt; una cadena la convierte en array---------(Bod,Byte,CCur,CDate,CDBl,Chr,Clnt,Clong,Str) -&gt; nos convierte cualquier variable en un tipo que le digamos------chr.Asc --&gt; código ASCII------Funciones de Fecha---Time()---Now() --&gt; fecha y hora actual------Date()------DateAdd(Internal,Cantidad,Fecha) --&gt; suma la fecha que le digamos------Day(Fecha) Month(fecha) Year(fecha)---hour(fecha) minute(fecha) second(fecha)------DatePart(Inervalo,Fecha) --&gt; q (cuarto trimestre) w (semana) y (dia del año) ww (semana del año)------FormatDateTime(fecha,formato) -&gt; formatear una fecha o una hora---FormatDateTime(fecha,1)---FormatDateTime(fecha,2)---etc------InputBox(texto,titulo,valorpred,xpos,ypos)------InStr([conocimiento],cadena1, cadena2) -&gt; buscar una cadena en otra (buscamos la cadena 2 en la cadena 1------Left(cadena,longitud)---Right(cadena,longitud)---Mid(cadena,longitud)------Obtener partes de una cadena

Añade una nota a tu edición que explique en qué consisten tus cambios:

Opinar
3 opiniones

Jhonny Arenas

Curso asp.

Bueno.

Liza

Muy buena información.

Excelente , yo tengo tiempo programación y creeme que muchas de las cosas que has publicado no las conocía , gracias por la información me serviraá muchísimo.

ruben rojas

Programacion en asp.

Me parece interesante el curso.

Cursos gratis relacionados con 'Curso asp'

La publicidad exterior como factor contaminante visual

Veremos que la publicidad exterior es un medio eficiente para dar a conocer un mensaje,... Más »

Comercio Electrónico

Curso de introducción al Comercio Electrónico.

Anuncios Google

Autor y licencia de 'Curso asp'

Curso gratis de el-brujo. Extraido de: http://foro.elhacker.net/index.php/topic,255.0.html CopyLeft

Este contenido ha sido recopilado por el equipo de Wikilearning. Todo el contenido recopilado se ha obtenido respetando y comunicando en nuestro site la licencia de cada fuente.

Wikilearning tiene permiso expreso por escrito de los autores para publicar los contenidos que ha extraído de otras webs, incluyendo su uso comercial.