| Author |
 Topic  |
|
|
tenbellys
Starting Member
United Kingdom
31 Posts |
 Posted - 17 August 2002 : 16:50:50
|
I RECEIVED AN E-MAIL FROM SOME ONE ASKIN ME TO POST THIS UP ON THE FORUM, SO NOT SURE IF ITS RIGHT, THEY SAY IT IS
here is what i recieved
++++++++++++++++++++++++++++++++++++++++++++++++
I'd like to at least share a bit of programming with the owners of 3.3.05....
I'm attaching my inc_functions.asp file so you can see what I had to do in order to make it work.
Here's the lines of code I had to change:
Appx Line 78
if (Instr(strArray(counter), "@") > 0) and not(Instr(UCase(strArray(counter)), "MAILTO:") > 0) and not(Instr(UCase(strArray(counter)), "FTP:") > 0) and not(Instr(UCase(strArray(counter)), "[URL") > 0) then
Appx Line 78
fString = " " & fString
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
if strBadWordFilter = 1 or strBadWordFilter = "1" then
fString = ChkBadWords(fString) end if
fString = ChkUrls(fString,"http://", 1)
fString = ChkUrls(fString,"https://", 2)
fString = ChkUrls(fString,"file:///", 3)
fString = ChkUrls(fString,"www.", 4)
fString = ChkUrls(fString,"mailto:",5)
fString = ChkMail(fString," ",5)
fString = ChkUrls(fString,"ftp://", 6)
Appx Line 1832
if Instr(1, strArray2(1), c2Tag,1) and not( (Instr(1, UCase(strArray2(1)), "[URL]",1) >0) and not(Instr(1, UCase(strArray2(1)), "[/URL]",1) >0) ) then
strFirstPart = Left(strArray2(1), Instr(1, strArray2(1),c2Tag,1)-1)
strSecondPart = Right(strArray2(1), (Len(strArray2(1)) - Instr(1, strArray2(1), c2Tag,1) - len(c2Tag)+1))
if strFirstPart <> "" then
if (Instr(strArray2(0),3)) = "ftp" then
strTempString = roTag & strArray2(0) & rclTag
else
if (Instr(strArray2(0),"@") > 0) and UCase(Left(strArray2(0), 7)) = "MAILTO:" then
strTempString = strTempString & roTag & "mailto:" & strArray2(0) & rc1Tag & strFirstPart & rc2Tag & strSecondPart
else
strTempString = strTempString & roTag & strArray2(0) & rc1Tag & strFirstPart & rc2Tag & strSecondPart
end if
end if
else
if (Instr(strArray2(0),"@") > 0) and UCase(Left(strArray2(0), 7)) = "MAILTO:" then
strTempString = strTempString & roTag & "mailto:" & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strSecondPart
else
if (Instr(strArray2(0), 3)) = "ftp" then
strTempString = roTag & strArray2(0) & rclTag
else
trTempString = strTempString & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strSecondPart
end if
end if
end if
Appx Line 2108
s_str = s_str.replace(/\b(ftp\:\/\/[\w+\.]+[\w+\.\:\/\@\_\?\=\&\-\'\#\%\~\;\,\$\!\+\*]+)/gi,
here is the attached file i recived
http://www.adamcro.pwp.blueyonder.co.uk/images/inc_functions.asp
the server does not support asp so you will not see it working
+++++++++++++++++++++++++++++++++++++++++++++++++++++
like is say i did not cure this someone else did, i am just posting it up |
Edited by - tenbellys on 17 August 2002 17:02:43 |
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 18 August 2002 : 00:22:43
|
| looks like the code Richard gave me over a year ago. |
 |
 |
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 18 August 2002 : 00:43:02
|
| dayve, does the FTP code work ok on this forum? This is one of the things we worked on, so hopefully it does. |
|
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 18 August 2002 : 16:21:46
|
quote:
Originally posted by RichardKinser
dayve, does the FTP code work ok on this forum? This is one of the things we worked on, so hopefully it does.
yes, the code you gave me worked on 3.3.x just fine. it was also the first thing I tested on 3.4
here is a test link:
ftp://nin:nin@dayve.d2g.com (this is READ ONLY) |
|
Edited by - dayve on 18 August 2002 16:22:05 |
|
|
| |
Topic |
|
|
|
Topic Locked
