First I modified an existing image upload script I had around already. The other file upload scripts that are available should do the trick.
Then I made a few basic additions to the standard Snitz distribution...
Added to post.asp below the other "if strRqMethod" lines that reference TxtSub and TxtMsg (for editing topics):
'PHOTOMOD - ADDED MESSAGE AND SUBJECT PARAMETERS
if strRqMethod = "Topic" then
if request.querystring("txtmsg").count > 0 then
TxtMsg = request.querystring("txtmsg")
end if
if request.querystring("txtsub").count > 0 then
TxtSub = request.querystring("txtsub")
end if
end if
'END ADDITION
Added to forum.asp where the "New Topic" link is:
<a href="upload.asp"><img src="icon_camera.gif" alt="New Photo" height=16 width=16 border=0></a> <a href="upload.asp">New Photo</a>
After a photo is successfully uploaded from my upload script (to a directory for each user), I redirect to my "Photos" forum with this line of VBScript:
Response.Redirect("/forum/post.asp?method=Topic&FORUM_ID=12&CAT_ID=5&Forum_Title=Photos&txtsub=" & Server.URLEncode(sPhotoTitle) & "&txtmsg={img}/images/photos/" & iUID & "/" & Server.URLEncode(sFileName) & "{/img}")
In the above code, replace the curly braces around IMG and /IMG with brackets.
I would post my upload script but it uses a lot of proprietary functions from my library and I don't have the time to genericize it and compact it right now.
Hope that helps someone else out, anyway!
Topic Locked
Posted - 29 June 2002 : 22:42:28
