El siguiente fragmente de código muestra un ejemplo de cómo subir archivos usando protocolo HTTP desde una página Web con WebSpeed.
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<META NAME="AUTHOR" CONTENT="Your Name">
<TITLE>WebSpeed Script</TITLE>
</HEAD>
<BODY>
<form name="formu" method="POST" action="pagina1.html" ENCTYPE="multipart/form-data">
Archivo:<input type="file" value="" name="archivito" />
<input type="submit" value="enviar" name="smt" />
</form>
<SCRIPT LANGUAGE="SpeedScript">
IF REQUEST_METHOD = "POST" THEN
DO:
DEFINE VAR mFile AS MEMPTR NO-UNDO.
DEFINE VAR cfile AS CHAR NO-UNDO.
ASSIGN mFile = get-binary-data("archivito").
ASSIGN cfile = get-value("archivito").
DEF VAR oFile AS CHAR NO-UNDO.
oFile = GET-CONFIG("fileUploadDirectory") + "\" + cfile.
{&out} 'Binario ' oFile.
COPY-LOB FROM mFile TO FILE oFile NO-CONVERT.
END.
</SCRIPT>
</BODY>
</HTML>
