Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > ASP .Net Web Services > Timeout? in asp script upload

Reply
Thread Tools

Timeout? in asp script upload

 
 
Scott Baxter
Guest
Posts: n/a
 
      03-16-2005
Hello,

I got the following scripts to upload files to my directories

I call insert.htm

Browse for a file, then click 'submit'

It works for small files, and for a small .mdb (access file)

But for any larger file, it quits and give me 'page not found'

Is there some kind of timeout I can set?

Note: insert.htm calls insert.asp, call load.asp

Thanks:

Insert.asp:

<!-- insert.htm -->
<html>
<head>
<title>File Uploading with ASP</title>
<style>
body, input { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>File Uploading with ASP</b><br>
<a href="show.asp">To see uploaded data click here</a>
</p>

<table border="0" align="center">
<tr>
<form method="POST" enctype="multipart/form-data" action="Insert.asp">
<td>Name :</td><td>
<input type="text" name="name" size="40"></td></tr>
<td>File :</td><td>
<input type="file" name="file" size="40"></td></tr>
<td> </td><td>
<input type="submit" value="Submit"></td></tr>
</form>
</tr>
</table>

</body>
</html>


insert.asp:

<% ' Insert.asp %>
<!--#include file="Loader.asp"-->
<%

Response.Buffer = True

' load object
Dim load
Set load = new Loader

' calling initialize method
load.initialize
response.write "<br>hi1122"

' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
' File path
Dim filePath
filePath = load.getFilePath("file")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' File size
Dim fileSize
fileSize = load.getFileSize("file")
' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Content Type
Dim contentType
contentType = load.getContentType("file")
' No. of Form elements
Dim countElements
countElements = load.Count
' Value of text input field "name"
Dim nameInput
nameInput = load.getValue("name")
' Path where file will be uploaded
Dim pathToFile
' pathToFile = Server.mapPath("uploaded/") & "\" & fileName
pathToFile = Server.mapPath("businesssearch/") & "\" & fileName
' Uploading file data
response.write "<br>hi112233"
response.write "<br> " & pathtofile
'response.end
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)
'response.write "<br>hi112233444"
'response.end
' destroying load object
Set load = Nothing
%>

<html>
<head>
<title>File Uploading with ASP</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>File Uploading with ASP</b><br>
<a href="show.asp">To see uploaded files click here</a>
</p>

<table width="700" border="1" align="center">
<tr>
<td>File Name</td><td><%= fileName %></td>
</tr><tr>
<td>File Path</td><td><%= filePath %></td>
</tr><tr>
<td>File Path Complete</td><td><%= filePathComplete %></td>
</tr><tr>
<td>File Size</td><td><%= fileSize %></td>
</tr><tr>
<td>File Size Translated</td><td><%= fileSizeTranslated %></td>
</tr><tr>
<td>Content Type</td><td><%= contentType %></td>
</tr><tr>
<td>No. of Form Elements</td><td><%= countElements %></td>
</tr><tr>
<td>Name</td><td><%= nameInput %></td>
</tr>
</table><br><br>

<p style="padding-left:220;">
<%
If fileUploaded = True Then
Response.Write fileName & " data uploaded..."
Else
Response.Write "<font color=""red"">File could not be uploaded..."
Response.Write "</font>"
Response.Write "<br>Please select a file before hitting the
'Submit'"
Response.Write " button."
End If
%>
</p>

<br>
<table border="0" align="center">
<tr>
<form method="POST" enctype="multipart/form-data" action="Insert.asp">
<td>Name :</td><td>
<input type="text" name="name" size="40" value="<%= nameInput %>">
</td></tr>
<td>File :</td><td>
<input type="file" name="file" size="40"></td></tr>
<td> </td><td>
<input type="submit" value="Submit"></td></tr>
</form>
</tr>
</table>

</body>
</html>


loader.asp:

<%
' -- Loader.asp --
' -- version 1.5.2
' -- last updated 12/5/2002
'
' Faisal Khan
' http://www.velocityreviews.com/forums/(E-Mail Removed)
' www.stardeveloper.com
' Class for handling binary uploads

Class Loader
Private dict

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

Private Sub Class_Terminate
If IsObject(intDict) Then
intDict.RemoveAll
Set intDict = Nothing
End If
If IsObject(dict) Then
dict.RemoveAll
Set dict = Nothing
End If
End Sub

Public Property Get Count
Count = dict.Count
End Property

Public Sub Initialize
If Request.TotalBytes > 0 Then
Dim binData
binData = Request.BinaryRead(Request.TotalBytes)
getData binData
End If
End Sub

Public Function getFileData(name)
If dict.Exists(name) Then
getFileData = dict(name).Item("Value")
Else
getFileData = ""
End If
End Function

Public Function getValue(name)
Dim gv
If dict.Exists(name) Then
gv = CStr(dict(name).Item("Value"))

gv = Left(gv,Len(gv)-2)
getValue = gv
Else
getValue = ""
End If
End Function

Public Function saveToFile(name, path)
If dict.Exists(name) Then
Dim temp
temp = dict(name).Item("Value")
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fso.CreateTextFile(path)
For tPoint = 1 to LenB(temp)
file.Write Chr(AscB(MidB(temp,tPoint,1)))
Next
file.Close
saveToFile = True
Else
saveToFile = False
End If
End Function

Public Function getFileName(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = 1 + InStrRev(temp, "\")
getFileName = Mid(temp, tempPos)
Else
getFileName = ""
End If
End Function

Public Function getFilePath(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = InStrRev(temp, "\")
getFilePath = Mid(temp, 1, tempPos)
Else
getFilePath = ""
End If
End Function

Public Function getFilePathComplete(name)
If dict.Exists(name) Then
getFilePathComplete = dict(name).Item("FileName")
Else
getFilePathComplete = ""
End If
End Function

Public Function getFileSize(name)
If dict.Exists(name) Then
getFileSize = LenB(dict(name).Item("Value"))
Else
getFileSize = 0
End If
End Function

Public Function getFileSizeTranslated(name)
If dict.Exists(name) Then
temp = LenB(dict(name).Item("Value"))
If temp <= 1024 Then
getFileSizeTranslated = temp & " bytes"
Else
temp = FormatNumber((temp / 1024), 2)
getFileSizeTranslated = temp & " kilobytes"
End If
Else
getFileSizeTranslated = ""
End If
End Function

Public Function getContentType(name)
If dict.Exists(name) Then
getContentType = dict(name).Item("ContentType")
Else
getContentType = ""
End If
End Function

Private Sub getData(rawData)
Dim separator
separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)

Dim lenSeparator
lenSeparator = LenB(separator)

Dim currentPos
currentPos = 1
Dim inStrByte
inStrByte = 1
Dim value, mValue
Dim tempValue
tempValue = ""

While inStrByte > 0
inStrByte = InStrB(currentPos, rawData, separator)
mValue = inStrByte - currentPos

If mValue > 1 Then
value = MidB(rawData, currentPos, mValue)

Dim begPos, endPos, midValue, nValue
Dim intDict
Set intDict = Server.CreateObject("Scripting.Dictionary")

begPos = 1 + InStrB(1, value, ChrB(34))
endPos = InStrB(begPos + 1, value, ChrB(34))
nValue = endPos

Dim nameN
nameN = MidB(value, begPos, endPos - begPos)

Dim nameValue, isValid
isValid = True

If InStrB(1, value, stringToByte("Content-Type")) > 1 Then

begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
endPos = InStrB(begPos + 1, value, ChrB(34))

If endPos = 0 Then
endPos = begPos + 1
isValid = False
End If

midValue = MidB(value, begPos, endPos - begPos)
intDict.Add "FileName", trim(byteToString(midValue))

begPos = 14 + InStrB(endPos + 1, value,
stringToByte("Content-Type:"))
endPos = InStrB(begPos, value, ChrB(13))

midValue = MidB(value, begPos, endPos - begPos)
intDict.Add "ContentType", trim(byteToString(midValue))

begPos = endPos + 4
endPos = LenB(value)

nameValue = MidB(value, begPos, ((endPos - begPos) - 1))
Else
nameValue = trim(byteToString(MidB(value, nValue + 5)))
End If

If isValid = True Then

intDict.Add "Value", nameValue
intDict.Add "Name", nameN

dict.Add byteToString(nameN), intDict
End If
End If

currentPos = lenSeparator + inStrByte
Wend
End Sub

End Class

Private Function stringToByte(toConv)
Dim tempChar
For i = 1 to Len(toConv)
tempChar = Mid(toConv, i, 1)
stringToByte = stringToByte & chrB(AscB(tempChar))
Next
End Function

Private Function byteToString(toConv)
For i = 1 to LenB(toConv)
byteToString = byteToString & Chr(AscB(MidB(toConv,i,1)))
Next
End Function
%>


 
Reply With Quote
 
 
 
 
Ignus Fast
Guest
Posts: n/a
 
      03-16-2005
I had to add the following:

<httpRuntime executionTimeout="300" maxRequestLength="16384" />

to my web.config for the project to increase the allowed file size to
16M.

Ignus

"Scott Baxter" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello,
>
> I got the following scripts to upload files to my directories
>
> I call insert.htm
>
> Browse for a file, then click 'submit'
>
> It works for small files, and for a small .mdb (access file)
>
> But for any larger file, it quits and give me 'page not found'
>
> Is there some kind of timeout I can set?
>
> Note: insert.htm calls insert.asp, call load.asp
>
> Thanks:
>
> Insert.asp:
>
> <!-- insert.htm -->
> <html>
> <head>
> <title>File Uploading with ASP</title>
> <style>
> body, input { font-family:verdana,arial; font-size:10pt; }
> </style>
> </head>
> <body>
> <p align="center">
> <b>File Uploading with ASP</b><br>
> <a href="show.asp">To see uploaded data click here</a>
> </p>
>
> <table border="0" align="center">
> <tr>
> <form method="POST" enctype="multipart/form-data" action="Insert.asp">
> <td>Name :</td><td>
> <input type="text" name="name" size="40"></td></tr>
> <td>File :</td><td>
> <input type="file" name="file" size="40"></td></tr>
> <td> </td><td>
> <input type="submit" value="Submit"></td></tr>
> </form>
> </tr>
> </table>
>
> </body>
> </html>
>
>
> insert.asp:
>
> <% ' Insert.asp %>
> <!--#include file="Loader.asp"-->
> <%
>
> Response.Buffer = True
>
> ' load object
> Dim load
> Set load = new Loader
>
> ' calling initialize method
> load.initialize
> response.write "<br>hi1122"
>
> ' File binary data
> Dim fileData
> fileData = load.getFileData("file")
> ' File name
> Dim fileName
> fileName = LCase(load.getFileName("file"))
> ' File path
> Dim filePath
> filePath = load.getFilePath("file")
> ' File path complete
> Dim filePathComplete
> filePathComplete = load.getFilePathComplete("file")
> ' File size
> Dim fileSize
> fileSize = load.getFileSize("file")
> ' File size translated
> Dim fileSizeTranslated
> fileSizeTranslated = load.getFileSizeTranslated("file")
> ' Content Type
> Dim contentType
> contentType = load.getContentType("file")
> ' No. of Form elements
> Dim countElements
> countElements = load.Count
> ' Value of text input field "name"
> Dim nameInput
> nameInput = load.getValue("name")
> ' Path where file will be uploaded
> Dim pathToFile
> ' pathToFile = Server.mapPath("uploaded/") & "\" & fileName
> pathToFile = Server.mapPath("businesssearch/") & "\" & fileName
> ' Uploading file data
> response.write "<br>hi112233"
> response.write "<br> " & pathtofile
> 'response.end
> Dim fileUploaded
> fileUploaded = load.saveToFile ("file", pathToFile)
> 'response.write "<br>hi112233444"
> 'response.end
> ' destroying load object
> Set load = Nothing
> %>
>
> <html>
> <head>
> <title>File Uploading with ASP</title>
> <style>
> body, input, td { font-family:verdana,arial; font-size:10pt; }
> </style>
> </head>
> <body>
> <p align="center">
> <b>File Uploading with ASP</b><br>
> <a href="show.asp">To see uploaded files click here</a>
> </p>
>
> <table width="700" border="1" align="center">
> <tr>
> <td>File Name</td><td><%= fileName %></td>
> </tr><tr>
> <td>File Path</td><td><%= filePath %></td>
> </tr><tr>
> <td>File Path Complete</td><td><%= filePathComplete %></td>
> </tr><tr>
> <td>File Size</td><td><%= fileSize %></td>
> </tr><tr>
> <td>File Size Translated</td><td><%= fileSizeTranslated %></td>
> </tr><tr>
> <td>Content Type</td><td><%= contentType %></td>
> </tr><tr>
> <td>No. of Form Elements</td><td><%= countElements %></td>
> </tr><tr>
> <td>Name</td><td><%= nameInput %></td>
> </tr>
> </table><br><br>
>
> <p style="padding-left:220;">
> <%
> If fileUploaded = True Then
> Response.Write fileName & " data uploaded..."
> Else
> Response.Write "<font color=""red"">File could not be uploaded..."
> Response.Write "</font>"
> Response.Write "<br>Please select a file before hitting the
> 'Submit'"
> Response.Write " button."
> End If
> %>
> </p>
>
> <br>
> <table border="0" align="center">
> <tr>
> <form method="POST" enctype="multipart/form-data" action="Insert.asp">
> <td>Name :</td><td>
> <input type="text" name="name" size="40" value="<%= nameInput %>">
> </td></tr>
> <td>File :</td><td>
> <input type="file" name="file" size="40"></td></tr>
> <td> </td><td>
> <input type="submit" value="Submit"></td></tr>
> </form>
> </tr>
> </table>
>
> </body>
> </html>
>
>
> loader.asp:
>
> <%
> ' -- Loader.asp --
> ' -- version 1.5.2
> ' -- last updated 12/5/2002
> '
> ' Faisal Khan
> ' (E-Mail Removed)
> ' www.stardeveloper.com
> ' Class for handling binary uploads
>
> Class Loader
> Private dict
>
> Private Sub Class_Initialize
> Set dict = Server.CreateObject("Scripting.Dictionary")
> End Sub
>
> Private Sub Class_Terminate
> If IsObject(intDict) Then
> intDict.RemoveAll
> Set intDict = Nothing
> End If
> If IsObject(dict) Then
> dict.RemoveAll
> Set dict = Nothing
> End If
> End Sub
>
> Public Property Get Count
> Count = dict.Count
> End Property
>
> Public Sub Initialize
> If Request.TotalBytes > 0 Then
> Dim binData
> binData = Request.BinaryRead(Request.TotalBytes)
> getData binData
> End If
> End Sub
>
> Public Function getFileData(name)
> If dict.Exists(name) Then
> getFileData = dict(name).Item("Value")
> Else
> getFileData = ""
> End If
> End Function
>
> Public Function getValue(name)
> Dim gv
> If dict.Exists(name) Then
> gv = CStr(dict(name).Item("Value"))
>
> gv = Left(gv,Len(gv)-2)
> getValue = gv
> Else
> getValue = ""
> End If
> End Function
>
> Public Function saveToFile(name, path)
> If dict.Exists(name) Then
> Dim temp
> temp = dict(name).Item("Value")
> Dim fso
> Set fso = Server.CreateObject("Scripting.FileSystemObject")
> Dim file
> Set file = fso.CreateTextFile(path)
> For tPoint = 1 to LenB(temp)
> file.Write Chr(AscB(MidB(temp,tPoint,1)))
> Next
> file.Close
> saveToFile = True
> Else
> saveToFile = False
> End If
> End Function
>
> Public Function getFileName(name)
> If dict.Exists(name) Then
> Dim temp, tempPos
> temp = dict(name).Item("FileName")
> tempPos = 1 + InStrRev(temp, "\")
> getFileName = Mid(temp, tempPos)
> Else
> getFileName = ""
> End If
> End Function
>
> Public Function getFilePath(name)
> If dict.Exists(name) Then
> Dim temp, tempPos
> temp = dict(name).Item("FileName")
> tempPos = InStrRev(temp, "\")
> getFilePath = Mid(temp, 1, tempPos)
> Else
> getFilePath = ""
> End If
> End Function
>
> Public Function getFilePathComplete(name)
> If dict.Exists(name) Then
> getFilePathComplete = dict(name).Item("FileName")
> Else
> getFilePathComplete = ""
> End If
> End Function
>
> Public Function getFileSize(name)
> If dict.Exists(name) Then
> getFileSize = LenB(dict(name).Item("Value"))
> Else
> getFileSize = 0
> End If
> End Function
>
> Public Function getFileSizeTranslated(name)
> If dict.Exists(name) Then
> temp = LenB(dict(name).Item("Value"))
> If temp <= 1024 Then
> getFileSizeTranslated = temp & " bytes"
> Else
> temp = FormatNumber((temp / 1024), 2)
> getFileSizeTranslated = temp & " kilobytes"
> End If
> Else
> getFileSizeTranslated = ""
> End If
> End Function
>
> Public Function getContentType(name)
> If dict.Exists(name) Then
> getContentType = dict(name).Item("ContentType")
> Else
> getContentType = ""
> End If
> End Function
>
> Private Sub getData(rawData)
> Dim separator
> separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)
>
> Dim lenSeparator
> lenSeparator = LenB(separator)
>
> Dim currentPos
> currentPos = 1
> Dim inStrByte
> inStrByte = 1
> Dim value, mValue
> Dim tempValue
> tempValue = ""
>
> While inStrByte > 0
> inStrByte = InStrB(currentPos, rawData, separator)
> mValue = inStrByte - currentPos
>
> If mValue > 1 Then
> value = MidB(rawData, currentPos, mValue)
>
> Dim begPos, endPos, midValue, nValue
> Dim intDict
> Set intDict = Server.CreateObject("Scripting.Dictionary")
>
> begPos = 1 + InStrB(1, value, ChrB(34))
> endPos = InStrB(begPos + 1, value, ChrB(34))
> nValue = endPos
>
> Dim nameN
> nameN = MidB(value, begPos, endPos - begPos)
>
> Dim nameValue, isValid
> isValid = True
>
> If InStrB(1, value, stringToByte("Content-Type")) > 1 Then
>
> begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
> endPos = InStrB(begPos + 1, value, ChrB(34))
>
> If endPos = 0 Then
> endPos = begPos + 1
> isValid = False
> End If
>
> midValue = MidB(value, begPos, endPos - begPos)
> intDict.Add "FileName", trim(byteToString(midValue))
>
> begPos = 14 + InStrB(endPos + 1, value,
> stringToByte("Content-Type:"))
> endPos = InStrB(begPos, value, ChrB(13))
>
> midValue = MidB(value, begPos, endPos - begPos)
> intDict.Add "ContentType", trim(byteToString(midValue))
>
> begPos = endPos + 4
> endPos = LenB(value)
>
> nameValue = MidB(value, begPos, ((endPos - begPos) - 1))
> Else
> nameValue = trim(byteToString(MidB(value, nValue + 5)))
> End If
>
> If isValid = True Then
>
> intDict.Add "Value", nameValue
> intDict.Add "Name", nameN
>
> dict.Add byteToString(nameN), intDict
> End If
> End If
>
> currentPos = lenSeparator + inStrByte
> Wend
> End Sub
>
> End Class
>
> Private Function stringToByte(toConv)
> Dim tempChar
> For i = 1 to Len(toConv)
> tempChar = Mid(toConv, i, 1)
> stringToByte = stringToByte & chrB(AscB(tempChar))
> Next
> End Function
>
> Private Function byteToString(toConv)
> For i = 1 to LenB(toConv)
> byteToString = byteToString & Chr(AscB(MidB(toConv,i,1)))
> Next
> End Function
> %>
>
>



 
Reply With Quote
 
 
 
 
Mike D
Guest
Posts: n/a
 
      03-17-2005
If the server OS is 2003, that OS has a 200 KB upload limit. It can be
increased by editting the metabase.xml file.

MIke

"Scott Baxter" wrote:

> Hello,
>
> I got the following scripts to upload files to my directories
>
> I call insert.htm
>
> Browse for a file, then click 'submit'
>
> It works for small files, and for a small .mdb (access file)
>
> But for any larger file, it quits and give me 'page not found'
>
> Is there some kind of timeout I can set?
>
> Note: insert.htm calls insert.asp, call load.asp
>
> Thanks:
>
> Insert.asp:
>
> <!-- insert.htm -->
> <html>
> <head>
> <title>File Uploading with ASP</title>
> <style>
> body, input { font-family:verdana,arial; font-size:10pt; }
> </style>
> </head>
> <body>
> <p align="center">
> <b>File Uploading with ASP</b><br>
> <a href="show.asp">To see uploaded data click here</a>
> </p>
>
> <table border="0" align="center">
> <tr>
> <form method="POST" enctype="multipart/form-data" action="Insert.asp">
> <td>Name :</td><td>
> <input type="text" name="name" size="40"></td></tr>
> <td>File :</td><td>
> <input type="file" name="file" size="40"></td></tr>
> <td> </td><td>
> <input type="submit" value="Submit"></td></tr>
> </form>
> </tr>
> </table>
>
> </body>
> </html>
>
>
> insert.asp:
>
> <% ' Insert.asp %>
> <!--#include file="Loader.asp"-->
> <%
>
> Response.Buffer = True
>
> ' load object
> Dim load
> Set load = new Loader
>
> ' calling initialize method
> load.initialize
> response.write "<br>hi1122"
>
> ' File binary data
> Dim fileData
> fileData = load.getFileData("file")
> ' File name
> Dim fileName
> fileName = LCase(load.getFileName("file"))
> ' File path
> Dim filePath
> filePath = load.getFilePath("file")
> ' File path complete
> Dim filePathComplete
> filePathComplete = load.getFilePathComplete("file")
> ' File size
> Dim fileSize
> fileSize = load.getFileSize("file")
> ' File size translated
> Dim fileSizeTranslated
> fileSizeTranslated = load.getFileSizeTranslated("file")
> ' Content Type
> Dim contentType
> contentType = load.getContentType("file")
> ' No. of Form elements
> Dim countElements
> countElements = load.Count
> ' Value of text input field "name"
> Dim nameInput
> nameInput = load.getValue("name")
> ' Path where file will be uploaded
> Dim pathToFile
> ' pathToFile = Server.mapPath("uploaded/") & "\" & fileName
> pathToFile = Server.mapPath("businesssearch/") & "\" & fileName
> ' Uploading file data
> response.write "<br>hi112233"
> response.write "<br> " & pathtofile
> 'response.end
> Dim fileUploaded
> fileUploaded = load.saveToFile ("file", pathToFile)
> 'response.write "<br>hi112233444"
> 'response.end
> ' destroying load object
> Set load = Nothing
> %>
>
> <html>
> <head>
> <title>File Uploading with ASP</title>
> <style>
> body, input, td { font-family:verdana,arial; font-size:10pt; }
> </style>
> </head>
> <body>
> <p align="center">
> <b>File Uploading with ASP</b><br>
> <a href="show.asp">To see uploaded files click here</a>
> </p>
>
> <table width="700" border="1" align="center">
> <tr>
> <td>File Name</td><td><%= fileName %></td>
> </tr><tr>
> <td>File Path</td><td><%= filePath %></td>
> </tr><tr>
> <td>File Path Complete</td><td><%= filePathComplete %></td>
> </tr><tr>
> <td>File Size</td><td><%= fileSize %></td>
> </tr><tr>
> <td>File Size Translated</td><td><%= fileSizeTranslated %></td>
> </tr><tr>
> <td>Content Type</td><td><%= contentType %></td>
> </tr><tr>
> <td>No. of Form Elements</td><td><%= countElements %></td>
> </tr><tr>
> <td>Name</td><td><%= nameInput %></td>
> </tr>
> </table><br><br>
>
> <p style="padding-left:220;">
> <%
> If fileUploaded = True Then
> Response.Write fileName & " data uploaded..."
> Else
> Response.Write "<font color=""red"">File could not be uploaded..."
> Response.Write "</font>"
> Response.Write "<br>Please select a file before hitting the
> 'Submit'"
> Response.Write " button."
> End If
> %>
> </p>
>
> <br>
> <table border="0" align="center">
> <tr>
> <form method="POST" enctype="multipart/form-data" action="Insert.asp">
> <td>Name :</td><td>
> <input type="text" name="name" size="40" value="<%= nameInput %>">
> </td></tr>
> <td>File :</td><td>
> <input type="file" name="file" size="40"></td></tr>
> <td> </td><td>
> <input type="submit" value="Submit"></td></tr>
> </form>
> </tr>
> </table>
>
> </body>
> </html>
>
>
> loader.asp:
>
> <%
> ' -- Loader.asp --
> ' -- version 1.5.2
> ' -- last updated 12/5/2002
> '
> ' Faisal Khan
> ' (E-Mail Removed)
> ' www.stardeveloper.com
> ' Class for handling binary uploads
>
> Class Loader
> Private dict
>
> Private Sub Class_Initialize
> Set dict = Server.CreateObject("Scripting.Dictionary")
> End Sub
>
> Private Sub Class_Terminate
> If IsObject(intDict) Then
> intDict.RemoveAll
> Set intDict = Nothing
> End If
> If IsObject(dict) Then
> dict.RemoveAll
> Set dict = Nothing
> End If
> End Sub
>
> Public Property Get Count
> Count = dict.Count
> End Property
>
> Public Sub Initialize
> If Request.TotalBytes > 0 Then
> Dim binData
> binData = Request.BinaryRead(Request.TotalBytes)
> getData binData
> End If
> End Sub
>
> Public Function getFileData(name)
> If dict.Exists(name) Then
> getFileData = dict(name).Item("Value")
> Else
> getFileData = ""
> End If
> End Function
>
> Public Function getValue(name)
> Dim gv
> If dict.Exists(name) Then
> gv = CStr(dict(name).Item("Value"))
>
> gv = Left(gv,Len(gv)-2)
> getValue = gv
> Else
> getValue = ""
> End If
> End Function
>
> Public Function saveToFile(name, path)
> If dict.Exists(name) Then
> Dim temp
> temp = dict(name).Item("Value")
> Dim fso
> Set fso = Server.CreateObject("Scripting.FileSystemObject")
> Dim file
> Set file = fso.CreateTextFile(path)
> For tPoint = 1 to LenB(temp)
> file.Write Chr(AscB(MidB(temp,tPoint,1)))
> Next
> file.Close
> saveToFile = True
> Else
> saveToFile = False
> End If
> End Function
>
> Public Function getFileName(name)
> If dict.Exists(name) Then
> Dim temp, tempPos
> temp = dict(name).Item("FileName")
> tempPos = 1 + InStrRev(temp, "\")
> getFileName = Mid(temp, tempPos)
> Else
> getFileName = ""
> End If
> End Function
>
> Public Function getFilePath(name)
> If dict.Exists(name) Then
> Dim temp, tempPos
> temp = dict(name).Item("FileName")
> tempPos = InStrRev(temp, "\")
> getFilePath = Mid(temp, 1, tempPos)
> Else
> getFilePath = ""
> End If
> End Function
>
> Public Function getFilePathComplete(name)
> If dict.Exists(name) Then
> getFilePathComplete = dict(name).Item("FileName")
> Else
> getFilePathComplete = ""
> End If
> End Function
>
> Public Function getFileSize(name)
> If dict.Exists(name) Then
> getFileSize = LenB(dict(name).Item("Value"))
> Else
> getFileSize = 0
> End If
> End Function
>
> Public Function getFileSizeTranslated(name)
> If dict.Exists(name) Then
> temp = LenB(dict(name).Item("Value"))
> If temp <= 1024 Then
> getFileSizeTranslated = temp & " bytes"
> Else
> temp = FormatNumber((temp / 1024), 2)
> getFileSizeTranslated = temp & " kilobytes"
> End If
> Else
> getFileSizeTranslated = ""
> End If
> End Function
>
> Public Function getContentType(name)
> If dict.Exists(name) Then
> getContentType = dict(name).Item("ContentType")
> Else
> getContentType = ""
> End If
> End Function
>
> Private Sub getData(rawData)
> Dim separator
> separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)
>
> Dim lenSeparator
> lenSeparator = LenB(separator)
>
> Dim currentPos
> currentPos = 1
> Dim inStrByte
> inStrByte = 1
> Dim value, mValue
> Dim tempValue
> tempValue = ""
>
> While inStrByte > 0
> inStrByte = InStrB(currentPos, rawData, separator)
> mValue = inStrByte - currentPos
>
> If mValue > 1 Then
> value = MidB(rawData, currentPos, mValue)
>
> Dim begPos, endPos, midValue, nValue
> Dim intDict
> Set intDict = Server.CreateObject("Scripting.Dictionary")
>
> begPos = 1 + InStrB(1, value, ChrB(34))
> endPos = InStrB(begPos + 1, value, ChrB(34))
> nValue = endPos
>
> Dim nameN
> nameN = MidB(value, begPos, endPos - begPos)
>
> Dim nameValue, isValid
> isValid = True
>
> If InStrB(1, value, stringToByte("Content-Type")) > 1 Then
>
> begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
> endPos = InStrB(begPos + 1, value, ChrB(34))
>
> If endPos = 0 Then
> endPos = begPos + 1
> isValid = False
> End If
>
> midValue = MidB(value, begPos, endPos - begPos)
> intDict.Add "FileName", trim(byteToString(midValue))
>
> begPos = 14 + InStrB(endPos + 1, value,
> stringToByte("Content-Type:"))
> endPos = InStrB(begPos, value, ChrB(13))
>
> midValue = MidB(value, begPos, endPos - begPos)
> intDict.Add "ContentType", trim(byteToString(midValue))
>
> begPos = endPos + 4
> endPos = LenB(value)
>
> nameValue = MidB(value, begPos, ((endPos - begPos) - 1))
> Else
> nameValue = trim(byteToString(MidB(value, nValue + 5)))
> End If
>
> If isValid = True Then
>
> intDict.Add "Value", nameValue
> intDict.Add "Name", nameN
>
> dict.Add byteToString(nameN), intDict
> End If
> End If
>
> currentPos = lenSeparator + inStrByte
> Wend
> End Sub
>
> End Class
>
> Private Function stringToByte(toConv)
> Dim tempChar
> For i = 1 to Len(toConv)
> tempChar = Mid(toConv, i, 1)
> stringToByte = stringToByte & chrB(AscB(tempChar))
> Next
> End Function
>
> Private Function byteToString(toConv)
> For i = 1 to LenB(toConv)
> byteToString = byteToString & Chr(AscB(MidB(toConv,i,1)))
> Next
> End Function
> %>
>
>
>

 
Reply With Quote
 
Scott Baxter
Guest
Posts: n/a
 
      03-17-2005
Thanks Mike. Where is this file? I tried putting a web.config file, and it
didn't do anything. I put it in the directory where the insert.asp file is,
and the target directory where I wrote it. Here is the web.config I put
there:

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<system.web>
<httpRuntime
executionTimeout="300"
maxRequestLength="16384"
/>
</system.web>
</configuration>

Do I need to do a command to get my web site to recognize this? It seemed
to have no effect.

Thanks.

Scott




"Mike D" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> If the server OS is 2003, that OS has a 200 KB upload limit. It can be
> increased by editting the metabase.xml file.
>
> MIke
>
> "Scott Baxter" wrote:
>
> > Hello,
> >
> > I got the following scripts to upload files to my directories
> >
> > I call insert.htm
> >
> > Browse for a file, then click 'submit'
> >
> > It works for small files, and for a small .mdb (access file)
> >
> > But for any larger file, it quits and give me 'page not found'
> >
> > Is there some kind of timeout I can set?
> >
> > Note: insert.htm calls insert.asp, call load.asp
> >
> > Thanks:
> >
> > Insert.asp:
> >
> > <!-- insert.htm -->
> > <html>
> > <head>
> > <title>File Uploading with ASP</title>
> > <style>
> > body, input { font-family:verdana,arial; font-size:10pt; }
> > </style>
> > </head>
> > <body>
> > <p align="center">
> > <b>File Uploading with ASP</b><br>
> > <a href="show.asp">To see uploaded data click here</a>
> > </p>
> >
> > <table border="0" align="center">
> > <tr>
> > <form method="POST" enctype="multipart/form-data" action="Insert.asp">
> > <td>Name :</td><td>
> > <input type="text" name="name" size="40"></td></tr>
> > <td>File :</td><td>
> > <input type="file" name="file" size="40"></td></tr>
> > <td> </td><td>
> > <input type="submit" value="Submit"></td></tr>
> > </form>
> > </tr>
> > </table>
> >
> > </body>
> > </html>
> >
> >
> > insert.asp:
> >
> > <% ' Insert.asp %>
> > <!--#include file="Loader.asp"-->
> > <%
> >
> > Response.Buffer = True
> >
> > ' load object
> > Dim load
> > Set load = new Loader
> >
> > ' calling initialize method
> > load.initialize
> > response.write "<br>hi1122"
> >
> > ' File binary data
> > Dim fileData
> > fileData = load.getFileData("file")
> > ' File name
> > Dim fileName
> > fileName = LCase(load.getFileName("file"))
> > ' File path
> > Dim filePath
> > filePath = load.getFilePath("file")
> > ' File path complete
> > Dim filePathComplete
> > filePathComplete = load.getFilePathComplete("file")
> > ' File size
> > Dim fileSize
> > fileSize = load.getFileSize("file")
> > ' File size translated
> > Dim fileSizeTranslated
> > fileSizeTranslated = load.getFileSizeTranslated("file")
> > ' Content Type
> > Dim contentType
> > contentType = load.getContentType("file")
> > ' No. of Form elements
> > Dim countElements
> > countElements = load.Count
> > ' Value of text input field "name"
> > Dim nameInput
> > nameInput = load.getValue("name")
> > ' Path where file will be uploaded
> > Dim pathToFile
> > ' pathToFile = Server.mapPath("uploaded/") & "\" & fileName
> > pathToFile = Server.mapPath("businesssearch/") & "\" & fileName
> > ' Uploading file data
> > response.write "<br>hi112233"
> > response.write "<br> " & pathtofile
> > 'response.end
> > Dim fileUploaded
> > fileUploaded = load.saveToFile ("file", pathToFile)
> > 'response.write "<br>hi112233444"
> > 'response.end
> > ' destroying load object
> > Set load = Nothing
> > %>
> >
> > <html>
> > <head>
> > <title>File Uploading with ASP</title>
> > <style>
> > body, input, td { font-family:verdana,arial; font-size:10pt; }
> > </style>
> > </head>
> > <body>
> > <p align="center">
> > <b>File Uploading with ASP</b><br>
> > <a href="show.asp">To see uploaded files click here</a>
> > </p>
> >
> > <table width="700" border="1" align="center">
> > <tr>
> > <td>File Name</td><td><%= fileName %></td>
> > </tr><tr>
> > <td>File Path</td><td><%= filePath %></td>
> > </tr><tr>
> > <td>File Path Complete</td><td><%= filePathComplete %></td>
> > </tr><tr>
> > <td>File Size</td><td><%= fileSize %></td>
> > </tr><tr>
> > <td>File Size Translated</td><td><%= fileSizeTranslated %></td>
> > </tr><tr>
> > <td>Content Type</td><td><%= contentType %></td>
> > </tr><tr>
> > <td>No. of Form Elements</td><td><%= countElements %></td>
> > </tr><tr>
> > <td>Name</td><td><%= nameInput %></td>
> > </tr>
> > </table><br><br>
> >
> > <p style="padding-left:220;">
> > <%
> > If fileUploaded = True Then
> > Response.Write fileName & " data uploaded..."
> > Else
> > Response.Write "<font color=""red"">File could not be

uploaded..."
> > Response.Write "</font>"
> > Response.Write "<br>Please select a file before hitting the
> > 'Submit'"
> > Response.Write " button."
> > End If
> > %>
> > </p>
> >
> > <br>
> > <table border="0" align="center">
> > <tr>
> > <form method="POST" enctype="multipart/form-data"

action="Insert.asp">
> > <td>Name :</td><td>
> > <input type="text" name="name" size="40" value="<%= nameInput %>">
> > </td></tr>
> > <td>File :</td><td>
> > <input type="file" name="file" size="40"></td></tr>
> > <td> </td><td>
> > <input type="submit" value="Submit"></td></tr>
> > </form>
> > </tr>
> > </table>
> >
> > </body>
> > </html>
> >
> >
> > loader.asp:
> >
> > <%
> > ' -- Loader.asp --
> > ' -- version 1.5.2
> > ' -- last updated 12/5/2002
> > '
> > ' Faisal Khan
> > ' (E-Mail Removed)
> > ' www.stardeveloper.com
> > ' Class for handling binary uploads
> >
> > Class Loader
> > Private dict
> >
> > Private Sub Class_Initialize
> > Set dict = Server.CreateObject("Scripting.Dictionary")
> > End Sub
> >
> > Private Sub Class_Terminate
> > If IsObject(intDict) Then
> > intDict.RemoveAll
> > Set intDict = Nothing
> > End If
> > If IsObject(dict) Then
> > dict.RemoveAll
> > Set dict = Nothing
> > End If
> > End Sub
> >
> > Public Property Get Count
> > Count = dict.Count
> > End Property
> >
> > Public Sub Initialize
> > If Request.TotalBytes > 0 Then
> > Dim binData
> > binData = Request.BinaryRead(Request.TotalBytes)
> > getData binData
> > End If
> > End Sub
> >
> > Public Function getFileData(name)
> > If dict.Exists(name) Then
> > getFileData = dict(name).Item("Value")
> > Else
> > getFileData = ""
> > End If
> > End Function
> >
> > Public Function getValue(name)
> > Dim gv
> > If dict.Exists(name) Then
> > gv = CStr(dict(name).Item("Value"))
> >
> > gv = Left(gv,Len(gv)-2)
> > getValue = gv
> > Else
> > getValue = ""
> > End If
> > End Function
> >
> > Public Function saveToFile(name, path)
> > If dict.Exists(name) Then
> > Dim temp
> > temp = dict(name).Item("Value")
> > Dim fso
> > Set fso = Server.CreateObject("Scripting.FileSystemObject")
> > Dim file
> > Set file = fso.CreateTextFile(path)
> > For tPoint = 1 to LenB(temp)
> > file.Write Chr(AscB(MidB(temp,tPoint,1)))
> > Next
> > file.Close
> > saveToFile = True
> > Else
> > saveToFile = False
> > End If
> > End Function
> >
> > Public Function getFileName(name)
> > If dict.Exists(name) Then
> > Dim temp, tempPos
> > temp = dict(name).Item("FileName")
> > tempPos = 1 + InStrRev(temp, "\")
> > getFileName = Mid(temp, tempPos)
> > Else
> > getFileName = ""
> > End If
> > End Function
> >
> > Public Function getFilePath(name)
> > If dict.Exists(name) Then
> > Dim temp, tempPos
> > temp = dict(name).Item("FileName")
> > tempPos = InStrRev(temp, "\")
> > getFilePath = Mid(temp, 1, tempPos)
> > Else
> > getFilePath = ""
> > End If
> > End Function
> >
> > Public Function getFilePathComplete(name)
> > If dict.Exists(name) Then
> > getFilePathComplete = dict(name).Item("FileName")
> > Else
> > getFilePathComplete = ""
> > End If
> > End Function
> >
> > Public Function getFileSize(name)
> > If dict.Exists(name) Then
> > getFileSize = LenB(dict(name).Item("Value"))
> > Else
> > getFileSize = 0
> > End If
> > End Function
> >
> > Public Function getFileSizeTranslated(name)
> > If dict.Exists(name) Then
> > temp = LenB(dict(name).Item("Value"))
> > If temp <= 1024 Then
> > getFileSizeTranslated = temp & " bytes"
> > Else
> > temp = FormatNumber((temp / 1024), 2)
> > getFileSizeTranslated = temp & " kilobytes"
> > End If
> > Else
> > getFileSizeTranslated = ""
> > End If
> > End Function
> >
> > Public Function getContentType(name)
> > If dict.Exists(name) Then
> > getContentType = dict(name).Item("ContentType")
> > Else
> > getContentType = ""
> > End If
> > End Function
> >
> > Private Sub getData(rawData)
> > Dim separator
> > separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)
> >
> > Dim lenSeparator
> > lenSeparator = LenB(separator)
> >
> > Dim currentPos
> > currentPos = 1
> > Dim inStrByte
> > inStrByte = 1
> > Dim value, mValue
> > Dim tempValue
> > tempValue = ""
> >
> > While inStrByte > 0
> > inStrByte = InStrB(currentPos, rawData, separator)
> > mValue = inStrByte - currentPos
> >
> > If mValue > 1 Then
> > value = MidB(rawData, currentPos, mValue)
> >
> > Dim begPos, endPos, midValue, nValue
> > Dim intDict
> > Set intDict = Server.CreateObject("Scripting.Dictionary")
> >
> > begPos = 1 + InStrB(1, value, ChrB(34))
> > endPos = InStrB(begPos + 1, value, ChrB(34))
> > nValue = endPos
> >
> > Dim nameN
> > nameN = MidB(value, begPos, endPos - begPos)
> >
> > Dim nameValue, isValid
> > isValid = True
> >
> > If InStrB(1, value, stringToByte("Content-Type")) > 1 Then
> >
> > begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
> > endPos = InStrB(begPos + 1, value, ChrB(34))
> >
> > If endPos = 0 Then
> > endPos = begPos + 1
> > isValid = False
> > End If
> >
> > midValue = MidB(value, begPos, endPos - begPos)
> > intDict.Add "FileName", trim(byteToString(midValue))
> >
> > begPos = 14 + InStrB(endPos + 1, value,
> > stringToByte("Content-Type:"))
> > endPos = InStrB(begPos, value, ChrB(13))
> >
> > midValue = MidB(value, begPos, endPos - begPos)
> > intDict.Add "ContentType", trim(byteToString(midValue))
> >
> > begPos = endPos + 4
> > endPos = LenB(value)
> >
> > nameValue = MidB(value, begPos, ((endPos - begPos) - 1))
> > Else
> > nameValue = trim(byteToString(MidB(value, nValue + 5)))
> > End If
> >
> > If isValid = True Then
> >
> > intDict.Add "Value", nameValue
> > intDict.Add "Name", nameN
> >
> > dict.Add byteToString(nameN), intDict
> > End If
> > End If
> >
> > currentPos = lenSeparator + inStrByte
> > Wend
> > End Sub
> >
> > End Class
> >
> > Private Function stringToByte(toConv)
> > Dim tempChar
> > For i = 1 to Len(toConv)
> > tempChar = Mid(toConv, i, 1)
> > stringToByte = stringToByte & chrB(AscB(tempChar))
> > Next
> > End Function
> >
> > Private Function byteToString(toConv)
> > For i = 1 to LenB(toConv)
> > byteToString = byteToString & Chr(AscB(MidB(toConv,i,1)))
> > Next
> > End Function
> > %>
> >
> >
> >



 
Reply With Quote
 
Bob Barrows [MVP]
Guest
Posts: n/a
 
      03-18-2005
Actually, this setting (maxRequestLength) is done in the machine.config
file. Search your hard drive - mine is located in
C:\WINNT\Microsoft.NET\Framework\v1.1.4322\CONFIG

Bob Barrows
PS. In the future, could you leave microsoft.public.inetserver.asp.general
out of your crossposts for dotnet issues? That newsgroup is focussed on
classic ASP questions.

microsoft.public.scripting.vbscript is not really relevant either.


Scott Baxter wrote:
> Thanks Mike. Where is this file? I tried putting a web.config file,
> and it didn't do anything. I put it in the directory where the
> insert.asp file is, and the target directory where I wrote it. Here
> is the web.config I put there:
>
> <?xml version="1.0" encoding="utf-8" ?>
> <configuration>
> <system.web>
> <httpRuntime
> executionTimeout="300"
> maxRequestLength="16384"
> />
> </system.web>
> </configuration>
>
> Do I need to do a command to get my web site to recognize this? It
> seemed to have no effect.
>
> Thanks.
>
> Scott
>
>
>
>
> "Mike D" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> If the server OS is 2003, that OS has a 200 KB upload limit. It can
>> be increased by editting the metabase.xml file.
>>
>> MIke
>>
>> "Scott Baxter" wrote:
>>
>>> Hello,
>>>
>>> I got the following scripts to upload files to my directories
>>>
>>> I call insert.htm
>>>
>>> Browse for a file, then click 'submit'
>>>
>>> It works for small files, and for a small .mdb (access file)
>>>
>>> But for any larger file, it quits and give me 'page not found'
>>>
>>> Is there some kind of timeout I can set?
>>>
>>> Note: insert.htm calls insert.asp, call load.asp
>>>
>>> Thanks:
>>>
>>> Insert.asp:
>>>
>>> <!-- insert.htm -->
>>> <html>
>>> <head>
>>> <title>File Uploading with ASP</title>
>>> <style>
>>> body, input { font-family:verdana,arial; font-size:10pt; }
>>> </style>
>>> </head>
>>> <body>
>>> <p align="center">
>>> <b>File Uploading with ASP</b><br>
>>> <a href="show.asp">To see uploaded data click here</a>
>>> </p>
>>>
>>> <table border="0" align="center">
>>> <tr>
>>> <form method="POST" enctype="multipart/form-data"
>>> action="Insert.asp"> <td>Name :</td><td>
>>> <input type="text" name="name" size="40"></td></tr>
>>> <td>File :</td><td>
>>> <input type="file" name="file" size="40"></td></tr>
>>> <td> </td><td>
>>> <input type="submit" value="Submit"></td></tr>
>>> </form>
>>> </tr>
>>> </table>
>>>
>>> </body>
>>> </html>
>>>
>>>
>>> insert.asp:
>>>
>>> <% ' Insert.asp %>
>>> <!--#include file="Loader.asp"-->
>>> <%
>>>
>>> Response.Buffer = True
>>>
>>> ' load object
>>> Dim load
>>> Set load = new Loader
>>>
>>> ' calling initialize method
>>> load.initialize
>>> response.write "<br>hi1122"
>>>
>>> ' File binary data
>>> Dim fileData
>>> fileData = load.getFileData("file")
>>> ' File name
>>> Dim fileName
>>> fileName = LCase(load.getFileName("file"))
>>> ' File path
>>> Dim filePath
>>> filePath = load.getFilePath("file")
>>> ' File path complete
>>> Dim filePathComplete
>>> filePathComplete = load.getFilePathComplete("file")
>>> ' File size
>>> Dim fileSize
>>> fileSize = load.getFileSize("file")
>>> ' File size translated
>>> Dim fileSizeTranslated
>>> fileSizeTranslated = load.getFileSizeTranslated("file")
>>> ' Content Type
>>> Dim contentType
>>> contentType = load.getContentType("file")
>>> ' No. of Form elements
>>> Dim countElements
>>> countElements = load.Count
>>> ' Value of text input field "name"
>>> Dim nameInput
>>> nameInput = load.getValue("name")
>>> ' Path where file will be uploaded
>>> Dim pathToFile
>>> ' pathToFile = Server.mapPath("uploaded/") & "\" & fileName
>>> pathToFile = Server.mapPath("businesssearch/") & "\" & fileName
>>> ' Uploading file data
>>> response.write "<br>hi112233"
>>> response.write "<br> " & pathtofile
>>> 'response.end
>>> Dim fileUploaded
>>> fileUploaded = load.saveToFile ("file", pathToFile)
>>> 'response.write "<br>hi112233444"
>>> 'response.end
>>> ' destroying load object
>>> Set load = Nothing
>>> %>
>>>
>>> <html>
>>> <head>
>>> <title>File Uploading with ASP</title>
>>> <style>
>>> body, input, td { font-family:verdana,arial; font-size:10pt; }
>>> </style>
>>> </head>
>>> <body>
>>> <p align="center">
>>> <b>File Uploading with ASP</b><br>
>>> <a href="show.asp">To see uploaded files click here</a>
>>> </p>
>>>
>>> <table width="700" border="1" align="center">
>>> <tr>
>>> <td>File Name</td><td><%= fileName %></td>
>>> </tr><tr>
>>> <td>File Path</td><td><%= filePath %></td>
>>> </tr><tr>
>>> <td>File Path Complete</td><td><%= filePathComplete %></td>
>>> </tr><tr>
>>> <td>File Size</td><td><%= fileSize %></td>
>>> </tr><tr>
>>> <td>File Size Translated</td><td><%= fileSizeTranslated
>>> %></td> </tr><tr>
>>> <td>Content Type</td><td><%= contentType %></td>
>>> </tr><tr>
>>> <td>No. of Form Elements</td><td><%= countElements %></td>
>>> </tr><tr>
>>> <td>Name</td><td><%= nameInput %></td>
>>> </tr>
>>> </table><br><br>
>>>
>>> <p style="padding-left:220;">
>>> <%
>>> If fileUploaded = True Then
>>> Response.Write fileName & " data uploaded..."
>>> Else
>>> Response.Write "<font color=""red"">File could not be
>>> uploaded..." Response.Write "</font>"
>>> Response.Write "<br>Please select a file before hitting the
>>> 'Submit'"
>>> Response.Write " button."
>>> End If
>>> %>
>>> </p>
>>>
>>> <br>
>>> <table border="0" align="center">
>>> <tr>
>>> <form method="POST" enctype="multipart/form-data"
>>> action="Insert.asp"> <td>Name :</td><td>
>>> <input type="text" name="name" size="40" value="<%= nameInput
>>> %>"> </td></tr>
>>> <td>File :</td><td>
>>> <input type="file" name="file" size="40"></td></tr>
>>> <td> </td><td>
>>> <input type="submit" value="Submit"></td></tr>
>>> </form>
>>> </tr>
>>> </table>
>>>
>>> </body>
>>> </html>
>>>
>>>
>>> loader.asp:
>>>
>>> <%
>>> ' -- Loader.asp --
>>> ' -- version 1.5.2
>>> ' -- last updated 12/5/2002
>>> '
>>> ' Faisal Khan
>>> ' (E-Mail Removed)
>>> ' www.stardeveloper.com
>>> ' Class for handling binary uploads
>>>
>>> Class Loader
>>> Private dict
>>>
>>> Private Sub Class_Initialize
>>> Set dict = Server.CreateObject("Scripting.Dictionary")
>>> End Sub
>>>
>>> Private Sub Class_Terminate
>>> If IsObject(intDict) Then
>>> intDict.RemoveAll
>>> Set intDict = Nothing
>>> End If
>>> If IsObject(dict) Then
>>> dict.RemoveAll
>>> Set dict = Nothing
>>> End If
>>> End Sub
>>>
>>> Public Property Get Count
>>> Count = dict.Count
>>> End Property
>>>
>>> Public Sub Initialize
>>> If Request.TotalBytes > 0 Then
>>> Dim binData
>>> binData = Request.BinaryRead(Request.TotalBytes)
>>> getData binData
>>> End If
>>> End Sub
>>>
>>> Public Function getFileData(name)
>>> If dict.Exists(name) Then
>>> getFileData = dict(name).Item("Value")
>>> Else
>>> getFileData = ""
>>> End If
>>> End Function
>>>
>>> Public Function getValue(name)
>>> Dim gv
>>> If dict.Exists(name) Then
>>> gv = CStr(dict(name).Item("Value"))
>>>
>>> gv = Left(gv,Len(gv)-2)
>>> getValue = gv
>>> Else
>>> getValue = ""
>>> End If
>>> End Function
>>>
>>> Public Function saveToFile(name, path)
>>> If dict.Exists(name) Then
>>> Dim temp
>>> temp = dict(name).Item("Value")
>>> Dim fso
>>> Set fso =
>>> Server.CreateObject("Scripting.FileSystemObject") Dim file
>>> Set file = fso.CreateTextFile(path)
>>> For tPoint = 1 to LenB(temp)
>>> file.Write Chr(AscB(MidB(temp,tPoint,1)))
>>> Next
>>> file.Close
>>> saveToFile = True
>>> Else
>>> saveToFile = False
>>> End If
>>> End Function
>>>
>>> Public Function getFileName(name)
>>> If dict.Exists(name) Then
>>> Dim temp, tempPos
>>> temp = dict(name).Item("FileName")
>>> tempPos = 1 + InStrRev(temp, "\")
>>> getFileName = Mid(temp, tempPos)
>>> Else
>>> getFileName = ""
>>> End If
>>> End Function
>>>
>>> Public Function getFilePath(name)
>>> If dict.Exists(name) Then
>>> Dim temp, tempPos
>>> temp = dict(name).Item("FileName")
>>> tempPos = InStrRev(temp, "\")
>>> getFilePath = Mid(temp, 1, tempPos)
>>> Else
>>> getFilePath = ""
>>> End If
>>> End Function
>>>
>>> Public Function getFilePathComplete(name)
>>> If dict.Exists(name) Then
>>> getFilePathComplete = dict(name).Item("FileName")
>>> Else
>>> getFilePathComplete = ""
>>> End If
>>> End Function
>>>
>>> Public Function getFileSize(name)
>>> If dict.Exists(name) Then
>>> getFileSize = LenB(dict(name).Item("Value"))
>>> Else
>>> getFileSize = 0
>>> End If
>>> End Function
>>>
>>> Public Function getFileSizeTranslated(name)
>>> If dict.Exists(name) Then
>>> temp = LenB(dict(name).Item("Value"))
>>> If temp <= 1024 Then
>>> getFileSizeTranslated = temp & " bytes"
>>> Else
>>> temp = FormatNumber((temp / 1024), 2)
>>> getFileSizeTranslated = temp & " kilobytes"
>>> End If
>>> Else
>>> getFileSizeTranslated = ""
>>> End If
>>> End Function
>>>
>>> Public Function getContentType(name)
>>> If dict.Exists(name) Then
>>> getContentType = dict(name).Item("ContentType")
>>> Else
>>> getContentType = ""
>>> End If
>>> End Function
>>>
>>> Private Sub getData(rawData)
>>> Dim separator
>>> separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)
>>>
>>> Dim lenSeparator
>>> lenSeparator = LenB(separator)
>>>
>>> Dim currentPos
>>> currentPos = 1
>>> Dim inStrByte
>>> inStrByte = 1
>>> Dim value, mValue
>>> Dim tempValue
>>> tempValue = ""
>>>
>>> While inStrByte > 0
>>> inStrByte = InStrB(currentPos, rawData, separator)
>>> mValue = inStrByte - currentPos
>>>
>>> If mValue > 1 Then
>>> value = MidB(rawData, currentPos, mValue)
>>>
>>> Dim begPos, endPos, midValue, nValue
>>> Dim intDict
>>> Set intDict = Server.CreateObject("Scripting.Dictionary")
>>>
>>> begPos = 1 + InStrB(1, value, ChrB(34))
>>> endPos = InStrB(begPos + 1, value, ChrB(34))
>>> nValue = endPos
>>>
>>> Dim nameN
>>> nameN = MidB(value, begPos, endPos - begPos)
>>>
>>> Dim nameValue, isValid
>>> isValid = True
>>>
>>> If InStrB(1, value, stringToByte("Content-Type")) > 1 Then
>>>
>>> begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
>>> endPos = InStrB(begPos + 1, value, ChrB(34))
>>>
>>> If endPos = 0 Then
>>> endPos = begPos + 1
>>> isValid = False
>>> End If
>>>
>>> midValue = MidB(value, begPos, endPos - begPos)
>>> intDict.Add "FileName", trim(byteToString(midValue))
>>>
>>> begPos = 14 + InStrB(endPos + 1, value,
>>> stringToByte("Content-Type:"))
>>> endPos = InStrB(begPos, value, ChrB(13))
>>>
>>> midValue = MidB(value, begPos, endPos - begPos)
>>> intDict.Add "ContentType",
>>> trim(byteToString(midValue))
>>>
>>> begPos = endPos + 4
>>> endPos = LenB(value)
>>>
>>> nameValue = MidB(value, begPos, ((endPos - begPos) - 1))
>>> Else
>>> nameValue = trim(byteToString(MidB(value, nValue + 5)))
>>> End If
>>>
>>> If isValid = True Then
>>>
>>> intDict.Add "Value", nameValue
>>> intDict.Add "Name", nameN
>>>
>>> dict.Add byteToString(nameN), intDict
>>> End If
>>> End If
>>>
>>> currentPos = lenSeparator + inStrByte
>>> Wend
>>> End Sub
>>>
>>> End Class
>>>
>>> Private Function stringToByte(toConv)
>>> Dim tempChar
>>> For i = 1 to Len(toConv)
>>> tempChar = Mid(toConv, i, 1)
>>> stringToByte = stringToByte & chrB(AscB(tempChar))
>>> Next
>>> End Function
>>>
>>> Private Function byteToString(toConv)
>>> For i = 1 to LenB(toConv)
>>> byteToString = byteToString & Chr(AscB(MidB(toConv,i,1)))
>>> Next
>>> End Function
>>> %>


--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.


 
Reply With Quote
 
Bob Barrows [MVP]
Guest
Posts: n/a
 
      03-18-2005
Scott Baxter wrote:
> Thanks Mike. Where is this file? I tried putting a web.config file,
> and it didn't do anything. I put it in the directory where the
> insert.asp file is, and the target directory where I wrote it. Here
> is the web.config I put there:
>
> <?xml version="1.0" encoding="utf-8" ?>
> <configuration>
> <system.web>
> <httpRuntime
> executionTimeout="300"
> maxRequestLength="16384"
> />
> </system.web>
> </configuration>
>
> Do I need to do a command to get my web site to recognize this? It
> seemed to have no effect.
>
> Thanks.
>
> Scott

My mistake: this setting can be made in web.config as well as
machine.config.

The metabase.xml file should be found in %system32%\inetserv
I'm not really sure whether or not the setting in this file overrides the
setting done in machine.config or web.config. My basic understanding is that
the granular settings should override the more global settings, but I may
not be correct.

Bob Barrows
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.


 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
File upload from client application (non-form based upload) stuart@microsoft.com Python 1 11-25-2006 12:14 AM
Upload a file without file Upload control - ASP.Net =?Utf-8?B?U2FyYXY=?= ASP .Net 3 08-03-2005 01:09 AM
Re: Timeout? in asp script upload Bob Barrows [MVP] ASP .Net 0 03-18-2005 01:40 PM
How to detect sizeof upload in order to show status of browser file upload? Heather Fraser Java 0 07-05-2004 12:35 AM
Upload Excel with Macros using HTML File Upload Prakash ASP General 3 11-12-2003 04:26 AM



Advertisments