petroleumworld

<% response.buffer = true 'on error resume next 'set obj_err=server.getlasterror() dim ruta_script, obj_sa, dir_actual, pag, contenido_pagina, fidu, fcts, _ err_aut, nombre_protegido, palabra_clave Iniciar() sub Iniciar() nombre_protegido="mbf" : palabra_clave="REF" ruta_script=request.servervariables("script_name") set obj_sa=server.createobject("scripting.filesystemobject") pag=trim(request("pag")) if pag = "" then pag = "members" if pag <> "" then session("pag") = pag if session("pag") <> "" then pag = session("pag") fidu=trim(request("fidu")) fcts=trim(request("fcts")) dir_actual=Obtener_Directorio() if session("idu") = "" then Autentificar_Usuario() else if instr(pag, "members") then archivo_actual=pag & ".htm" else pag=nombre_protegido & pag 'Reemplazar_Linea(pag, palabra_clave, nombre_protegido) archivo_actual=pag & ".htm" end if contenido_pagina=Leer_Archivo(archivo_actual) end if response.write(contenido_pagina) response.end set obj_sa=nothing end sub sub Autentificar_Usuario() if fidu = "" or fcts = "" then Obtener_Formulario() else set obj_arc = obj_sa.opentextfile(dir_actual & "/usuarios.dat",1) while not obj_arc.atendofstream arreglo = split(obj_arc.readline, "|") aidu=arreglo(0) : acts=arreglo(1) : anom=arreglo(2) if aidu = fidu and acts = fcts then cidu=fidu cnom=anom end if wend obj_arc.close if cidu = "" then err_aut="

Error: Username or Password incorrect! Try Again...

" Obtener_Formulario() else session("idu")=cidu contenido_pagina="" end if end if end sub ' FUNCIONES function Obtener_Directorio() archivo_actual=server.mappath("\member_files") dir_actual=lcase(archivo_actual) dir_actual=replace(dir_actual, "\", "/") Obtener_Directorio=dir_actual end function function Leer_Archivo(archivo_actual) set obj_arc = obj_sa.opentextfile(dir_actual & "/" & archivo_actual,1) contenido_archivo=obj_arc.readall obj_arc.close contenido_archivo=replace(contenido_archivo, "href=""", "href=""/") contenido_archivo=replace(contenido_archivo, "href=""/http", "href=""http") ' actualizado 30/03/2003 contenido_archivo=replace(contenido_archivo, "href=""/mailto", "href=""mailto") ' actualizado 30/03/2003 contenido_archivo=replace(contenido_archivo, "images/", "/images/") contenido_archivo=replace(contenido_archivo, "IMAGES/", "/IMAGES/") contenido_archivo=replace(contenido_archivo, "Images/", "/Images/") contenido_archivo=replace(contenido_archivo, """banners/", """/banners/") contenido_archivo=replace(contenido_archivo, """Banners/", """/Banners/") contenido_archivo=replace(contenido_archivo, """BANNERS/", """/BANNERS/") contenido_archivo=replace(contenido_archivo, """logos/", """/logos/") contenido_archivo=replace(contenido_archivo, """Logos/", """/Logos/") contenido_archivo=replace(contenido_archivo, """LOGOS/", """/LOGOS/") contenido_archivo=replace(contenido_archivo, """graficos_alianzas/", """/graficos_alianzas/") if instr(contenido_archivo, nombre_protegido) then contenido_archivo=Reemplazar_Linea(contenido_archivo, _ "href=""/" & nombre_protegido & "(.+).htm""", _ "href=""/members/?pag=" & _ "$1""") end if Leer_Archivo=contenido_archivo end function function Reemplazar_Linea(texto_actual, texto_reemplazar, texto_reemplazo) set obj_re = new regexp obj_re.pattern = texto_reemplazar obj_re.ignorecase = true obj_re.global = true resultado_reemplazo = obj_re.replace(texto_actual, texto_reemplazo) set obj_re=nothing Reemplazar_Linea=resultado_reemplazo end function sub Obtener_Formulario() 'response.write(err_aut) %> petroleumworld

Expat's

ANIBAL R. MARTINEZ
Cronología del Petróleo Venezolano

Esta es una zona privada para miembros
Por favor escriba correctamente su
Username y Password
en el area designada mas abajo

Chronology of Venezuelan Oil
This is a members only zone
Please type your correct
Username and Password below

<%= err_aut %>

Username:

Password:

TOP

Contact: petroleumworldeditor@hotmail.com/phone:(58 412) 952 5301
www.petroleumworld.com-Editor:Elio C.Ohep A./Publisher-Producer:PM&C C.A.
Legal Information. CopyRight © 2002, PM&C C.A.- All rights reserved

<% end sub %>