Author |
Topic |
Markp
New Member
54 Posts |
Posted - 04 July 2001 : 16:00:48
|
This is an extension on another thread. Quite frankly was getting lost.
I have implemented the Mod. I have gone into the Admin section and set the files size to 50KB - and the file extensions. When I go to post a message, I do not see a way to upload the files.
I am using the uploadengine.asp that is for posting the images rather than setting a hyplerlink.
Thanks
Edited by - markp on 04 July 2001 16:21:33 |
|
Markp
New Member
54 Posts |
Posted - 04 July 2001 : 17:59:19
|
One other thing, if I delete a post now, as Adim, I end up back at this forum, instead of returning to my own.
thanks
|
|
|
SalmanKhana
Average Member
USA
961 Posts |
Posted - 04 July 2001 : 21:26:48
|
I guess everything is stored in your cache, Delete the cookies/cache and refresh the page. Try it
The way to upload files is simple.. Just next to the Mode : ( Basic ) below you will have something called Attach File : .... go ahead and click it
it will show if you have properly edited post.asp !!
Edited by - SalmanKhana on 04 July 2001 21:28:04 |
|
|
Markp
New Member
54 Posts |
|
Markp
New Member
54 Posts |
Posted - 04 July 2001 : 22:49:10
|
I also went through all the code inserts again, I believe I have them all correct, you would imagine if I inserted them incorrectly I would experience some error.
Thanks for your help. I am probably missing some small thing but I can't imagine what.
Edited by - markp on 04 July 2001 22:50:29 |
|
|
SalmanKhana
Average Member
USA
961 Posts |
Posted - 05 July 2001 : 01:22:09
|
Can you put up your UPloadEngine.asp please ?
Let me have a look at it.
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 05 July 2001 : 06:15:13
|
If you ar not getting the upload icon, then the app variabkes for allowing upploads have not been set, If yo have a file called MOD_CONFIG, check that the variables for attachment are uncommented
|
|
|
SalmanKhana
Average Member
USA
961 Posts |
Posted - 05 July 2001 : 11:01:52
|
o yes.. huwR is right
you have to uncomment those 3 or 4 lines there !!
check it out dude .. i'll be back after my final.. i'm pretty scared though
|
|
|
Markp
New Member
54 Posts |
Posted - 05 July 2001 : 11:23:48
|
I ll check it now, you'll do fine just relax, breath deep, plenty of oxygen, best brain food there is.
Mark
|
|
|
Markp
New Member
54 Posts |
Posted - 05 July 2001 : 12:02:48
|
Ok missed the variable declaration, DUH!.
page cannot be displayed There is a problem with the page you are trying to reach and it cannot be displayed.
--------------------------------------------------------------------------------
Please try the following:
Click the Refresh button, or try again later.
Open the www.opforland.com home page, and then look for links to the information you want. HTTP 500.100 - Internal Server Error - ASP error Internet Information Services
--------------------------------------------------------------------------------
Technical Information (for support personnel)
Error Type: Active Server Pages, ASP 0126 (0x80004005) The include file 'config.asp' was not found. /forum/Mods/UploadEngine.asp, line 41 This is waht I am getting now.
|
|
|
Markp
New Member
54 Posts |
Posted - 05 July 2001 : 12:05:54
|
current Uploadengine.asp loaction /forum/mod/uploadengine.asp
<% '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# '# File Attachment Mod by Huw Reddick '################################################################################# %> <!--#include file="config.asp"--> <!--#include file="inc_functions.asp"--> <!-- #include file="include/clsUpload.inc" -->
<% '--- Object to parse the input --- Dim objUpload Dim strRoot Dim strFolder Dim MaxFileSize Dim boolAllowedType Dim strAllowedExtensions Dim strResult Dim faname Dim boolSuccess Dim intFileLen Dim ImageFile Dim ServerTimeout ServerTimeout = 10000 set my_Conn= Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString Set objDict = Server.CreateObject("Scripting.Dictionary") set objRec = my_Conn.execute("SELECT * FROM " & strTablePrefix & "MODS WHERE M_NAME = 'Attachment' OR M_CODE = 'Attachment'")
while not objRec.EOF objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value objRec.moveNext wend MaxFileSize = cLng(objDict.Item("faMaxSize"))*512 strAllowedExtensions = objDict.Item("faExtensions") boolAllowUploads = cint(objDict.Item("Attachment"))
objRec.Close set objDict = nothing set my_Conn = nothing
strResult = "Finished..."
If Request.TotalBytes > 0 Then Set objUpload = new clsUpload objUpload.ParseRequest If (objUpload.Files.Count = 1) Then strFolder = objUpload.Form.Item("Folder") TopicID = objUpload.Form.Item("TOPIC_ID") ReplyID = objUpload.Form.Item("REPLY_ID") ServerTimeout = objUpload.Form.Item("TimeOut") if ReplyId = "" then ReplyID = -1 end if if TopicID = "" then TopicID = -1 end if MemberID = objUpload.Form.Item("MEMBER_ID") faname = objUpload.Files.Item(0).FileName boolAllowedType = Instr(strAllowedExtensions, Right(objUpload.Files.Item(0).FileName,4)) > 0 ImageFile = Instr(".jpg,.gif", Right(objUpload.Files.Item(0).FileName,4)) > 0 intFileLen = len(objUpload.Files.Item(0).Blob) if intFileLen > MaxFileSize then strResult = "File is too Large to upload" else if boolAllowedType then Response.write "Uploading.... Please wait" boolSuccess = saveDoc() If boolSuccess = "True" Then intoDB() strResult = "The File " & objUpload.Files.Item(0).FileName & " was uploaded to the Server" End If else strResult = "File Type Not Allowed" end if end if Else strResult = "No file to upload." End If End If
'--------------------------------------------------------------------------- '- Function : intoDB '- Description : inserts the document information in the database '--------------------------------------------------------------------------- Private Function intoDB() Dim strSQL set my_Conn= Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString set rs= Server.CreateObject("ADODB.Recordset") strSQL = "INSERT INTO " & strMemberTablePrefix & "USERFILES (MEMBER_ID,F_FILENAME,F_FILESIZE,F_TOPIC_ID,F_REPLY_ID) VALUES(" strSQL = strSQL & MemberID & ", " strSQL = strSQL & "'" & objUpload.Files.Item(0).FileName strSQL = strSQL & "'," & intFileLen & ", " strSQL = strSQL & TopicID & ", " strSQL = strSQL & ReplyID & ")" my_Conn.execute( strSQL ) strSQL = "SELECT F_FILEID FROM " & strMemberTablePrefix & "USERFILES WHERE MEMBER_ID=" & MemberID strSQL = strSQL & " AND F_TOPIC_ID=" & TopicID & " AND F_REPLY_ID=" & ReplyID if not ImageFile then set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, my_Conn, 3 faname = rs("F_FILEID") rs.close end if my_conn.close End Function
'--------------------------------------------------------------------------- '- Function : saveDoc '--------------------------------------------------------------------------- private function saveDoc()
Dim strFile Dim fso server.scriptTimeout = cLng(ServerTimeout) strRoot = Server.MapPath(strCookieURL & "uploaded") & GetSlash & strFolder strFile = strRoot & GetSlash & objUpload.Files.Item(0).FileName Set fso = Server.CreateObject("Scripting.FileSystemObject") If not fso.FolderExists(strRoot) then
fso.createFolder(strRoot) end if objUpload.Files.Item(0).Save strRoot saveDoc = (fso.FileExists(strFile)) End Function Function GetSlash strAspOs = UCase(Request.ServerVariables("ASP_OS")) If InStr(strAspOs,"WINDOWS") Then GetSlash = "\" Else GetSlash = "/" End If end function
%> <html>
<head> <title><% =strForumTitle %></title> <meta name="copyright" content="This code is Copyright (C) 2000 Michael Anderson"> <Style><!-- a:link {color:<% =strLinkColor %>;text-decoration:<% =strLinkTextDecoration %>} a:visited {color:<% =strVisitedLinkColor %>;text-decoration:<% =strVisitedTextDecoration %>} a:hover {color:<% =strHoverFontColor %>;text-decoration:<% =strHoverTextDecoration %>} --></style> </head>
<BODY bgColor="<% =strPageBGColor %>" text="<% =strDefaultFontColor %>" link="<% =strLinkColor %>" aLink=<% =strActiveLinkColor %> vLink="<% =strActiveLinkColor %>" onLoad="window.focus()">
<table width="100%" height="100%"> <tr> <td align=center valign=center> <div align=center><center> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<p> <%=strResult%></p><br><br>
<p> <% if imageFile then %> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= addimage()">Close Window</A></font> <% Else %> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= addfile()">Close Window</A></font> <% End If %> </p> </font> </center></div> </td> </tr> </table> <script language="JavaScript"> <!-- function addfile() { var fname, resultString resultString ='<%= boolSuccess %>'; fname = '<%= faname %>'; if (resultString) window.opener.document.PostTopic.Message.value+= 'download'; window.close(); }
//--> </script> <script language="JavaScript"> <!-- function addimage() { var fname, resultString resultString ='<%= boolSuccess %>'; fname = '<%= faname %>'; if (resultString) window.opener.document.PostTopic.Message.value+= ''; window.close(); }
//--> </script>
</BODY> </HTML>
Edited by - markp on 05 July 2001 12:07:24 |
|
|
Markp
New Member
54 Posts |
Posted - 05 July 2001 : 20:00:07
|
bump
|
|
|
SalmanKhana
Average Member
USA
961 Posts |
Posted - 05 July 2001 : 22:25:11
|
copy this code in your uploadengine.asp
i can email it to u too
<% '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# '# File Attachment Mod by Huw Reddick '################################################################################# %> <!--#include file="../config.asp"--> <!--#include file="../inc_functions.asp"--> <!-- #include file="../include/clsUpload.inc" -->
<% '--- Object to parse the input --- Dim objUpload Dim strRoot Dim strFolder Dim MaxFileSize Dim boolAllowedType Dim strAllowedExtensions Dim strResult Dim faname Dim boolSuccess Dim intFileLen Dim ImageFile Dim ServerTimeout ServerTimeout = 10000 set my_Conn= Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString Set objDict = Server.CreateObject("Scripting.Dictionary") set objRec = my_Conn.execute("SELECT * FROM " & strTablePrefix & "MODS WHERE M_NAME = 'Attachment' OR M_CODE = 'Attachment'")
while not objRec.EOF objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value objRec.moveNext wend MaxFileSize = cLng(objDict.Item("faMaxSize"))*512 strAllowedExtensions = objDict.Item("faExtensions") boolAllowUploads = cint(objDict.Item("Attachment"))
objRec.Close set objDict = nothing set my_Conn = nothing
strResult = "Finished..."
If Request.TotalBytes > 0 Then Set objUpload = new clsUpload objUpload.ParseRequest If (objUpload.Files.Count = 1) Then strFolder = objUpload.Form.Item("Folder") TopicID = objUpload.Form.Item("TOPIC_ID") ReplyID = objUpload.Form.Item("REPLY_ID") ServerTimeout = objUpload.Form.Item("TimeOut") if ReplyId = "" then ReplyID = -1 end if if TopicID = "" then TopicID = -1 end if MemberID = objUpload.Form.Item("MEMBER_ID") faname = objUpload.Files.Item(0).FileName boolAllowedType = Instr(strAllowedExtensions, Right(objUpload.Files.Item(0).FileName,4)) > 0 ImageFile = Instr(".jpg,.gif", Right(objUpload.Files.Item(0).FileName,4)) > 0 intFileLen = len(objUpload.Files.Item(0).Blob) if intFileLen > MaxFileSize then strResult = "File is too Large to upload" else if boolAllowedType then Response.write "Uploading.... Please wait" boolSuccess = saveDoc() If boolSuccess = "True" Then intoDB() strResult = "The File " & objUpload.Files.Item(0).FileName & " was uploaded to the Server" End If else strResult = "File Type Not Allowed" end if end if Else strResult = "No file to upload." End If End If
'--------------------------------------------------------------------------- '- Function : intoDB '- Description : inserts the document information in the database '--------------------------------------------------------------------------- Private Function intoDB() Dim strSQL set my_Conn= Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString set rs= Server.CreateObject("ADODB.Recordset") strSQL = "INSERT INTO " & strMemberTablePrefix & "USERFILES (MEMBER_ID,F_FILENAME,F_FILESIZE,F_TOPIC_ID,F_REPLY_ID) VALUES(" strSQL = strSQL & MemberID & ", " strSQL = strSQL & "'" & objUpload.Files.Item(0).FileName strSQL = strSQL & "'," & intFileLen & ", " strSQL = strSQL & TopicID & ", " strSQL = strSQL & ReplyID & ")" my_Conn.execute( strSQL ) strSQL = "SELECT F_FILEID FROM " & strMemberTablePrefix & "USERFILES WHERE MEMBER_ID=" & MemberID strSQL = strSQL & " AND F_TOPIC_ID=" & TopicID & " AND F_REPLY_ID=" & ReplyID if not ImageFile then set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql, my_Conn, 3 faname = rs("F_FILEID") rs.close end if my_conn.close End Function
'--------------------------------------------------------------------------- '- Function : saveDoc '--------------------------------------------------------------------------- private function saveDoc()
Dim strFile Dim fso server.scriptTimeout = cLng(ServerTimeout) strRoot = Server.MapPath(strCookieURL & "../uploaded") & GetSlash & strFolder strFile = strRoot & GetSlash & objUpload.Files.Item(0).FileName Set fso = Server.CreateObject("Scripting.FileSystemObject") If not fso.FolderExists(strRoot) then
fso.createFolder(strRoot) end if objUpload.Files.Item(0).Save strRoot saveDoc = (fso.FileExists(strFile)) End Function Function GetSlash strAspOs = UCase(Request.ServerVariables("ASP_OS")) If InStr(strAspOs,"WINDOWS") Then GetSlash = "\" Else GetSlash = "/" End If end function
%> <html>
<head> <title><% =strForumTitle %></title> <meta name="copyright" content="This code is Copyright (C) 2000 Michael Anderson"> <Style><!-- a:link {color:<% =strLinkColor %>;text-decoration:<% =strLinkTextDecoration %>} a:visited {color:<% =strVisitedLinkColor %>;text-decoration:<% =strVisitedTextDecoration %>} a:hover {color:<% =strHoverFontColor %>;text-decoration:<% =strHoverTextDecoration %>} --></style> </head>
<BODY bgColor="<% =strPageBGColor %>" text="<% =strDefaultFontColor %>" link="<% =strLinkColor %>" aLink=<% =strActiveLinkColor %> vLink="<% =strActiveLinkColor %>" onLoad="window.focus()">
<table width="100%" height="100%"> <tr> <td align=center valign=center> <div align=center><center> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<p> <%=strResult%></p><br><br>
<p> <% if imageFile then %> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= addimage()">Close Window</A></font> <% Else %> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:onClick= addfile()">Close Window</A></font> <% End If %> </p> </font> </center></div> </td> </tr> </table> <script language="JavaScript"> <!-- function addfile() { var fname, resultString resultString ='<%= boolSuccess %>'; fname = '<%= faname %>'; if (resultString) window.opener.document.PostTopic.Message.value+= 'download'; window.close(); }
//--> </script> <script language="JavaScript"> <!-- function addimage() { var fname, resultString resultString ='<%= boolSuccess %>'; fname = '<%= faname %>'; if (resultString) window.opener.document.PostTopic.Message.value+= ''; window.close(); }
//--> </script>
</BODY> </HTML>
|
|
|
SalmanKhana
Average Member
USA
961 Posts |
Posted - 05 July 2001 : 22:27:49
|
dude try that out.. it should work.. every1 else i gave that had no problems with it...
if it doesn't work .. get back here or i'll reply to ur email tomorrow cuz i just finished a final and tomorrow i have 2 more final exams to take and one project
so catch ya later !!
|
|
|
Markp
New Member
54 Posts |
Posted - 05 July 2001 : 23:07:39
|
please email me, I am picking up a bunch of weird charactors when I try and copy and past.
markp@saludmejor.com
|
|
|
SalmanKhana
Average Member
USA
961 Posts |
Posted - 06 July 2001 : 01:39:29
|
i've emailed you.. it worked with the other guyz who had problems...... let us know if it works with u too .. i'm sure it will !!
|
|
|
Topic |
|