hi i find a lot of example that i can upload file with flash and php.. but
no example with asp..
please send me an example

marco.sottana@q-web.it

www.3viso.com

my icq:
210139517
my msn:
marco76tv@hotmail.com

can you attach this script please?


"ck1mark" <webforumsuser@macromedia.com> ha scritto nel messaggio
news:duinf3$s7m$1@forums.macromedia.com...
[quoted text, click to view]

i change upload.php with uploadexmple.asp

but give http error 500

file upload.asp

<%
'***************************************
' File: Upload.asp
' Author: Jacob "Beezle" Gilley
' Email: avis7@airmail.net
' Date: 12/07/2000
' Comments: The code for the Upload, CByteString,
' CWideString subroutines was originally
' written by Philippe Collignon...or so
' he claims. Also, I am not responsible
' for any ill effects this script may
' cause and provide this script "AS IS".
' Enjoy!
'****************************************

Class FileUploader
Public Files
Private mcolFormElem

Private Sub Class_Initialize()
Set Files = Server.CreateObject("Scripting.Dictionary")
Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
End Sub

Private Sub Class_Terminate()
If IsObject(Files) Then
Files.RemoveAll()
Set Files = Nothing
End If
If IsObject(mcolFormElem) Then
mcolFormElem.RemoveAll()
Set mcolFormElem = Nothing
End If
End Sub

Public Property Get Form(sIndex)
Form = ""
If mcolFormElem.Exists(LCase(sIndex)) Then Form =
mcolFormElem.Item(LCase(sIndex))
End Property

Public Default Sub Upload()
Dim biData, sInputName
Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
Dim nPosFile, nPosBound

biData = Request.BinaryRead(Request.TotalBytes)
nPosBegin = 1
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
nDataBoundPos = InstrB(1, biData, vDataBounds)

Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))

nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
nPos = InstrB(nPos, biData, CByteString("name="))
nPosBegin = nPos + 6
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
nPosBound = InstrB(nPosEnd, biData, vDataBounds)

If nPosFile <> 0 And nPosFile < nPosBound Then
Dim oUploadFile, sFileName
Set oUploadFile = New UploadedFile

nPosBegin = nPosFile + 10
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName,
"\"))

nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin,
nPosEnd-nPosBegin))

nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
Else
nPos = InstrB(nPos, biData, CByteString(Chr(13)))
nPosBegin = nPos + 4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add
LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
End If

nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData,
vDataBounds)
Loop
End Sub

'String to byte string conversion
Private Function CByteString(sString)
Dim nIndex
For nIndex = 1 to Len(sString)
CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
Next
End Function

'Byte string to string conversion
Private Function CWideString(bsString)
Dim nIndex
CWideString =""
For nIndex = 1 to LenB(bsString)
CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1)))
Next
End Function
End Class

Class UploadedFile
Public ContentType
Public FileName
Public FileData

Public Property Get FileSize()
FileSize = LenB(FileData)
End Property

Public Sub SaveToDisk(sPath)
Dim oFS, oFile
Dim nIndex

If sPath = "" Or FileName = "" Then Exit Sub
If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

Set oFS = Server.CreateObject("Scripting.FileSystemObject")
If Not oFS.FolderExists(sPath) Then Exit Sub

Set oFile = oFS.CreateTextFile(sPath & FileName, True)

For nIndex = 1 to LenB(FileData)
oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
Next

oFile.Close
End Sub

Public Sub SaveToDatabase(ByRef oField)
If LenB(FileData) = 0 Then Exit Sub

If IsObject(oField) Then
oField.AppendChunk FileData
End If
End Sub

End Class
%>

file uploadexmple.asp:


<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="upload.asp" -->
<%

'NOTE - YOU MUST HAVE VBSCRIPT v5.0 INSTALLED ON YOUR WEB SERVER
' FOR THIS LIBRARY TO FUNCTION CORRECTLY. YOU CAN OBTAIN IT
' FREE FROM MICROSOFT WHEN YOU INSTALL INTERNET EXPLORER 5.0
' OR LATER.


' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload()

'******************************************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************
'Response.Write "<b>Thank you for your upload " & Uploader.Form("fullname") &
"</b><br>"

' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
' Response.Write "File(s) not uploaded."
Else
' Loop through the uploaded files
For Each File In Uploader.Files.Items

' Check where the user wants to save the file

' Save the file
File.SaveToDisk "C:/Inetpub/wwwroot/FLASH-UPLOAD/upload_flashdb/"

Next
End If

%>

the module of MasRizal give me the error:

asp.net script from flash 8: actionscript Training from the source - get the
book its hot
and if i use this script would i need asp.net hosing?

<% @Page Language="C#" %>
<% @Import Namespace="System.Drawing" %>
<% @Import Namespace="System.Drawing.Imaging" %>
<% @Import Namespace="System.IO" %>
<% @Import Namespace="System.Text" %>

<script language="c#" runat="server">

private string _imageSize = "1";
private string _quick = "false";
private string _action = null;

private static string IMAGE_HANDLE = "ImageHandle";

private void Page_Load(Object sender, EventArgs e) {

_action = Request["action"];

if(_action == "post") {

HttpFileCollection files = Request.Files;

// Do we have anything to work with?
if(files.Count > 0) {

/*if(files[0].ContentType=="image/gif" ||
files[0].ContentType=="image/jpg" ||
files[0].ContentType=="image/jpeg" ||
files[0].ContentType=="image/pjpeg" ||
files[0].ContentType=="image/bmp")
{*/

try {
Session[IMAGE_HANDLE] = "<xmp>" + ConvertImage(files[0].InputStream,
_imageSize, _quick ) + "</xmp>";
} catch(Exception ex) {
Session[IMAGE_HANDLE] = "Error occured with the image upload! Message: "
+ ex.Message;
}
/*}
else
{
Session[IMAGE_HANDLE] = "Please upload a image of type gif or jpg!" +
"<br/><br/>You uploaded:" +
files[0].ContentType + "<br/>";
}*/

} else {
Session[IMAGE_HANDLE] = "You didn't upload anything!";
}

}

}

public static string ConvertImage(Stream stream, string ImageSize, string
Quick)
{
StringBuilder _asciiart = new StringBuilder();


System.Drawing.Image _img = System.Drawing.Image.FromStream(stream);
Bitmap _image = new Bitmap(_img, new Size(_img.Width, _img.Height));
_img.Dispose();


Rectangle bounds = new Rectangle(0, 0, _image.Width, _image.Height);


ColorMatrix _matrix = new ColorMatrix();

_matrix[0,0] = 1/3f;
_matrix[0,1] = 1/3f;
_matrix[0,2] = 1/3f;
_matrix[1,0] = 1/3f;
_matrix[1,1] = 1/3f;
_matrix[1,2] = 1/3f;
_matrix[2,0] = 1/3f;
_matrix[2,1] = 1/3f;
_matrix[2,2] = 1/3f;

ImageAttributes _attributes = new ImageAttributes();
_attributes.SetColorMatrix(_matrix);


Graphics gphGrey = Graphics.FromImage(_image);
gphGrey.DrawImage(_image, bounds, 0, 0, _image.Width, _image.Height,
GraphicsUnit.Pixel, _attributes);

gphGrey.Dispose();



int _pixwidth;

switch (ImageSize)
{
case "1":
{
_pixwidth = 1;
break;
}
case "2":
{
_pixwidth = 2;
break;
}
case "4":
{
_pixwidth = 6;
break;
}
case "5":
{
_pixwidth = 8;
break;
}
default:
{
_pixwidth = 3;
break;
}
}
int _pixhight = _pixwidth * 2;
int _pixseg = _pixwidth * _pixhight;

for(int h=0; h < _image.Height / _pixhight; h++)
{
// segment hight
int _startY = (h * _pixhight);
// segment width
for(int w = 0; w < _image.Width / _pixwidth; w++)
{
int _startX = (w *_pixwidth);
int _allBrightness = 0;

if(Quick == "True")
{
// each pix of this segment
for(int y = 0; y < _pixwidth; y++)
{
try
{
Color _c = _image.GetPixel(_startX,y+_startY);
int _b = (int)(_c.GetBrightness() * 100);
_allBrightness = _allBrightness + _b;
}
catch
{
_allBrightness = (_allBrightness + 50);
}
}
}
else
{
// each pix of this segment
for(int y = 0; y < _pixwidth; y++)
{
for(int x = 0; x < _pixhight; x++)
{
int _cY = y + _startY;
int _cX = x + _startX;
try
{
Color _c = _image.GetPixel(_cX, _cY);
int _b = (int)(_c.GetBrightness() * 100);
_allBrightness = _allBrightness + _b;
}
catch
{
_allBrightness = (_allBrightness + 50);
}
}
}
}

int _sb = (_allBrightness / _pixseg);

if (_sb < 10 )
{
_asciiart.Append("#");
}
else if (_sb < 17 )
{
_asciiart.Append("@");
}
else if (_sb < 24)
{
_asciiart.Append("&");
}
else if (_sb < 31)
{
_asciiart.Append("$");
}
else if (_sb < 38)
{
_asciiart.Append("%");
}
else if (_sb < 45)
{
_asciiart.Append("|");
}
else if (_sb < 52)
{
_asciiart.Append("!");
}
else if (_sb < 59)
{
_asciiart.Append(";");
}
else if (_sb < 66)
{
_asciiart.Append(":");
}
else if (_sb < 73)
{
_asciiart.Append("'");
}
else if (_sb < 80)
{
_asciiart.Append("`");
}
else if (_sb < 87)
{
_asciiart.Append(".");
}
else
{
_asciiart.Append(" ");
}
}
_asciiart.Append("\n");
}

//clean up
_image.Dispose();

return _asciiart.ToString();

}


</script>

<%
if(_action == null) {
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Upload Test Form</title>
</head>

<body>

<form action="FileUpload.aspx?action=post" method="post"
enctype="multipart/form-data">
<input type="file" name="fileUpload" size="20">
<input type="submit" value=" Go ">
</form>

</body>
</html>

<%
} else if(_action == "view") {
%>
<%=Session[IMAGE_HANDLE]%>
<%
}
%>