Web Wiz Forums version 7.8 - upload ... - Web Wiz Support and Community Forums

Web Wiz Forums version 7.8 - upload ...

My server only support this upload component

ABCUpload
Server.CreateObject("ABCUpload4.XForm")

I have no ideal how to set the current Web wiz forums v7.8 so that the forum can have the upload function.

ABCUpload is an ActiveX component - a user has to upload and install it on their local machine. Not likely to be done by anyone with any sort of security awareness.

The upload components currently used by WWF are server-side components only. The user doesn't need to install anything.

Lead me not into temptation... I know the short cut, follow me.

-boRg- wrote:

ABCUpload, thats a new one I've never heard of before.

This would be quite a difficult task unless you are good with ASP.

You would need to edit the functions/functions_upload.asp file to add
in all the methods and properties of this component in order to make the
forum work with it.

For this functions/functions_upload.asp i have edit because the script are not easy match with so need the developer help

Example for this ABCUpload

<%'Basic Upload%>
<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>
--------------
<% @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>

=======================================
<%'Image Upload %>
<html>
<body>
<form method="post" action="imageupload.asp" enctype="multipart/form-data">
<input type="file" name="image1"><br>
<input type="file" name="image2"><br>
<input type="submit" name="submit" value="submit">
</form>
<body>
</html>
----
<% @Language="VBScript" %>
<%
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = True
Set theField = theForm.Files("image1")
If theField.FileExists Then theField.Save theField.FileName
Set theField = theForm.Files("image2")
If theField.FileExists Then theField.Save theField.FileName
%>
<html>
<body>
Images uploaded...
</body>
</html>

==========================================
<%'Upload to File server %>
<html>
<body>
<form method="post" action="sfmupload.asp" enctype="multipart/form-data">
<input type="file" name="file"><br>
<input type="submit" name="submit" value="submit">
</form>
<body>
</html>
------
<% @Language="VBScript" %>
<html>
<body>
<%
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.AbsolutePath = True
Set theField = theForm.Files("file")
If theField.FileExists Then
theField.Save "C:\" & theField.SafeFileName
Response.Write "File uploaded..."
Else
Response.Write "No file uploaded..."
End If
%>
</body>
</html>