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
Proeder's File Attachment Progress Bar
Posted - 14 August 2009 : 11:20:15
