XProfan

Kompilieren Marca Separación

Rolf
Koch

Hi Georg,

eins kann Yo Usted direkt verraten:
Edits en Páginas besitzen no Handles como Usted lo bajo el Windowsprogrammierung kennst.
Usted puede aber por Method Get y Profans Query vieles erreichen.
Achtung nachfolgender Code es saualt y IF se mich hoffentlich no killen, como Yo a diesem Zeitpunkt con HTML no tan viel al Hut hatte.
Hier el uralte Code.

declarar query$,zeile$
declarar user$, pass$, P1$,P2$,P3$,P4$,P5$,name$,p6$,p7$,p8$,p9$,p10$,p11$,extern$
declarar U1$,U2$,U3$,U4$,U5$,U6$,U7$,u8$,U9$,u10$,u11$,namedate$,nametime$,namezeile$
declarar P12$,U12$,P13$,U13$
def query(1) Substr$(@$(1),2,=)
query$ = @GetEnv$(QUERY_STRING)           daten de el Query lesen, Method = GET

PROC AUSGABE

    *********** LOGDATEI *******************************
    Asignar #2,C:Login.txt
    Append #2
    Imprimir #2,USER  :,name$
    imprimir #2,Datum:,@Date$ (1)
    imprimir #2,Tiempo  :,@Time$ (0)
    imprimir #2,***********************************
    CLOSE #2
    ****************************************************
    WriteIni E:Extern.ini,Login,Name=name$
    let namedate$=ReadIni$ (C:Login.ini,name$,Datum)
    let nametime$=ReadIni$ (C:Login.ini,name$,Tiempo)

    If @neq$(namedate$,)

        let Namezeile$=<center> ¡Hola <B>,name$, - ,</B> Usted warst al,namedate$,en,nametime$,Uhr zuletzt hier! </center>

    Elseif @equ$(namedate$,)

        let Namezeile$=¡Hola <B>,name$

    EndIf

    imprimir #1,Namezeile$
    Hier se una Dummydatei eingelesen = Privat.txt
    Asignar #3,C:Homepage2000HeimserverPrivat.txt
    RESET #3

    WHILENOT @Eof (#3)

        input #3,zeile$
        imprimir #1,zeile$

    wend

    CLOSE #3
    WriteIni C:Login.ini,name$,Datum=@date$(1)
    WriteIni C:Login.ini,name$,Tiempo=@time$(0)

ENDPROC

Passwörter vergeben:
let user$ = query(substr$(query$,1,&))    ersten parameter lesen
let pass$ = query(substr$(query$,2,&))    zweiten parameter lesen
Passwörter vergeben:
Diese könnten natürlich viel mejor de uno
verschlüsselten Expediente eingelesen voluntad!!!
Und anstatt einzelne Variables mejor:
Arrayvariablen!
let U1$=User1
let P1$=Tubbie
let U2$=User2
let P2$=SHAMAN
let U3$=User3
let P3$=Lachs
let U4$=User4
let P4$=Umwelt
let U5$=User5
let P5$=Lenzegasse
let U6$=User6
let P6$=Zapatherm
let U7$=User7
let P7$=Held
let U8$=User8
let P8$=Fisch
let U9$=User9
let P9$=Nudel
let U10$=User10
let P10$=Senfdose
let U11$=User11
let P11$=Heidelbeer
let U12$=User12
let P12$=Nikolaus
let U13$=User13
let P13$=Hexe
********************************************
Asignar #1,C:Edición.htm                  Edición preparar, welche después de
diesem Loginprogramm adecuado se
Viele Möglichkeiten
Rewrite #1
imprimir #1,<html>
imprimir #1,<BODY bgcolor=#0000aa></body>
imprimir #1,<Font color=#ffffff>

If @and(@equ$(user$,U1$),@equ$(pass$,P1$))                   Contraseña correcto !

    Name$=User1
    AUSGABE

ELSEIf @and(@equ$(user$,U2$),@equ$(pass$,P2$))                   Contraseña correcto !

    Name$=User2
    AUSGABE

ELSEIf @and(@equ$(user$,U3$),@equ$(pass$,P3$))                   Contraseña correcto !

    Name$=User3
    AUSGABE

ELSEIf @and(@equ$(user$,U4$),@equ$(pass$,P4$))                   Contraseña correcto !

    Name$=User4
    AUSGABE

ELSEIf @and(@equ$(user$,U5$),@equ$(pass$,P5$))                   Contraseña correcto !

    Name$=User5
    AUSGABE

ELSEIf @and(@equ$(user$,U6$),@equ$(pass$,P6$))                   Contraseña correcto !

    Name$=User6
    AUSGABE

ELSEIf @and(@equ$(user$,U7$),@equ$(pass$,P7$))                   Contraseña correcto !

    Name$=User7
    AUSGABE

ELSEIf @and(@equ$(user$,U8$),@equ$(pass$,P8$))                   Contraseña correcto !

    Name$=User8
    AUSGABE

ELSEIf @and(@equ$(user$,U9$),@equ$(pass$,P9$))                   Contraseña correcto !

    Name$=User9
    AUSGABE

ELSEIf @and(@equ$(user$,U10$),@equ$(pass$,P10$))                   Contraseña correcto !

    Name$=User10
    AUSGABE

ELSEIf @and(@equ$(user$,U11$),@equ$(pass$,P11$))                   Contraseña correcto !

    Name$=User11
    AUSGABE

ELSEIf @and(@equ$(user$,U12$),@equ$(pass$,P12$))                   Contraseña correcto !

    Name$=User12
    AUSGABE

ELSEIf @and(@equ$(user$,U13$),@equ$(pass$,P13$))                   Contraseña correcto !

    Name$=User13
    AUSGABE

ELSEIF @and(@equ$(pass$,),@equ$(user$,))

    imprimir #1,
    imprimir #1,<center>
    imprimir #1,Bitte alles ausfüllen!!!<BR>
    imprimir #1,user$,pass$

ELSEIF @equ$(pass$,)

    imprimir #1,
    imprimir #1,<center>
    imprimir #1,Kein Contraseña eingegeben!!!<BR>

ELSEIF @equ$(user$,)

    imprimir #1,
    imprimir #1,<center>
    imprimir #1,Kein Username angegeben!!!<BR>
    Más                                       Contraseña falso !
    imprimir #1,
    imprimir #1,<center>
    imprimir #1,Falscher Username oder Contraseña !!!<BR>

Endif

imprimir #1,</font>
imprimir #1,</html>
close #1

@Georg:

a) Sí - el va.
b) Von Shop a Shop müsstest Usted bajo Umständen una völlig otro Technik anwenden.
c) Wenn lo Su eigener Shop es: Null Problema - simplemente una Schnittstelle schaffen.
d) Wenn lo una Fremdshop es: Finger weg! Derartige automatische Anfragen son grundsätzlich no erlaubt.

Was genau hast Usted antes?

GDL

Erstmal Gracias,

Yo una Lagerprogramm, welches después de 10maligem Unterschreiten uno Sollmenge verschiedener Artikel una Bestellung por FAX ausgibt.
Como hier pero no Artikelprüfung stattfindet y el Lieferung wesentlich länger dauert, Tuve veces así ne Concepto.
Yo weis aber de unserem Hochregallagerverwaltungsprogramm, dass una direkte automatische Onlinebestellung con Artikelprüfung posible es.

Wollte eigendlich sólo veces wissen si auch con Profano algo como posible es, oder si dies propio Lieferantenschnittstellen son.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Beides ginge sicher

GDL

Dann voluntad Yo mich veces en Conrad schlau hacer. Tal vez hay como auch así una Art dataus Expediente, como beim Homebanking, el entonces verschickt se.

Mit el Dataus es auch. Yo buche direkt de meiner Anwendung Lastschriften de.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]