| T O P I C R E V I E W |
| leatherlips |
Posted - 20 July 2009 : 10:19:42
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. |
| 15 L A T E S T R E P L I E S (Newest First) |
| Giumer |
Posted - 18 August 2009 : 12:13:44
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 :
%><!--#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 |
| Giumer |
Posted - 14 August 2009 : 12:29:12
thank you very much! |
| leatherlips |
Posted - 14 August 2009 : 12:04:07
The progress bar mod has nothing to do with upload size. I can't help you with that. |
| Giumer |
Posted - 14 August 2009 : 12:02:24
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
|
| leatherlips |
Posted - 14 August 2009 : 11:20:15
Try this:
Look for:
Response.Write " <form action=""UploadEngine.asp"" enctype=""multipart/form-data"" method=""post"" id=""fileup"" name=""fileup"">" & vbNewLine & _
ABOVE that add:
Response.Write "<script language=""javascript"" src=""uploadprogressbar.js""></script>"
Look for:
<input class=""bouton"" name=""Upload"" type=""SUBMIT"" value=' " & fLang("strLangAttachment00180") & " '>
CHANGE it to:
<input class=""bouton"" name=""Upload"" type=""SUBMIT"" value=' " & fLang("strLangAttachment00180") & " ' onclick=""javascript:bar1.showBar()"">
Look for:
" </form>" & vbNewLine
CHANGE it to:
" </form>" & vbNewLine & _
" <script type=""text/javascript"">var bar1= createBar(300,15,'white',1,'black','blue',85,7,3,"""");bar1.hideBar();</script>" & vbNewLine |
| leatherlips |
Posted - 14 August 2009 : 09:51:19
I'm not sure what you mean.
This mod is for Snitz Forums and the forum you use is Images Forum. |
| Giumer |
Posted - 05 August 2009 : 01:35:39
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
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 ?? |
| Carefree |
Posted - 04 August 2009 : 20:36:57
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. |
| Giumer |
Posted - 04 August 2009 : 17:16:22
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!
|
| Giumer |
Posted - 04 August 2009 : 14:23:35
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! |
| leatherlips |
Posted - 04 August 2009 : 12:51:33
I saw it Giumer when I uploaded a larger file:
 |
| Carefree |
Posted - 04 August 2009 : 12:45:57
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. |
| Giumer |
Posted - 04 August 2009 : 10:36:01
carefee excuse but I can not see the bar? Watch the image
 |
| Carefree |
Posted - 04 August 2009 : 08:22:28
Fixed. Upload bar works. |
| Giumer |
Posted - 04 August 2009 : 05:16:48
Carefree you please just make us have time if you can see why 'I do not start bar' loading? |
|
|
