19/11/2005, 12:31
|
 | | | Fecha de Ingreso: mayo-2005 Ubicación: Bogota, Colombia
Mensajes: 106
Antigüedad: 19 años, 11 meses Puntos: 2 | |
| Crea una dll n un proyecto de visual y lo llamas desde tu pagina de la siguiente manera
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
dim obj ' objeto receptor
dim resp ' respuesta a mensaje
dim lases ' la sesion enviada
dim dato1
dim dato2
dim dato3
Response.buffer = false ' no buffer
Response.Expires = 0 ' page already expired
if IsObjInstalled("midll.mimodulodeclase")=false then
response.Write("hola")
response.end()
end if
set obj = server.createobject("midll.mimodulodeclase")
resp = obj.Get_Data(request("Envio"),"RemoteUser",Request .ServerVariables("REMOTE_ADDR"))
set obj = nothing
if isnull(resp) then ' nulo indica error de login
session.abandon
Response.Redirect "http://www.yahoo.com"
else
if resp = "logout" then ' ok logout
response.Write "<html><body>0</body></html>"
' session.abandon
else
Response.write resp
end if
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>
donde midll es el nombre de tu dll y mimodulodeclase es un modulo de clase de vb donde haces el llamado a las funciones, es decir, haces la dll con los metodos que tienes en tu pagina asp y simplemente llamas el objeto y le envias los datos, por lo tanto, el contenido de tu pagina asp debe ser unicamente este script
__________________
:cool: Nadie enseña a nadie...
todos aprendemos de todos....!!! |