![]() |
Programación en ASP |
Manual por: DesarrolloWeb.com "Tu mejor ayuda para aprender a hacer webs" |
Versión
on-line: http://www.desarrolloweb.com/manuales/8 |
<% @ LANGUAGE="VBSCRIPT"
%> <HTML> <HEAD> <TITLE>Funcion impuesto</TITLE> </HEAD> <BODY> <%Function impuesto(precio_articulo) precio_final=precio_articulo+precio_articulo*20/100 Response.Write precio_final End Function%> Un libro de 3500 ptas. se quedará en un precio de <% impuesto(3500) %> <br> Una camisa de 6000 ptas. tendrá un precio final de <% impuesto(6000) %> <br> Un CD de música de 2000 ptas. costaría <% impuesto(2000) %> ptas. </BODY> </HTML> |
<% @ LANGUAGE="VBSCRIPT"
%> <HTML> <HEAD> <TITLE>Detector de Lengua</TITLE> </HEAD> <BODY> <% 'Antes de nada introducimos mensajes en forma de variables espanol="Hola" ingles="Hello" frances="Bonjour" 'Ahora leemos del navegador cuál es su lengua oficial idioma=Left(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),2) 'Formulamos las posibilidades que se pueden dar If idioma="es" Then Response.Write espanol ElseIf idioma="fr" Then Response.Write frances Else Response.Write ingles End If %> </BODY> </HTML> |
<% @ LANGUAGE="VBSCRIPT"
%> <HTML> <HEAD> <TITLE>Bucle for/next</TITLE> </HEAD> <BODY> <%For i=1 to 5%> <font size=<%Response.Write i%>>Vuelta número <%Response.Write i%></font><br> <%Next For i=5 to 1 Step -1%> <font size=<%Response.Write i%>>Contamos atrás: <%Response.Write i%></font><br> <%Next%> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Página origen.asp</TITLE> </HEAD> <BODY> <a href="destino.asp?saludo=hola&texto=Esto es una variable texto">Paso variables saludo y texto a la página destino.asp</a> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>destino.asp</TITLE> </HEAD> <BODY> Variable saludo: <%Response.Write Request.Querystring("saludo")%><br> Variable texto: <%Response.Write Request.Querystring("texto")%><br> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>formulario.asp</TITLE> </HEAD> <BODY> <FORM METHOD="POST" ACTION="destino2.asp"> Nombre<br> <INPUT TYPE="TEXT" NAME="nombre"><br> Apellidos<br> <INPUT TYPE="TEXT" NAME="apellidos"><br> <INPUT TYPE="SUBMIT"> </FORM> </BODY> </HTML> <HTML> <HEAD> <TITLE>destino2.asp</TITLE> </HEAD> <BODY> Variable nombre: <%=Request.Form("nombre")%><br> Variable apellidos: <%=Request.Form("apellidos")%> </BODY> </HTML> |
HTTP_ACCEPT_LANGUAGE | Nos informa de la lengua preferida por el navegador |
HTTP_USER_AGENT | Indica cuál es el navegador utilizado. |
PATH_TRANSLATED | Nos devuelve el path físico del disco duro del servidor en el que se encuentra nuestro script |
SERVER_SOFTWARE | Nos dice qué tipo de software utiliza el servidor |
<% For Each elemento in Request.ServerVariables Response.Write elemento&" : "&Request.ServerVariables(elemento)& "<br>" Next %> |
<% @ LANGUAGE="VBSCRIPT"
%> <HTML> <HEAD> <TITLE>Puesta a cero</TITLE> </HEAD> <BODY> <% For Each galleta in Response.Cookies Galleta="" Next Session.Abandon %> Borrón y cuenta nueva!!<br> <a href="url de la página de inicio">Volver al principio</a> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Lectura de registros de una tabla</TITLE> </HEAD> <BODY> <h1><div align="center">Lectura de la tabla</div></h1> <br> <br> <% 'Antes de nada hay que instanciar el objeto Connection Set Conn = Server.CreateObject("ADODB.Connection") 'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones Conn.Open "Mibase" 'Ahora creamos la sentencia SQL que nos servira para hablar a la BD sSQL="Select * From Clientes Order By nombre" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) 'Mostramos los registros%> <table align="center"> <tr> <th>Nombre</th> <th>Teléfono</th> </tr> <% Do While Not RS.Eof %> <tr> <td><%=RS("nombre")%></td> <td><%=RS("telefono")%></td> </tr> <% RS.MoveNext Loop 'Cerramos el sistema de conexion Conn.Close %> </table> <div align="center"> <a href="insertar.html">Añadir un nuevo registro</a><br> <a href="actualizar1.asp">Actualizar un registro existente</a><br> <a href="borrar1.asp">Borrar un registro</a><br> </div> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Insertar.html</TITLE> </HEAD> <BODY> <div align="center"> <h1>Insertar un registro</h1> <br> <FORM METHOD="POST" ACTION="insertar.asp"> Nombre<br> <INPUT TYPE="TEXT" NAME="nombre"><br> Teléfono<br> <INPUT TYPE="TEXT" NAME="telefono"><br> <INPUT TYPE="SUBMIT" value="Insertar"> </FORM> </div> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Insertar.asp</TITLE> </HEAD> <BODY> <% 'Recogemos los valores del formulario nombre=Request.Form("nombre") telefono= Request.Form("telefono") 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" 'Ahora creamos la sentencia SQL sSQL="Insert Into Clientes (nombre,telefono) values ('" & nombre & "','" & telefono & "')" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Insertado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Actualizar1.asp</TITLE> </HEAD> <BODY> <div align="center"> <h1>Actualizar un registro</h1> <br> <% 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" %> <FORM METHOD="POST" ACTION="actualizar2.asp"> Nombre<br> <% 'Creamos la sentencia SQL y la ejecutamos sSQL="Select nombre From clientes Order By nombre" set RS = Conn.Execute(sSQL) %> <select name="nombre"> <% 'Generamos el menu desplegable Do While not RS.eof%> <option><%=RS("nombre")%> <%RS.movenext Loop %> </select> <br> Teléfono<br> <INPUT TYPE="TEXT" NAME="telefono"><br> <INPUT TYPE="SUBMIT" value="Actualizar"> </FORM> </div> </BODY> </HTML> |
<TITLE>Actualizar2.asp</TITLE> </HEAD> <BODY> <% 'Recogemos los valores del formulario nombre=Request.Form("nombre") telefono= Request.Form("telefono") 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" 'Ahora creamos la sentencia SQL sSQL="Update Clientes Set telefono='" & telefono & "' Where nombre='" & nombre & "'" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Actualizado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Borrar1.asp</TITLE> </HEAD> <BODY> <div align="center"> <h1>Borrar un registro</h1> <br> <% 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" %> <FORM METHOD="POST" ACTION="borrar2.asp"> Nombre<br> <% 'Creamos la sentencia SQL y la ejecutamos sSQL="Select nombre From clientes Order By nombre" set RS = conn.execute(sSQL) %> <select name="nombre"> <% 'Generamos el menu desplegable Do While not RS.eof%> <option><%=RS("nombre")%> <%RS.movenext Loop %> </select> <br> <INPUT TYPE="SUBMIT" value="Borrar"> </FORM> </div> </BODY> </HTML> |
<HTML> <HEAD> <TITLE>Borrar2.asp</TITLE> </HEAD> <BODY> <% 'Recogemos los valores del formulario nombre=Request.Form("nombre") 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" 'Ahora creamos la sentencia SQL sSQL="Delete From Clientes Where nombre='" & nombre & "'" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Borrado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML> |