I don't know if this qualifies as a MOD, but I changed the way the quotes are handled when you click "Reply with quote" or "Reply to topic."
DEMO: http://www.railway-forum.com/forum/topic.asp?TOPIC_ID=141
inc_func_common.asp
Find these, about line 432:
fString = doCode(fString, "[b]", "[/b]", "<b>", "</b>")
fString = doCode(fString, "[s]", "[/s]", "<s>", "</s>")
fString = doCode(fString, "[strike]", "[/strike]", "<s>", "</s>")
fString = doCode(fString, "[u]", "[/u]", "<u>", "</u>")
fString = doCode(fString, "[i]", "[/i]", "<i>", "</i>")
Add these below that:
fString = doCode(fString, "[BQ]", "[/BQ]", "<blockquote id=""quote""><font size=""1"">", "</font id=""size1""></blockquote id=""quote"">")
fString = replace(fString, "[HRQ]", "<hr height=""1"" noshade id=""quote"">", 1, -1, 1)
post.asp
Find these, about line 328:
if strRqMethod = "ReplyQuote" then
TxtMsg = "[quote][i]Originally posted by " & chkString(rs("M_NAME"),"display") & "[/i]" & vbNewline
TxtMsg = TxtMsg & "[br]" & rs("R_MESSAGE") & vbNewline
TxtMsg = TxtMsg & "[/quote]"
end if
CHANGE them too look like this:
if strRqMethod = "ReplyQuote" then
TxtMsg = "[BQ] Quote from[b] " & chkString(rs("M_NAME"),"display") & ":[/b][HRQ]" & vbNewline
TxtMsg = TxtMsg & "[br]" & rs("R_MESSAGE") & vbNewline
TxtMsg = TxtMsg & "[HRQ][/BQ]"
end if
Thats it! I don't know very much ASP, so if you think this is lame, and pointless, then that's why. |
Topic Locked
Posted - 26 December 2002 : 18:21:12
