Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringProeder's File Attachment Progress Bar

Author : leatherlips
Subject : Proeder's File Attachment Progress Bar
Posted : 20 July 2009, 10:19
Message :

Having recently installed Proeder's File Attachment mod, I noticed it did not have a progress bar indicator letting users know that their file was being uploaded.
This addon will give you a progress bar indicator when a member uploads a file. Note that this progress bar is simply an animation and does not actually measure the upload progress. It does however give your members the peace of mind that their file is uploading rather than staring at a static screen.
You can get it here.

Reply Author: Carefree
Replied on: 20 July 2009, 17:45
Message:

The file sharing mod includes a functional upload bar. May want to look at it.

Reply Author: leatherlips
Replied on: 20 July 2009, 19:03
Message:

Thanks. I'll look into it.

Reply Author: Giumer
Replied on: 01 August 2009, 14:11
Message:

Carefree me the mods mod file sharing it's already installed, but I can not see the bar I tried to watch some files but still can not get to see the loading bar!

Reply Author: Carefree
Replied on: 01 August 2009, 18:13
Message:

Giumer,I'll look into it for you.

Reply Author: Giumer
Replied on: 02 August 2009, 01:10
Message:

ok you make us do with my information?

Reply Author: Giumer
Replied on: 04 August 2009, 05:16
Message:

Carefree you please just make us have time if you can see why 'I do not start bar' loading?

Reply Author: Carefree
Replied on: 04 August 2009, 08:22
Message:

Fixed. Upload bar works.

Reply Author: Giumer
Replied on: 04 August 2009, 10:36
Message:

carefee excuse but I can not see the bar? Watch the image

Reply Author: Carefree
Replied on: 04 August 2009, 12:45
Message:

You won't see the bar, uploads will go too fast if you're hosting the site. I uploaded a test file and the bar worked.

Reply Author: leatherlips
Replied on: 04 August 2009, 12:51
Message:

I saw it Giumer when I uploaded a larger file:

Reply Author: Giumer
Replied on: 04 August 2009, 14:23
Message:

yes yes mate sorry ! i' am have problem for coockie ! sorry and thx ! i need configuration IE 8 ! lol !

carefee to know where was the problem on which file pui tell me? so learn! lol!

Reply Author: Giumer
Replied on: 04 August 2009, 17:16
Message:

Carefee now I understand! not the browers IE8! the bar only works when the forum and set the English language, if I put the Italian language bar does not see more! What if I say you've changed the language I think thanks and sorry if I'm stretching this post!

Reply Author: Carefree
Replied on: 04 August 2009, 20:36
Message:

It shouldn't be language specific. I didn't do anything to the language selection. I did replace your bar file since the one you were using had been modified incorrectly. I have been looking to try and find out why the Italian version isn't using the bar. I'll let you know if/when I find something.

Reply Author: Giumer
Replied on: 05 August 2009, 01:35
Message:

I wanted if possible to integrate this mod in another mod that I installed
the enclosed form txt file in the mod progress bar

file is pop_upload.asp

http://www.giumer.it/public/prova/pop_upload.txt

readmy is this

Code:

Proeders's File Attachment MOD Progress Bar Addon

by Leatherlips

Source for progress bar script: http://www.dynamicdrive.com/dynamicindex11/xpprogressbar.htm

Ease of installation: 1 (1 - 10 with 1 being the easiest)

This addon will give you a progress bar indicator when a member uploads a file.  Note that this progress bar is simply an animation and does not actually measure to upload progress.  It does however give your members the peace of mind that their file is uploading rather than staring at a static screen.

****************************************

Instructions:


1.  Upload the file uploadprogressbar.js to your forums directory.

2.  Open your pop_upload_new.asp file.

Look For:

If strAllowedSize < 1024 Then
         strAllowedSize = Round(strAllowedSize,2) & " Bytes"
   ElseIf strAllowedSize < 1048576 Then
         strAllowedSize = Round(strAllowedSize/1024,2) & " KB"
   Else
         strAllowedSize = Round(strAllowedSize/1048576,2) & " MB"
   End If

BELOW that add:

Response.Write "<script language=""javascript"" src=""uploadprogressbar.js""></script>"

3.  Look For:

onclick=""value='Please wait...';""

CHANGE it to:

onclick=""value='Please wait...'; javascript:bar1.showBar()""

4.  Look For:

"       </FORM>" & vbNewLine & _

BELOW that add:

"  <script type=""text/javascript"">var bar1= createBar(300,15,'white',1,'black','blue',85,7,3,"""");bar1.hideBar();</script>" & vbNewLine & _

Your're Finished!

Ops ! code not funcion ??

Reply Author: leatherlips
Replied on: 14 August 2009, 09:51
Message:

I'm not sure what you mean.
This mod is for Snitz Forums and the forum you use is Images Forum.

Reply Author: leatherlips
Replied on: 14 August 2009, 11:20
Message:

Try this:

Look for:

Code:

Response.Write   "      <form action=""UploadEngine.asp"" enctype=""multipart/form-data"" method=""post"" id=""fileup"" name=""fileup"">" & vbNewLine & _

ABOVE that add:

Code:

Response.Write "<script language=""javascript"" src=""uploadprogressbar.js""></script>"

Look for:

Code:

<input class=""bouton"" name=""Upload"" type=""SUBMIT"" value=' " & fLang("strLangAttachment00180") & " '>

CHANGE it to:

Code:

<input class=""bouton"" name=""Upload"" type=""SUBMIT"" value=' " & fLang("strLangAttachment00180") & " ' onclick=""javascript:bar1.showBar()"">

Look for:

Code:

"      </form>" & vbNewLine

CHANGE it to:

Code:

"      </form>" & vbNewLine & _
"  <script type=""text/javascript"">var bar1= createBar(300,15,'white',1,'black','blue',85,7,3,"""");bar1.hideBar();</script>" & vbNewLine

Reply Author: Giumer
Replied on: 14 August 2009, 12:02
Message:

Nice !! thx mate !

ok and as you can see, I wanted a second information and you can increase the size of file upload? with the other mod share can send up to 8 MB! This can only 3,5 mb

Reply Author: leatherlips
Replied on: 14 August 2009, 12:04
Message:

The progress bar mod has nothing to do with upload size. I can't help you with that.

Reply Author: Giumer
Replied on: 14 August 2009, 12:29
Message:

thank you very much!

Reply Author: Giumer
Replied on: 18 August 2009, 12:13
Message:

I wanted to ask if anyone can help me to modify this mod (share) and I wanted to know if can change so that when inserted the file does not do as image, but I want it to do so through links

and send file or attakament link is this original :

[file]_Rhianna_feat._Jay-Z_-_Umbrella.mp3,1,,[/file]
me need this link

[mp3]http://www.giumer.it/public/sharedfiles/1/_Rhianna_feat._Jay-Z_-_Umbrella.mp3[/mp3]

and me file inc_func_common querry is this :

Code:

   %><!--#INCLUDE FILE="inc_UploadConfig.asp" --><%
   function downloadFilePost(fString)
      if instr(fString,"[file]")<>0 and instr(fString,"[/file]")<>0 then
         Dim fileTag1, fileTag2, begStr, endStr
         Dim leftPart, rightPart, midPart
         Dim arrFileInfo, fileName, fileNameExt, memberFldrID, cSF, forumID
         fileTag1 = countSubstrInStr(fString,"[file]")
         fileTag2 = countSubstrInStr(fString,"[/file]")
         for i=1 to fileTag1

            begStr = instr(fString,"[file]")+6
            endStr = instr(fString,"[/file]")
            leftPart=Left(fString,begStr-7)	
            rightPart=right(fString,len(fString)-endStr -6)
            arrfileInfo=Mid(fString,begStr,endStr-begStr)
            arrFileInfo=Split(arrfileInfo,",")
            fileName=arrFileInfo(0)
            fileNameExt = UCase(Mid(fileName,InStrRev(fileName,".")))
            memberFldrID=arrFileInfo(1)
            cSF=arrFileInfo(2)
            forumID=arrFileInfo(3)
            midPart=""

            midPart=midPart & "    <table " & TableBorderColor1 & " border=""0"" " & Cellspacing & " cellpadding=""4"" align=""center"">" & vbNewline
            midPart=midPart & "      <tr>" & vbNewline
            midPart=midPart & "        <td " & ForumCellColor & " colspan=""2"">" & vbNewline
            midPart=midPart & "        <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ " & ForumFontColor & ">" & vbNewline
            if disableAllFileSharing=false and disableDownload=false then
               if forumID<>"" and sharedFilesMode = 2 then
                  physicalUploadFolder = physicalUploadFolder & "\" & forumID
                  physicalUploadTextFolder = physicalUploadTextFolder & "\" & forumID
               end if 
               if cSF="" then
                  currentFile = physicalUploadFolder& "\" & memberFldrID & "\" & fileName
                  currentTextFile = physicalUploadTextFolder& "\" & memberFldrID & "\" & fileName &".txt"
               else
                  currentFile = physicalUploadFolder& "\" & memberFldrID & "\" & cSF & "\" & fileName
                  currentTextFile = physicalUploadTextFolder& "\" & memberFldrID & "\" & cSF & "\" & fileName &".txt"
               end if
               Set theFSO=Server.CreateObject("Scripting.FileSystemObject") 			
               if theFSO.FileExists(currentFile) then
                  Set thisFile=theFSO.GetFile(currentFile)
                  fileSize=convertSize(thisFile.size)
                  fileDate=DateAdd("h", strTimeAdjust , thisFile.DateLastModified) 
                  if theFSO.FileExists(currentTextFile) then
                     currentFileInfo=readFileInfoText(currentTextFile)
                     fileDesc = currentFileInfo(0)
                     downloadNo = currentFileInfo(1)
                     fileCat = currentFileInfo(2)
                     membersAccess = cLng(currentFileInfo(3))
                     guestsAccess = cLng(currentFileInfo(4))
                  else
                     fileDesc= ""
                     downloadNo = 0
                     fileCat=0
                     membersAccess = 2
                     guestsAccess = 0
                     writeFileInfoText currentTextFile,fileDesc,downloadNo,fileCat,membersAccess,guestsAccess
                     fileDesc= fLang("strLangI_UploadFunc00010") & vbNewLine
                  end if
                  Set thisFile = nothing
                  Set theFSO = nothing
                  fString=currentTextFile				
                  select case fileNameExt
                     case ".JPG", ".JPEG", ".GIF", ".PNG"
                        midPart=midPart & "<b>" & fLang("strLangI_F_Common00700") & "</b> "
                        midPart=midPart & fileName
                        midPart=midPart & " (" & fileSize & ")"
                        midPart=midPart & "<br />" & fLang("strLangI_UploadFunc00050") & " " & fileDate
                        midPart=midPart & "<br />" & fLangN("strLangI_F_Common00710",downloadNo)
                        if fileCatMode = true then
                           midPart=midPart & "<br /><b>" & fLang("strLangPost00360") & "</b> " & fileCatList(4)
                        end if
                        midPart=midPart & "<br /><b>" & fLang("strLangFile_Library00350") & ":</b><br />" & fileDesc & "<br />"
                        midPart=midPart & "<br /><img name='img' src=""download.asp?forumID="&forumID&"&fileName="&fileName&"&memberFldrID="&memberFldrID&"&cSF="&cSF&""" style='cursor:default' onClick='doimage(this,event)'>"
                     case ".SWF"
                        Dim width, height
                        width=arrFileInfo(4)
                        height=arrFileInfo(5)
                        width=replace(width,"width=","")
                        height=replace(height,"height=","")
                        midPart=midPart & "<b>" & fLang("strLangI_F_Common00720") & "</b> "
                        midPart=midPart & fileName
                        midPart=midPart & " (" & fileSize & ")"
                        midPart=midPart & "<br />" & fLang("strLangI_UploadFunc00050") & " " & fileDate
                        midPart=midPart & "<br />" & fLangN("strLangI_F_Common00710",downloadNo)
                        if fileCatMode = true then
                           midPart=midPart & "<br /><b>" & fLang("strLangPost00360") & "</b> " & fileCatList(2)
                        end if
                        midPart=midPart&"<br /><b>" & fLang("strLangFile_Library00350") & ":</b><br />" & fileDesc & "<br />"
                        midPart=midPart&"<br /><embed src=""download.asp?forumID="&forumID&"&fileName="&fileName&"&memberFldrID="&memberFldrID&"&cSF="&cSF&""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width="""& width &""" height="""& height &"""></embed></object>"
                     case else
                        midPart=midPart & "<br /><b>" & fLang("strLangI_F_Common00730") & "</b> "
                        midPart=midPart & " <a href=""download.asp?forumID="&forumID&"&fileName="&fileName&"&memberFldrID="&memberFldrID&"&cSF="&cSF&""">"
                        midPart=midPart & fileName
                        midPart=midPart & "</a>"
                        midPart=midPart & " (" & fileSize & ")"
                        midPart=midPart & "<br />" & fLang("strLangI_UploadFunc00050") & " " & fileDate
                        midPart=midPart & "<br />" & fLangN("strLangI_UploadFunc00060",downloadNo)
                        if fileCatMode = true then
                           midPart=midPart & "<br /><b>" & fLang("strLangPost00360") & "</b> " & fileCatList(5)
                        end if
                        midPart=midPart & "<br /><b>" & fLang("strLangFile_Library00350") & ":</b><br />" & fileDesc & "<br />"
                  end select
               else			
                  midPart=midPart & "<b>" & fLang("strLangI_F_Common00740") & "</b> "
                  midPart=midPart & fileName
               end if
            elseif disableAllFileSharing = true or disableDownload = true then
               midPart=midPart & "<font color="""&strHiLiteFontColor&"""><b>" & fLang("strLangI_F_Common00750") & "</b></font> " & fileName
            end if
            midPart=midPart & "        </font></td></tr>"
            midPart=midPart & "    </table>"
            fString = leftPart & midPart & rightPart
         next
      end if
      downloadFilePost=fString
   end function

Proeder's File Attachment Progress Bar

Topic

Replies ...