Problem Uploading files using ASPUpload using Azure Storage File Service (Network Drive)

 
<?php
$uploadFile = $_POST['filename'] // THIS WILL BE YOUR FILE NAME;
$passcode = $_POST['passcode']; //POST A PASSCODE IN YOUR ASP PAGE TO PREVENT THIS FROM FIRING BY ACCIDENT

// ASSUME PASSCODE IS 'ABC123'

if $passcode != 'ABC123' {
    die('Please see the site admin');  // If wrong passcode, stop processing and print out error to screen
}


 $myfile = fopen($passcode, "w") or die("Unable to open file!");
    fclose($myfile);

    # Upload file as a block blob
    echo "Uploading BlockBlob: ".PHP_EOL;
    echo $fileToUpload;
    echo "<br />";

    $content = fopen($fileToUpload, "r");

    //Upload blob
    $blobClient->createBlockBlob($containerName, $fileToUpload, $content);

Select allOpen in new window

  $myfile = fopen("HelloWorld.txt", "w") or die("Unable to open file!");
    fclose($myfile);

    # Upload file as a block blob
    echo "Uploading BlockBlob: ".PHP_EOL;
    echo $fileToUpload;
    echo "<br />";

    $content = fopen($fileToUpload, "r");

    //Upload blob
    $blobClient->createBlockBlob($containerName, $fileToUpload, $content);

Select allOpen in new window

<%@ Language=vbScript%>
<%

fileToUpload = "myFile.txt"

DataToSend = "passcode=ABC123&file="&fileToUpload
dim xmlhttp 
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","http://mysite.com/upload.php",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send DataToSend
Response.ContentType = "text/plain"    ' ******** CHANGED TO TEXT/PLAIN ******************
Response.Write xmlhttp.responseText   ' *********CHANGED TO RESPONSETEXT *****************
        Set xmlhttp = nothing
%>

Select allOpen in new window

Set Upload = Server.CreateObject("Persits.Upload")
Upload.LogonUser "mydomain", "Administrator", "xxxxxxxxx"

Select allOpen in new window

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFile "c:\web\*.gif","c:\images\"
set fs=nothing
%>

Select allOpen in new window