novice2002
Programmer
hi for all those who replied to my earlier question on passing an object from one page to another
well below is the code that i am using .hope it gives a clearer picture
the first one is from a the leftload frame of a page that has frames called lefload,left,top1,right,righttopand rightbottob
all the other frames are used just to display what was selected by three browse buttons on leftload.asp
leftload.asp
<%@ Language=VBScript %>
<!-- #include file="clsUpload.asp" -->
<form method=post
enctype="multipart/form-data"
action=leftload.asp name=gaurav>
<head>
<title></title>
</head>
<p><BR>
<BR>
<BR>
Click Browse to place file in <u>Frame A</u><BR>
<input type=file name=YourFile size=5>
<BR>
Click Browse to place file in <u>Frame B</u><BR>
<input type=file name=YourFile1 size=5>
<BR>
Click Browse to place file in <u>Frame C</u><BR>
<input type=file name=YourFile2 size=5>
<BR><input type=button name=test>
<input type=hidden name=YourName1>
<input type=hidden name=YourName>
<BR>
<input type=hidden name=YourName2>
<input type=button name=cmdSubmit value="Upload">
<input type=hidden name=lecturename>
<input type=hidden name=courselist>
</p>
</form>
<body background="bg.gif">
<p>
<input type=button name=kwinsert value=click>
<SCRIPT LANGUAGE="VBScript">
sub yourfile_onchange
dim theform
set theform=document.gaurav
sfile=theform.yourfile.value
dim oRSFrame
Set oRSFrame =parent.left
oRSFrame.navigate sfile
set oRSFRame = nothing
end sub
sub yourfile1_onchange
dim theform
set theform=document.gaurav
sfile1=theform.yourfile1.value
dim oRSFrame
Set oRSFrame =parent.righttop
oRSFrame.navigate sfile1
set oRSFRame = nothing
end sub
sub yourfile2_onchange
dim theform
set theform=document.gaurav
sfile2=theform.yourfile2.value
dim oRSFrame
Set oRSFrame =parent.rightbottom
oRSFrame.navigate sfile2
set oRSFRame = nothing
end sub
'sub test_onclick
'parent.leftload.document.gaurav.yourfile2.click()
'end sub
sub cmdSubmit_onClick
parent.leftload.document.gaurav.lecturename.value=parent.top1.document.tf.lecturename.value
parent.leftload.document.gaurav.courselist.value=parent.top1.document.tf.courselist.options(parent.top1.document.tf.courselist.selectedIndex).text
Document.gaurav.Submit
end sub
Sub kwinsert_onclick
Dim windowHandle
Set windowHandle = window.open("keyword.htm",scrollbars="yes","width=500,height=700"
if not windowHandle.opener then
set windowHandle.opener = self
end if
end sub
</script>
<HR>
<%
Dim objUpload, lngLoop
If Request.TotalBytes > 0 Then
Set objUpload = New clsUpload
%>
File(s) Uploaded: <%= objUpload.Files.Count %>
<BR><BR>
<%'upload was here
%>
<!--Form Element Name:
<%= objUpload.Files.Key(lngLoop) %>
<BR>
File Name:
<%= objUpload.Files.Item(lngLoop).FileName %>
<BR><BR>-->
<%
'next was here
%><!--
Other Form Element(s): <%= objUpload.Form.Count %>
<BR><BR>
<%
For lngLoop = 0 to objUpload.Form.Count - 1
%>
Form Element Name:
<%= objUpload.Form.Key(lngLoop) %>
<BR>
Form Element Value:
<%= objUpload.Form.Item(lngLoop) %>
<BR><BR>
<%
Next
%>-->
<%
dim MyRS
dim yourfile
dim yourfile1
dim yourfile2
Set MyConn=Server.CreateObject("ADODB.Connection"
set Myrs= Server.createobject("ADODB.recordset"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("lect.mdb"
lfr = objUpload.files.Item("yourfile".filename
rtfr = objUpload.Files.Item("yourfile1".filename
rbfr = objUpload.Files.Item("yourfile2".filename
lname = objUpload.Form.Item("lecturename"
clist=objUpload.Form.Item("Courselist"
strCheckDB="SELECT CourseCode, LectureName FROM Lecture WHERE CourseCode='"& clist & "' AND Lecturename='" & lname & "'"
'Myrs.open strCheckdb,myconn,1
'MyrS = MyConn.execute(strCheckdb)
'new code
Myrs.CursorLocation= 3
Myrs.open strCheckdb,myconn
response.write "recordcount: " &Myrs.Recordcount
if MyrS.Recordcount = 0 Then
For lngLoop = 0 to objUpload.Files.Count - 1
'If accessing this page annonymously,
'the internet guest account must have
'write permission to the path below.
lname= objUpload.Form.Item("Lecturename"
clist=objUpload.Form.Item("Courselist"
set fs=createobject("scripting.filesystemobject"
MyFolder=server.mappath("lecturedata\"&clist )
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
MyFolder=server.mappath("lecturedata\"&clist&"\"&lname )
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
objUpload.Files.Item(lngLoop).Save myfolder
Next
strAddToLecture="INSERT INTO Lecture(CourseCode,LectureName, RTopMedia, RBottomMedia,LeftMedia) VALUES('"&clist&"','"&lname&"', '" & lfr & "', '" & rtfr & "', '" & rbfr & "')"
MyConn.execute(strAddToLecture)
'cleanup routines
else
Set session("OverWriteFiles"=objupload
response.write session("OverWriteFiles".Item("yourfile".filename
'response.redirect "update.asp"
end if
Sub CleanUp(RS)
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
End Sub
Sub CleanUp2()
MyConn.Close
Set MyConn = Nothing
End Sub
End If
%>
code for clsupload(obtained from palnetsourcecode)
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Class clsUpload
'========================================================='
' This class will parse the binary contents of the '
' request, and populate the Form and Files collections. '
'========================================================='
Private m_objFiles
Private m_objForm
Public Property Get Form()
Set Form = m_objForm
End Property
Public Property Get Files()
Set Files = m_objFiles
End Property
Private Sub Class_Initialize()
Set m_objFiles = New clsCollection
Set m_objForm = New clsCollection
ParseRequest
End Sub
Private Sub ParseRequest()
Dim lngTotalBytes, lngPosBeg, lngPosEnd, lngPosBoundary, lngPosTmp, lngPosFileName
Dim strBRequest, strBBoundary, strBContent
Dim strName, strFileName, strContentType, strValue, strTemp
Dim objFile
'Grab the entire contents of the Request as a Byte string
lngTotalBytes = Request.TotalBytes
strBRequest = Request.BinaryRead(lngTotalBytes)
'Find the first Boundary
lngPosBeg = 1
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2Bstr(Chr(13)))
If lngPosEnd > 0 Then
strBBoundary = MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg)
lngPosBoundary = InStrB(1, strBRequest, strBBoundary)
End If
If strBBoundary = "" Then
'The form must have been submitted *without* ENCTYPE="multipart/form-data"
'But since we already called Request.BinaryRead, we can no longer access
'the Request.Form collection, so we need to parse the request and populate
'our own form collection.
lngPosBeg = 1
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr("&")
Do While lngPosBeg < LenB(strBRequest)
'Parse the element and add it to the collection
strTemp = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
lngPosTmp = InStr(1, strTemp, "="
strName = URLDecode(Left(strTemp, lngPosTmp - 1))
strValue = URLDecode(Right(strTemp, Len(strTemp) - lngPosTmp))
m_objForm.Add strName, strValue
'Find the next element
lngPosBeg = lngPosEnd + 1
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr("&")
If lngPosEnd = 0 Then lngPosEnd = LenB(strBRequest) + 1
Loop
Else
'The form was submitted with ENCTYPE="multipart/form-data"
'Loop through all the boundaries, and parse them into either the
'Form or Files collections.
Do Until (lngPosBoundary = InStrB(strBRequest, strBBoundary & UStr2Bstr("--"))
'Get the element name
lngPosTmp = InStrB(lngPosBoundary, strBRequest, UStr2BStr("Content-Disposition")
lngPosTmp = InStrB(lngPosTmp, strBRequest, UStr2BStr("name=")
lngPosBeg = lngPosTmp + 6
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr(Chr(34)))
strName = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Look for an element named 'filename'
lngPosFileName = InStrB(lngPosBoundary, strBRequest, UStr2BStr("filename=")
'If found, we have a file, otherwise it is a normal form element
If lngPosFileName <> 0 And lngPosFileName < InStrB(lngPosEnd, strBRequest, strBBoundary) Then 'It is a file
'Get the FileName
lngPosBeg = lngPosFileName + 10
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr(chr(34)))
strFileName = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Get the ContentType
lngPosTmp = InStrB(lngPosEnd, strBRequest, UStr2BStr("Content-Type:")
lngPosBeg = lngPosTmp + 14
lngPosEnd = InstrB(lngPosBeg, strBRequest, UStr2BStr(chr(13)))
strContentType = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Get the Content
lngPosBeg = lngPosEnd + 4
lngPosEnd = InStrB(lngPosBeg, strBRequest, strBBoundary) - 2
strBContent = MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg)
If strFileName <> "" And strBContent <> "" Then
'Create the File object, and add it to the Files collection
Set objFile = New clsFile
objFile.Name = strName
objFile.FileName = Right(strFileName, Len(strFileName) - InStrRev(strFileName, "\")
objFile.ContentType = strContentType
objFile.Blob = strBContent
m_objFiles.Add strName, objFile
End If
Else 'It is a form element
'Get the value of the form element
lngPosTmp = InStrB(lngPosTmp, strBRequest, UStr2BStr(chr(13)))
lngPosBeg = lngPosTmp + 4
lngPosEnd = InStrB(lngPosBeg, strBRequest, strBBoundary) - 2
strValue = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Add the element to the collection
m_objForm.Add strName, strValue
End If
'Move to Next Element
lngPosBoundary = InStrB(lngPosBoundary + LenB(strBBoundary), strBRequest, strBBoundary)
Loop
End If
End Sub
Private Function BStr2UStr(BStr)
'Byte string to Unicode string conversion
Dim lngLoop
BStr2UStr = ""
For lngLoop = 1 to LenB(BStr)
BStr2UStr = BStr2UStr & Chr(AscB(MidB(BStr,lngLoop,1)))
Next
End Function
Private Function UStr2Bstr(UStr)
'Unicode string to Byte string conversion
Dim lngLoop
Dim strChar
UStr2Bstr = ""
For lngLoop = 1 to Len(UStr)
strChar = Mid(UStr, lngLoop, 1)
UStr2Bstr = UStr2Bstr & ChrB(AscB(strChar))
Next
End Function
Private Function URLDecode(Expression)
'Why doesn't ASP provide this functionality for us?
Dim strSource, strTemp, strResult
Dim lngPos
strSource = Replace(Expression, "+", " "
For lngPos = 1 To Len(strSource)
strTemp = Mid(strSource, lngPos, 1)
If strTemp = "%" Then
If lngPos + 2 < Len(strSource) Then
strResult = strResult & Chr(CInt("&H" & Mid(strSource, lngPos + 1, 2)))
lngPos = lngPos + 2
End If
Else
strResult = strResult & strTemp
End If
Next
URLDecode = strResult
End Function
End Class
Class clsCollection
'========================================================='
' This class is a pseudo-collection. It is not a real '
' collection, because there is no way that I am aware '
' of to implement an enumerator to support the '
' For..Each syntax using VBScript classes. '
'========================================================='
Private m_objDicItems
Private Sub Class_Initialize()
Set m_objDicItems = Server.CreateObject("Scripting.Dictionary"
m_objDicItems.CompareMode = vbTextCompare
End Sub
Public Property Get Count()
Count = m_objDicItems.Count
End Property
Public Default Function Item(Index)
Dim arrItems
If IsNumeric(Index) Then
arrItems = m_objDicItems.Items
If IsObject(arrItems(Index)) Then
Set Item = arrItems(Index)
Else
Item = arrItems(Index)
End If
Else
If m_objDicItems.Exists(Index) Then
If IsObject(m_objDicItems.Item(Index)) Then
Set Item = m_objDicItems.Item(Index)
Else
Item = m_objDicItems.Item(Index)
End If
End If
End If
End Function
Public Function Key(Index)
Dim arrKeys
If IsNumeric(Index) Then
arrKeys = m_objDicItems.Keys
Key = arrKeys(Index)
End If
End Function
Public Sub Add(Name, Value)
If m_objDicItems.Exists(Name) Then
m_objDicItems.Item(Name) = Value
Else
m_objDicItems.Add Name, Value
End If
End Sub
End Class
Class clsFile
'========================================================='
' This class is used as a container for a file sent via '
' an http multipart/form-data post. '
'========================================================='
Private m_strName
Private m_strContentType
Private m_strFileName
Private m_Blob
Public Property Get Name() : Name = m_strName : End Property
Public Property Let Name(vIn) : m_strName = vIn : End Property
Public Property Get ContentType() : ContentType = m_strContentType : End Property
Public Property Let ContentType(vIn) : m_strContentType = vIn : End Property
Public Property Get FileName() : FileName = m_strFileName : End Property
Public Property Let FileName(vIn) : m_strFileName = vIn : End Property
Public Property Get Blob() : Blob = m_Blob : End Property
Public Property Let Blob(vIn) : m_Blob = vIn : End Property
Public Sub Save(Path)
Dim objFSO, objFSOFile
Dim lngLoop
Set objFSO = Server.CreateObject("Scripting.FileSystemObject"
Set objFSOFile = objFSO.CreateTextFile(objFSO.BuildPath(Path, m_strFileName))
For lngLoop = 1 to LenB(m_Blob)
objFSOFile.Write Chr(AscB(MidB(m_Blob, lngLoop, 1)))
Next
objFSOFile.Close
End Sub
End Class
</SCRIPT>
the reason why i asked to pass the object clsupload was becaue when a user tries to upload a lecture with the same name that already exists in the db he is redirected to a page called update.asp which gives him the option to overwrite or save as new lecture. thus while all this goes on i wanted to pass the object so that values in the pbject could be uesd in this new page.
thanks for your help
well below is the code that i am using .hope it gives a clearer picture
the first one is from a the leftload frame of a page that has frames called lefload,left,top1,right,righttopand rightbottob
all the other frames are used just to display what was selected by three browse buttons on leftload.asp
leftload.asp
<%@ Language=VBScript %>
<!-- #include file="clsUpload.asp" -->
<form method=post
enctype="multipart/form-data"
action=leftload.asp name=gaurav>
<head>
<title></title>
</head>
<p><BR>
<BR>
<BR>
Click Browse to place file in <u>Frame A</u><BR>
<input type=file name=YourFile size=5>
<BR>
Click Browse to place file in <u>Frame B</u><BR>
<input type=file name=YourFile1 size=5>
<BR>
Click Browse to place file in <u>Frame C</u><BR>
<input type=file name=YourFile2 size=5>
<BR><input type=button name=test>
<input type=hidden name=YourName1>
<input type=hidden name=YourName>
<BR>
<input type=hidden name=YourName2>
<input type=button name=cmdSubmit value="Upload">
<input type=hidden name=lecturename>
<input type=hidden name=courselist>
</p>
</form>
<body background="bg.gif">
<p>
<input type=button name=kwinsert value=click>
<SCRIPT LANGUAGE="VBScript">
sub yourfile_onchange
dim theform
set theform=document.gaurav
sfile=theform.yourfile.value
dim oRSFrame
Set oRSFrame =parent.left
oRSFrame.navigate sfile
set oRSFRame = nothing
end sub
sub yourfile1_onchange
dim theform
set theform=document.gaurav
sfile1=theform.yourfile1.value
dim oRSFrame
Set oRSFrame =parent.righttop
oRSFrame.navigate sfile1
set oRSFRame = nothing
end sub
sub yourfile2_onchange
dim theform
set theform=document.gaurav
sfile2=theform.yourfile2.value
dim oRSFrame
Set oRSFrame =parent.rightbottom
oRSFrame.navigate sfile2
set oRSFRame = nothing
end sub
'sub test_onclick
'parent.leftload.document.gaurav.yourfile2.click()
'end sub
sub cmdSubmit_onClick
parent.leftload.document.gaurav.lecturename.value=parent.top1.document.tf.lecturename.value
parent.leftload.document.gaurav.courselist.value=parent.top1.document.tf.courselist.options(parent.top1.document.tf.courselist.selectedIndex).text
Document.gaurav.Submit
end sub
Sub kwinsert_onclick
Dim windowHandle
Set windowHandle = window.open("keyword.htm",scrollbars="yes","width=500,height=700"
if not windowHandle.opener then
set windowHandle.opener = self
end if
end sub
</script>
<HR>
<%
Dim objUpload, lngLoop
If Request.TotalBytes > 0 Then
Set objUpload = New clsUpload
%>
File(s) Uploaded: <%= objUpload.Files.Count %>
<BR><BR>
<%'upload was here
%>
<!--Form Element Name:
<%= objUpload.Files.Key(lngLoop) %>
<BR>
File Name:
<%= objUpload.Files.Item(lngLoop).FileName %>
<BR><BR>-->
<%
'next was here
%><!--
Other Form Element(s): <%= objUpload.Form.Count %>
<BR><BR>
<%
For lngLoop = 0 to objUpload.Form.Count - 1
%>
Form Element Name:
<%= objUpload.Form.Key(lngLoop) %>
<BR>
Form Element Value:
<%= objUpload.Form.Item(lngLoop) %>
<BR><BR>
<%
Next
%>-->
<%
dim MyRS
dim yourfile
dim yourfile1
dim yourfile2
Set MyConn=Server.CreateObject("ADODB.Connection"
set Myrs= Server.createobject("ADODB.recordset"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("lect.mdb"
lfr = objUpload.files.Item("yourfile"
.filenamertfr = objUpload.Files.Item("yourfile1"
.filenamerbfr = objUpload.Files.Item("yourfile2"
.filenamelname = objUpload.Form.Item("lecturename"
clist=objUpload.Form.Item("Courselist"
strCheckDB="SELECT CourseCode, LectureName FROM Lecture WHERE CourseCode='"& clist & "' AND Lecturename='" & lname & "'"
'Myrs.open strCheckdb,myconn,1
'MyrS = MyConn.execute(strCheckdb)
'new code
Myrs.CursorLocation= 3
Myrs.open strCheckdb,myconn
response.write "recordcount: " &Myrs.Recordcount
if MyrS.Recordcount = 0 Then
For lngLoop = 0 to objUpload.Files.Count - 1
'If accessing this page annonymously,
'the internet guest account must have
'write permission to the path below.
lname= objUpload.Form.Item("Lecturename"
clist=objUpload.Form.Item("Courselist"
set fs=createobject("scripting.filesystemobject"
MyFolder=server.mappath("lecturedata\"&clist )
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
MyFolder=server.mappath("lecturedata\"&clist&"\"&lname )
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
objUpload.Files.Item(lngLoop).Save myfolder
Next
strAddToLecture="INSERT INTO Lecture(CourseCode,LectureName, RTopMedia, RBottomMedia,LeftMedia) VALUES('"&clist&"','"&lname&"', '" & lfr & "', '" & rtfr & "', '" & rbfr & "')"
MyConn.execute(strAddToLecture)
'cleanup routines
else
Set session("OverWriteFiles"
=objuploadresponse.write session("OverWriteFiles"
.Item("yourfile".filename'response.redirect "update.asp"
end if
Sub CleanUp(RS)
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
End Sub
Sub CleanUp2()
MyConn.Close
Set MyConn = Nothing
End Sub
End If
%>
code for clsupload(obtained from palnetsourcecode)
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Class clsUpload
'========================================================='
' This class will parse the binary contents of the '
' request, and populate the Form and Files collections. '
'========================================================='
Private m_objFiles
Private m_objForm
Public Property Get Form()
Set Form = m_objForm
End Property
Public Property Get Files()
Set Files = m_objFiles
End Property
Private Sub Class_Initialize()
Set m_objFiles = New clsCollection
Set m_objForm = New clsCollection
ParseRequest
End Sub
Private Sub ParseRequest()
Dim lngTotalBytes, lngPosBeg, lngPosEnd, lngPosBoundary, lngPosTmp, lngPosFileName
Dim strBRequest, strBBoundary, strBContent
Dim strName, strFileName, strContentType, strValue, strTemp
Dim objFile
'Grab the entire contents of the Request as a Byte string
lngTotalBytes = Request.TotalBytes
strBRequest = Request.BinaryRead(lngTotalBytes)
'Find the first Boundary
lngPosBeg = 1
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2Bstr(Chr(13)))
If lngPosEnd > 0 Then
strBBoundary = MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg)
lngPosBoundary = InStrB(1, strBRequest, strBBoundary)
End If
If strBBoundary = "" Then
'The form must have been submitted *without* ENCTYPE="multipart/form-data"
'But since we already called Request.BinaryRead, we can no longer access
'the Request.Form collection, so we need to parse the request and populate
'our own form collection.
lngPosBeg = 1
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr("&"
)Do While lngPosBeg < LenB(strBRequest)
'Parse the element and add it to the collection
strTemp = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
lngPosTmp = InStr(1, strTemp, "="
strName = URLDecode(Left(strTemp, lngPosTmp - 1))
strValue = URLDecode(Right(strTemp, Len(strTemp) - lngPosTmp))
m_objForm.Add strName, strValue
'Find the next element
lngPosBeg = lngPosEnd + 1
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr("&"
)If lngPosEnd = 0 Then lngPosEnd = LenB(strBRequest) + 1
Loop
Else
'The form was submitted with ENCTYPE="multipart/form-data"
'Loop through all the boundaries, and parse them into either the
'Form or Files collections.
Do Until (lngPosBoundary = InStrB(strBRequest, strBBoundary & UStr2Bstr("--"
))'Get the element name
lngPosTmp = InStrB(lngPosBoundary, strBRequest, UStr2BStr("Content-Disposition"
)lngPosTmp = InStrB(lngPosTmp, strBRequest, UStr2BStr("name="
)lngPosBeg = lngPosTmp + 6
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr(Chr(34)))
strName = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Look for an element named 'filename'
lngPosFileName = InStrB(lngPosBoundary, strBRequest, UStr2BStr("filename="
)'If found, we have a file, otherwise it is a normal form element
If lngPosFileName <> 0 And lngPosFileName < InStrB(lngPosEnd, strBRequest, strBBoundary) Then 'It is a file
'Get the FileName
lngPosBeg = lngPosFileName + 10
lngPosEnd = InStrB(lngPosBeg, strBRequest, UStr2BStr(chr(34)))
strFileName = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Get the ContentType
lngPosTmp = InStrB(lngPosEnd, strBRequest, UStr2BStr("Content-Type:"
)lngPosBeg = lngPosTmp + 14
lngPosEnd = InstrB(lngPosBeg, strBRequest, UStr2BStr(chr(13)))
strContentType = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Get the Content
lngPosBeg = lngPosEnd + 4
lngPosEnd = InStrB(lngPosBeg, strBRequest, strBBoundary) - 2
strBContent = MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg)
If strFileName <> "" And strBContent <> "" Then
'Create the File object, and add it to the Files collection
Set objFile = New clsFile
objFile.Name = strName
objFile.FileName = Right(strFileName, Len(strFileName) - InStrRev(strFileName, "\"
)objFile.ContentType = strContentType
objFile.Blob = strBContent
m_objFiles.Add strName, objFile
End If
Else 'It is a form element
'Get the value of the form element
lngPosTmp = InStrB(lngPosTmp, strBRequest, UStr2BStr(chr(13)))
lngPosBeg = lngPosTmp + 4
lngPosEnd = InStrB(lngPosBeg, strBRequest, strBBoundary) - 2
strValue = BStr2UStr(MidB(strBRequest, lngPosBeg, lngPosEnd - lngPosBeg))
'Add the element to the collection
m_objForm.Add strName, strValue
End If
'Move to Next Element
lngPosBoundary = InStrB(lngPosBoundary + LenB(strBBoundary), strBRequest, strBBoundary)
Loop
End If
End Sub
Private Function BStr2UStr(BStr)
'Byte string to Unicode string conversion
Dim lngLoop
BStr2UStr = ""
For lngLoop = 1 to LenB(BStr)
BStr2UStr = BStr2UStr & Chr(AscB(MidB(BStr,lngLoop,1)))
Next
End Function
Private Function UStr2Bstr(UStr)
'Unicode string to Byte string conversion
Dim lngLoop
Dim strChar
UStr2Bstr = ""
For lngLoop = 1 to Len(UStr)
strChar = Mid(UStr, lngLoop, 1)
UStr2Bstr = UStr2Bstr & ChrB(AscB(strChar))
Next
End Function
Private Function URLDecode(Expression)
'Why doesn't ASP provide this functionality for us?
Dim strSource, strTemp, strResult
Dim lngPos
strSource = Replace(Expression, "+", " "
For lngPos = 1 To Len(strSource)
strTemp = Mid(strSource, lngPos, 1)
If strTemp = "%" Then
If lngPos + 2 < Len(strSource) Then
strResult = strResult & Chr(CInt("&H" & Mid(strSource, lngPos + 1, 2)))
lngPos = lngPos + 2
End If
Else
strResult = strResult & strTemp
End If
Next
URLDecode = strResult
End Function
End Class
Class clsCollection
'========================================================='
' This class is a pseudo-collection. It is not a real '
' collection, because there is no way that I am aware '
' of to implement an enumerator to support the '
' For..Each syntax using VBScript classes. '
'========================================================='
Private m_objDicItems
Private Sub Class_Initialize()
Set m_objDicItems = Server.CreateObject("Scripting.Dictionary"
m_objDicItems.CompareMode = vbTextCompare
End Sub
Public Property Get Count()
Count = m_objDicItems.Count
End Property
Public Default Function Item(Index)
Dim arrItems
If IsNumeric(Index) Then
arrItems = m_objDicItems.Items
If IsObject(arrItems(Index)) Then
Set Item = arrItems(Index)
Else
Item = arrItems(Index)
End If
Else
If m_objDicItems.Exists(Index) Then
If IsObject(m_objDicItems.Item(Index)) Then
Set Item = m_objDicItems.Item(Index)
Else
Item = m_objDicItems.Item(Index)
End If
End If
End If
End Function
Public Function Key(Index)
Dim arrKeys
If IsNumeric(Index) Then
arrKeys = m_objDicItems.Keys
Key = arrKeys(Index)
End If
End Function
Public Sub Add(Name, Value)
If m_objDicItems.Exists(Name) Then
m_objDicItems.Item(Name) = Value
Else
m_objDicItems.Add Name, Value
End If
End Sub
End Class
Class clsFile
'========================================================='
' This class is used as a container for a file sent via '
' an http multipart/form-data post. '
'========================================================='
Private m_strName
Private m_strContentType
Private m_strFileName
Private m_Blob
Public Property Get Name() : Name = m_strName : End Property
Public Property Let Name(vIn) : m_strName = vIn : End Property
Public Property Get ContentType() : ContentType = m_strContentType : End Property
Public Property Let ContentType(vIn) : m_strContentType = vIn : End Property
Public Property Get FileName() : FileName = m_strFileName : End Property
Public Property Let FileName(vIn) : m_strFileName = vIn : End Property
Public Property Get Blob() : Blob = m_Blob : End Property
Public Property Let Blob(vIn) : m_Blob = vIn : End Property
Public Sub Save(Path)
Dim objFSO, objFSOFile
Dim lngLoop
Set objFSO = Server.CreateObject("Scripting.FileSystemObject"
Set objFSOFile = objFSO.CreateTextFile(objFSO.BuildPath(Path, m_strFileName))
For lngLoop = 1 to LenB(m_Blob)
objFSOFile.Write Chr(AscB(MidB(m_Blob, lngLoop, 1)))
Next
objFSOFile.Close
End Sub
End Class
</SCRIPT>
the reason why i asked to pass the object clsupload was becaue when a user tries to upload a lecture with the same name that already exists in the db he is redirected to a page called update.asp which gives him the option to overwrite or save as new lecture. thus while all this goes on i wanted to pass the object so that values in the pbject could be uesd in this new page.
thanks for your help