Tema: Asp Y Sql
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/05/2007, 15:50
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 1 mes
Puntos: 88
Re: Asp Y Sql

bueno, espero que pueda servirte esto

primero, se crea en global.asa la variable tipo aplicacion que te permitira realzar un arreglo de cada uno de los registros que el usuario inserte...
GLOBAL.ASA
Código PHP:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart

    Dim Auxiliar
()
      
Redim Auxiliar(9)
      
Application("nuevos")=Auxiliar
      
End Sub
</SCRIPT>
 
una ves realizada esa parte, crearemos una pagina que tendra la funcion que insertara en la variable anteriormente creada.
INCLUIR.ASP
Código PHP:
<%
function 
insertar(ip,registro)
Apodo=ip
Application
.Lock
    Temporal
=Application("nuevos")
    FOR 
i=7 TO 0 STEP -1
        Temporal
(i+1)=Temporal(i)
    
NEXT
    Temporal
(0)=Apodo&": "&registro
    Application
("nuevos")=Temporal
Application
.Unlock
END 
IF%> 
ten en consideracion que a la funcion el mandas como parametros la IP, registro, en este caso, sustituiremos la sentencia SQL de esta forma:

SQL="INSERT INTO TABLA(CAMPO1,CAMPO2,CAMPO3) VALUES (VALOR1,VALOR2,VALOR3);"

por

SQL="SELECT * FROM TABLA where campo1="&valor1&" AND campo2="&valor2&" AND campo3="&valor3&";"

ya que de esta manera automaticamente iremos a ese registro en concreto, nota, deje el *, tu cambialo a los registros que quieras mostrar.. estamos??

despues, creamos la pagina que siempre esta de espectante a cualquier cambio

Visualizas.ASP
Código PHP:
<% PaginaActual="http://"&_
Request
.ServerVariables("SERVER_NAME")&_
Request
.ServerVariables("SCRIPT_NAME") %>
<
html>

<
head>
<
meta http-equiv="REFRESH" content="2;<%=PaginaActual%>">
<
title>MiniChat (visualización)</title>
</
head>

<
body>
<%
IF 
NOT isArrayApplication("nuevos")) THEN
Application
.Lock
Dim Auxiliar
()
Redim Auxiliar(9)
Application("nuevos")=Auxiliar
Application
.UnLock 
END 
IF

Temporal=Application("nuevos")
FOR 
Opinion=8 to 0 step -1%>
<%= 
Temporal(Opinion) %> <br/>
<% 
NEXT %>
</
body>
</
html
donde, esta pagina leera cada cierto tiempo(2 segundos) el arreglo por posibles cambios diciendote que se a anexado ese registro.
puedes cambiar ese parametro por algo mas tardio, para que no este mirando y mirando la pagina tan seguido

<meta http-equiv="REFRESH" content="X;<%=PaginaActual%>">

cambia la X para los segundos que requieras
suerte

p.d. solo fue una sugerencia.. pero es buena no creen??... quien lo podria generar para un archivito de TXT???
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra