Timeout? in asp script upload

Discussion in 'ASP General' started by Scott Baxter, Mar 16, 2005.

  1. Scott Baxter

    Scott Baxter Guest

    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
    '
    ' 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
    %>
    Scott Baxter, Mar 16, 2005
    #1
    1. Advertising

  2. Scott Baxter

    Ignus Fast Guest

    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" <> wrote in message
    news:...
    > 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
    > '
    > ' 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
    > %>
    >
    >
    Ignus Fast, Mar 16, 2005
    #2
    1. Advertising

  3. Scott Baxter

    Mike D Guest

    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
    > '
    > ' 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
    > %>
    >
    >
    >
    Mike D, Mar 17, 2005
    #3
  4. Scott Baxter

    Scott Baxter Guest

    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" <> wrote in message
    news:...
    > 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
    > > '
    > > ' 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
    > > %>
    > >
    > >
    > >
    Scott Baxter, Mar 17, 2005
    #4
  5. 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" <> wrote in message
    > news:...
    >> 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
    >>> '
    >>> ' 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.
    Bob Barrows [MVP], Mar 18, 2005
    #5
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Bob Barrows [MVP]

    Re: Timeout? in asp script upload

    Bob Barrows [MVP], Mar 18, 2005, in forum: ASP .Net
    Replies:
    0
    Views:
    627
    Bob Barrows [MVP]
    Mar 18, 2005
  2. Bob Barrows [MVP]

    Re: Timeout? in asp script upload

    Bob Barrows [MVP], Mar 18, 2005, in forum: ASP .Net
    Replies:
    0
    Views:
    387
    Bob Barrows [MVP]
    Mar 18, 2005
  3. Scott Baxter

    Timeout? in asp script upload

    Scott Baxter, Mar 16, 2005, in forum: ASP .Net Web Controls
    Replies:
    5
    Views:
    145
    Bob Barrows [MVP]
    Mar 18, 2005
  4. Scott Baxter

    Timeout? in asp script upload

    Scott Baxter, Mar 16, 2005, in forum: ASP .Net Web Services
    Replies:
    5
    Views:
    139
    Bob Barrows [MVP]
    Mar 18, 2005
  5. Mark Probert

    Timeout::timeout and Socket timeout

    Mark Probert, Oct 6, 2004, in forum: Ruby
    Replies:
    1
    Views:
    1,281
    Brian Candler
    Oct 6, 2004
Loading...

Share This Page