Редактировать: от downvote, я понимаю, что вы спрашиваете об отсутствии ответа DLL, для этого вы должны взглянуть на Pure ASP Upload или проверить это статья
Еще лучше, Google для "Загрузить чистый VBScript"
Но, более распространенным, проверенным, с более высокой производительностью решением является установка сторонней библиотеки.
Мне нравится AbcUpload от WebSuperGoo (бесплатно с лицензией LinkBack)
basicupload.htm
<html>
<body>
<form method="post" action="basicupload.asp" enctype="multipart/form-data">
<input type="file" name="filefield"><br>
<input type="submit" name="submit" value="submit">
</form>
<body>
</html>
basicupload.asp
<% @Language="VBScript" %>
<%
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = True
If theForm.Files("filefield").FileExists Then
theForm.Files("filefield").Save "myupload.dat"
End If
%>
<html>
<body>
File uploaded...
</body>
</html>