| Author |
 Topic  |
|
xtremebigair
Starting Member
9 Posts |
 Posted - 28 October 2003 : 13:04:42
|
I just installed this mod version:-Requires mouseover forum add-on
File_Sharing_MOD_2.51_28-8-2003.zip
It does NOT have PRIVATESEND.ASP
Is there a version that requires little or no MOD that we can have all the features of file attachments and automatic images displaying? Thanks,
Kinsley< |
 |
|
|
Gargoyle
Junior Member
USA
280 Posts |
|
|
madfiddler
Starting Member
United Kingdom
33 Posts |
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 06 November 2003 : 16:28:34
|
quote:
Originally posted by jeffery
Korayem,
The number of files dont show up anymore under member profile anymore. It shows the right number of folders but not files. Any ideas why?
I seem to have this same problem as jeffery. Has this code changed?
Here is my code from pop_profile.asp:
'#################################
'files uploaded
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Personal File Folders</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
memberFileNo=GetFileNo(CStr(rs("MEMBER_ID")),true,mlev)
memberSubFolderNo = GetSubFolderNo(physicalUploadFolder & "\" & CStr(rs("MEMBER_ID")))
memberFileSize = convertSize(GetFileSize(CStr(rs("MEMBER_ID")),true,mlev))
if memberFileNo="" then memberFileNo=0
if memberSubFolderNo="" then memberSubFolderNo=0
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Files Uploaded:</font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if memberFileNo<>0 then
Response.Write " <a href=""membersFiles.asp?memberFldrID="&rs("MEMBER_ID")&""">Browse</a>" & vbNewLine
else
response.write memberFileNo & "<BR>"
Response.Write " No Files uploaded" & vbNewLine
end if
Response.Write " </font></td>"& vbNewLine&_
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Total File(s): </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"&memberFileNo&"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Subfolder(s): </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"&memberSubFolderNo&"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Total Size: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"&memberFileSize&"</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Response.write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""membersFiles.asp?memberFldrID="""&memberID&""">Find all shared files uploaded by " & chkString(rs("M_NAME"),"display") & "</a></font></td>" & vbNewLine
'files uploaded
'####################################
I also put an extra link in here to go to the members shared files if anyone is interested. See above in red< |
|
|
|
ehoffman73
Starting Member
45 Posts |
Posted - 08 November 2003 : 16:27:39
|
This is also happening to me...the member folders don't exist before they upload, does this not auto-create those folders for a member....can't manually make folders for thousands of members.
Thanks!
quote:
Originally posted by mortioli
Scripting error '800a0046'
Permission denied
/forum/membersfiles.asp, line 424
Would this be a problem with the server creating the folders?
How would I get round this 
< |
|
|
|
jringo
Starting Member
44 Posts |
Posted - 19 November 2003 : 09:58:52
|
| Is there an alternate location I can download this MOD. Hasdot.com won't let me register so I can get the file, won't let me contact him from the website. This looks like a great MOD.< |
John R. |
|
|
|
guessme
Banned User
393 Posts |
Posted - 22 November 2003 : 16:03:55
|
Are all the problems solved yet? How come the final version 2.51 has a text, FILE SHARING MOD V2.4, in it?
< |
 |
Edited by - guessme on 23 November 2003 03:25:40 |
|
|
|
sam_i_am003
New Member
50 Posts |
Posted - 24 November 2003 : 10:24:53
|
ok, i have a newer version, and i cannot find the string:
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input class=buttons name=""Submit"" type=""submit"" value=""Send Message""> <input class=buttons name=""Preview"" type=""button"" value=""Preview"" onclick=""OpenPreview()""> <input class=buttons name=""Reset"" type=""reset"" value=""Reset Fields""></td>" & vbNewLine & _
in privatesend.asp.... so can i not use this mod? it would suck seeing as how i have already modified a number of files. any help would be appreciated.< |
|
|
|
guessme
Banned User
393 Posts |
Posted - 25 November 2003 : 02:16:58
|
| I think 2.51 is the newest one but i just wonder if it really is 2.51 that you download.< |
|
|
|
|
gungadin
Starting Member
6 Posts |
Posted - 26 November 2003 : 03:51:26
|
Hi
Having problems with this mod. everything works? apart from when files are uploaded, they are always stored in Category 0 by default even when a different category is selected at the upload screen. The text files can be edited, which will put the files in the correct category, but to do that for every document is a non starter. Anyone got any clues?< |
|
|
|
madfiddler
Starting Member
United Kingdom
33 Posts |
Posted - 26 November 2003 : 07:03:46
|
quote:
Originally posted by gungadin
Hi
Having problems with this mod. everything works? apart from when files are uploaded, they are always stored in Category 0 by default even when a different category is selected at the upload screen. The text files can be edited, which will put the files in the correct category, but to do that for every document is a non starter. Anyone got any clues?
yeah I just realised I have the same problem
If you go to EDIT a file once uploaded changing the category works, bu on initial upload like you say the category selected isn't being picked up.
Have you solved this yet?....I'm looking into it, so I'll post somehing if I spot the bug!
cheers
mf< |
|
|
|
madfiddler
Starting Member
United Kingdom
33 Posts |
Posted - 26 November 2003 : 11:19:44
|
OK I sussed it 
this may not be the best solution but appears to be the simplest
In pop_upload_new_result.asp at around line 154 replace this
writeFileInfoText pUTF&"\"&filename&".txt",fileDesc,downloadNo,fileCat,formMembersAccess,formGuestsAccess
with this
writeFileInfoText pUTF&"\"&filename&".txt",fileDesc,downloadNo, UploadRequest.Item("fileCat").Item("Value") ,formMembersAccess,formGuestsAccess
cheers then
mf< |
|
|
|
gungadin
Starting Member
6 Posts |
Posted - 27 November 2003 : 03:32:36
|
| Yep that certainly fixed it! Thanks for that..< |
|
|
|
madfiddler
Starting Member
United Kingdom
33 Posts |
Posted - 08 December 2003 : 09:58:37
|
I've made a mod to Korayem's mod which will automatically change the file attachment code in topics/replies when a file is moved in and out of sub-folders.
It's fairly straight forward. I've just done this on the TOPICS and REPLY table but should be fairly easy to apply to the archived tables and Private Message tables if you have the mod installed - just copy the section of code and tweak the table and column names.
Add the following code in to inc_files_move.asp at line 113 which should be immediately before the line response.redirect commonMemFilesURL&"&memberFldrID="&Request("memberFldrID")&"&cSF="&Request("cSF")
Mod code...
' #### madfiddler mod to change the link in actual posts that have this attached
Dim rsT1, rsR1, msgText, currentAttachFolder, targetAttachFolder
' sort out the folder parameter for file attachment
targetAttachFolder = request.form("moveFileDest")
If targetAttachFolder = "_Parent" then
targetAttachFolder = ""
end if
currentAttachFolder = cSF
If currentAttachFolder = "_Parent" then
currentAttachFolder = ""
end if
' update TOPICS
strSql = "SELECT T_MESSAGE, TOPIC_ID FROM " & strMemberTablePrefix & "TOPICS " & _
"WHERE T_MESSAGE LIKE '%" & moveFileName & "," & memberFldrID & "," & currentAttachFolder & ",%'"
response.write strSql
set rsT1 = my_Conn.Execute (strSql)
While not rsT1.EOF
msgText = Replace(rsT1("T_MESSAGE"), _
"[file]" & moveFileName & "," & memberFldrID & "," & currentAttachFolder & "," , _
"[file]" & moveFileName & "," & memberFldrID & "," & targetAttachFolder & ",")
strSql = "UPDATE " & strMemberTablePrefix & "TOPICS " & _
" SET T_MESSAGE = '" & msgText & "'" & _
" WHERE TOPIC_ID = " & rsT1("TOPIC_ID")
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
rsT1.MoveNext
Wend
rsT1.Close
' update REPLIES
strSql = "SELECT R_MESSAGE, REPLY_ID FROM " & strMemberTablePrefix & "REPLY " & _
"WHERE R_MESSAGE LIKE '%" & moveFileName & "," & memberFldrID & "," & currentAttachFolder & ",%'"
set rsR1 = my_Conn.Execute (strSql)
While not rsR1.EOF
msgText = Replace(rsR1("R_MESSAGE"), _
"[file]" & moveFileName & "," & memberFldrID & "," & currentAttachFolder & "," , _
"[file]" & moveFileName & "," & memberFldrID & "," & targetAttachFolder & ",")
strSql = "UPDATE " & strMemberTablePrefix & "REPLY " & _
" SET R_MESSAGE = '" & msgText & "'" & _
" WHERE REPLY_ID = " & rsR1("REPLY_ID")
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
rsR1.MoveNext
Wend
rsR1.Close
You can also apply similar changes to inc_files_rename.asp to handle file and folder renames.
I've posted on the shnforum and attached the two files already chanegd if anyone needs them (mvren.zip)
http://www.shnforum.com/forum/topic.asp?TOPIC_ID=2180
< |
Edited by - madfiddler on 08 December 2003 12:19:25 |
|
|
|
olef
Starting Member
Denmark
19 Posts |
Posted - 07 January 2004 : 04:13:59
|
quote:
Originally posted by mvrp350
Okay I got it working, except that I have 1 problem:
If I upload a file it processes and the second screen, stating the upload has completed, appears. If I look in my webpage the file is still in the tempfiles-folder, but has not been moved towards the user-folder.
I've installed this GREAT MOD on 3.4.03, and get the same problem.
I have the following settings:
sharedFilesMode=1.
physicalUploadFolder = "D:\Webhotel\domain.xx\www\ver3_4\files\sharedfiles"
physicalUploadTempFolder = "D:\Webhotel\domain.xx\www\ver3_4\files\temp"
physicalUploadTextFolder = "D:\Webhotel\domain.xx\www\ver3_4\files\filestext"
logFilePath = "D:\Webhotel\domain.xx\www\ver3_4\files\logfiles"
When a member is uploading af file for the first time, the member-ID folder is created in the psysicalUploadFolder, but the uploaded file is not moved from the temp-folder to the member-ID folder.
The same happens when the member-ID folder excists, and uploaing files.
Hope someone hav an idea
Regards
Ole< |
|
|
|
Topic |
|
File Sharing MOD (FINAL 2.51 updated 28-8-03 )
<