Neotext Technology Examples


VB6 declarations source of Neotext's base collision math API: Maxland_Source.zip

VB6 application deafult example of a simple Windows Service: Service_Example.zip

Neotext DLL Examples in ASP

(Neotext DLL suite and documentation is distributed with Max-FTP and its Code)


Example 1:
<%

    dim tmp
    set tmp = CreateObject("NTAdvFTP61.Client")
    
    tmp.URL = "ftp://ftp.neotext.org"
    tmp.Username = "guestuser1"
    tmp.Password = "guestpass1"
    tmp.Connect
    
    dim lst
    tmp.ListContentsToArray lst
    
    tmp.Disconnect
    
    for each itm in lst
        Response.Write Replace(Replace(itm, "<", "&lt;"), ">", "&gt;") & "<br>"
    next
    
    set tmp = nothing
    set lst = nothing

%>



Example 2:
<%

    dim tmp
    set tmp = CreateObject("NTShell22.Internet")
    
    dim str
    str = tmp.PostToWebsite("neotext.org", "/default.asp", "eye=Neotext")
    str = Replace(Replace(str, "<", "&lt;"), ">", "&gt;")
    Response.Write str
    
    set tmp = nothing

%>



Example 3:
<%

    dim tmp
    set tmp = CreateObject("NTSMTP23.EMail")
    
    tmp.Server = "mail.neotext.org"
    tmp.Receiver = "no-reply@neotext.org"
    tmp.Sender = "no-reply@sosouix.net"
    tmp.SubjectText = "Test e-mail."
    tmp.MessageData = "This is the message."
    
    Response.Write "Delivering<br>"
    tmp.Deliver
    Response.Write "Completed.<br>"
    
    set tmp = nothing

%>



Example 4:
<%

    dim tmp
    set tmp = CreateObject("NTCipher10.NCode")
    
    dim str
    str = tmp.EncryptString("Encrypt this string.", "myKey", true)
    Response.Write "Encrypted: " & str & "<br>"
    
    str = tmp.DecryptString(str, "myKey", true)
    Response.Write "Decrupted: " & str & "<br>"
    
    set tmp = nothing

%>



Example 5:
<%

    dim tmp
    set tmp = CreateObject("NTCipher10.BWord")
    
    dim lpW
    
    lpW = 0
    
    Response.Write tmp.Value(lpW, 1) & " " & tmp.Value(lpW, 2) & " " & _
    tmp.Value(lpW, 4) & " " & tmp.Value(lpW, 8) & " " & tmp.Value(lpW, 16) & " " & _
    tmp.Value(lpW, 32) & " " & tmp.Value(lpW, 64) & " " & tmp.Value(lpW, 128) & "<br>"
    
    lpW = 1982
    
    Response.Write tmp.Value(lpW, 1) & " " & tmp.Value(lpW, 2) & " " & _
    tmp.Value(lpW, 4) & " " & tmp.Value(lpW, 8) & " " & tmp.Value(lpW, 16) & " " & _
    tmp.Value(lpW, 32) & " " & tmp.Value(lpW, 64) & " " & tmp.Value(lpW, 128) & "<br>"
    
    set tmp = nothing

%>



Example 6:
<%

    dim tmp
    set tmp = CreateObject("NTSmpFTP30.Client")
    
    Respond.Write "Connecting<br>"
    tmp.Connect "ftp.neotext.org", 21, "guestuser1", "guestpass1"
    
    Response.Write "Do Something<br>"
    tmp.ChangeDirectory "apps"
    
    Response.Write "Disconnecting<br>"
    tmp.Disconnect
    
    set tmp = nothing

%>