Programación y Desarrollo Web :: Código

• Cookies

"enviar o crear una cookie"
<% Response.cookies("nombre")="johnny" %>

"obtener el valor de la cookie"
<% minombre=Request.cookies("nombre")%>

"caducar una cookie"
<% Response.cookies(cookie).expires="12/12/2000"%>

"saber si existe la cookie"
<%
  'si la cookie esta vacia, indica que no existe y procede a crearla
  if (Request.cookies("nombre")='')
    Response.cookies("nombre")="johnny"
%>

[arriba]

• Contador de Visitas

<%@ language="JScript"%>
<%
  Application.Lock
  Application("visitas") = Application("visitas")+1
  Application.Unlock
%>
eres el visitante número <%= Application("visitas") %>

[arriba]

• Buscar un Registro

<%@ language="JScript"%>
<%
  cod = "SELECT * FROM tabla WHERE nombre='johnny'"
  con = new ActiveXObject("ADODB.Connection")
  con.Open('basedatos')
  rs = con.Execute(cod)
  Response.write("<body><center><table border="1"><tr>")
  while (!rs.EOF){
    Response.write("<td>")%> <%=rs('Codigo')%><%
    Response.write("<td>")%> <%=rs('Nombre')%><%
    Response.write("<td>")%> <%=rs('Direccion')%><%
    Response.write("<td>")%> <%=rs('Telefono')%><%
    break
    rs.MoveNext
  }
  if(rs.EOF){
    Response.Write("<td>No se encontro el registro!!!")
  }
  Response.write("</tr></table></center></body>")
  con.Close()
%>

[arriba]

• Insertar un Registro

<%@ language="JScript%>
<%
  'esta línea, es para saber si existe un registro con cóodigo 1
  cod = "SELECT * FROM tabla WHERE codigo=1"
  'ésta línea ya es para insertar el registro
  codins = "INSERT INTO tabla VALUES(1,'johnny','av. el bravo','3600-0000'"
  con = new ActiveXObject("ADODB.Connection")
  con.Open('basedatos')
  rs = con.Execute(cod)
  while (!rs.EOF){
    break
    rs.MoveNext
  }
  rem si se llego al fin de los registros, indica que no existe ese código (1)
  if(rs.EOF){
    rs = con.Execute(codins) %>
    <script>alert('registro dado de alta');history.back()</script> <%
  }
  else { %>
    <script>alert('registro existente');history.back()</script> <%
  }
  con.Close()
%>

[arriba]

• Eliminar un Registro

<%@ language="JScript"%>
<%
  cod = "SELECT * FROM tabla WHERE Codigo=1"
  codeli = "DELETE FROM tabla WHERE Codigo=1"
  con = new ActiveXObject("ADODB.Connection")
  con.Open('basedatos')
  rs = con.Execute(cod)
  while (!rs.EOF){
    break
    rs.MoveNext
  }
  if(!rs.EOF){
    rs = con.Execute(codeli) %>
  <script>alert('registro eliminado');history.back()</script> <%
  }
  con.Close()
%>

[arriba]

• Modificar un Registro

<%@ language="JScript"%>
<%
  cod = "SELECT * FROM tabla WHERE codigo=1"
  codmod = "UPDATE tabla SET nombre='carl', direccion='av. bunny', telefono='3811-0000' WHERE codigo=1"
  con = new ActiveXObject("ADODB.Connection")
  con.Open('basedatos')
  rs = con.Execute(cod)
  while (!rs.EOF){
    break
    rs.MoveNext
  }
  if(!rs.EOF){
    rs = con.Execute(codmod)
  }
  Response.Redirect('algunapagina.asp')
  con.Close()
%>

[arriba]

• Mostrar Todos los Registros

<%@ language="JScript"%>
<%
  'es recomendable almacenar la sentencia sql, en una variable
  'y después ejecutar la sentencia con << rs = con.Execute(cod)>>
  cod = "SELECT * FROM tabla"
  con = new ActiveXObject("ADODB.Connection")
  '<< basedatos >>, es el "alias" de la base de datos que se este utilizando
  con.Open('basedatos')
  rs = con.Execute(cod)
  Response.write("<body><center><table border=1>")
  while (!rs.EOF){
    Response.write("<tr>")
    Response.write("<td>")%> <%=rs('codigo')%><%
    Response.write("<td>")%> <%=rs('nombre')%><%
    Response.write("<td>")%> <%=rs('direccion')%><%
    Response.write("<td>")%> <%=rs('telefono')%><%
    rs.MoveNext
  }
  Response.write("</tr></table></center></body>")
  con.Close()
%>

[arriba]

Página diseñada por: TSUI Jorge Alejandro Mendoza Torres.
Sitio optimizado para ie5+/Firefox 2.0; res 800 x 600.

Hosted by www.Geocities.ws