📄 formatpost.asp
字号:
<%
Private Function WYsiWYGFormatPost(ByVal strMessage)
strMessage = Replace(strMessage, " border=0>", ">", 1, -1, 1)
strMessage = Replace(strMessage, " target=_blank>", ">", 1, -1, 1)
strMessage = Replace(strMessage, " target=_top>", ">", 1, -1, 1)
strMessage = Replace(strMessage, " target=_self>", ">", 1, -1, 1)
strMessage = Replace(strMessage, " target=_parent>", ">", 1, -1, 1)
strMessage = Replace(strMessage, "<SCRIPT> window.open=NS_ActualOpen; </SCRIPT>", "", 1, -1, 1)
strMessage = Replace(strMessage, "<SCRIPT language=javascript>postamble();</SCRIPT>", "", 1, -1, 1)
If Instr(1, strMessage, "<!-- ZoneLabs Popup Blocking Insertion -->", 1) Then
strMessage = Replace(strMessage, "<!-- ZoneLabs Popup Blocking Insertion -->", "", 1, -1, 1)
strMessage = Replace(strMessage, "<SCRIPT>" & vbCrLf & "window.open=NS_ActualOpen;" & vbCrLf & "orig_onload = window.onload;" & vbCrLf & "orig_onunload = window.onunload;" & vbCrLf & "window.onload = noopen_load;" & vbCrLf & "window.onunload = noopen_unload;" & vbCrLf & "</SCRIPT>", "", 1, -1, 1)
strMessage = Replace(strMessage, "window.open=NS_ActualOpen; orig_onload = window.onload; orig_onunload = window.onunload; window.onload = noopen_load; window.onunload = noopen_unload;", "", 1, -1, 1)
End If
WYsiWYGFormatPost = strMessage
End Function
Private Function FormatPost(ByVal strMessage)
strMessage = Replace(strMessage, "<", "<", 1, -1, 1)
strMessage = Replace(strMessage, ">", ">", 1, -1, 1)
strMessage = Replace(strMessage, " ", " ", 1, -1, 1)
strMessage = Replace(strMessage, " ", " ", 1, -1, 1)
strMessage = Replace(strMessage, " ", " ", 1, -1, 1)
strMessage = Replace(strMessage, " ", " ", 1, -1, 1)
strMessage = Replace(strMessage, " ", " ", 1, -1, 1)
strMessage = Replace(strMessage, vbTab, " ", 1, -1, 1)
strMessage = Replace(strMessage, Chr(10), "<br />", 1, -1, 1)
FormatPost = strMessage
End Function
Private Function FormatForumCodes(ByVal strMessage)
Dim strTempMessageLink
Dim strMessageLink
Dim lngLinkStartPos
Dim lngLinkEndPos
Dim intLoop
If blnEmoticons = True Then
For intLoop = 1 to UBound(saryEmoticons)
strMessage = Replace(strMessage, saryEmoticons(intLoop,2), "<img border=""0"" src=""" & saryEmoticons(intLoop,3) & """>", 1, -1, 1)
Next
End If
strMessage = Replace(strMessage, "[B]", "<strong>", 1, -1, 1)
strMessage = Replace(strMessage, "[/B]", "</strong>", 1, -1, 1)
strMessage = Replace(strMessage, "[I]", "<em>", 1, -1, 1)
strMessage = Replace(strMessage, "[/I]", "</em>", 1, -1, 1)
strMessage = Replace(strMessage, "[U]", "<u>", 1, -1, 1)
strMessage = Replace(strMessage, "[/U]", "</u>", 1, -1, 1)
strMessage = Replace(strMessage, "[HR]", "<hr />", 1, -1, 1)
strMessage = Replace(strMessage, "[LIST=1]", "<ol>", 1, -1, 1)
strMessage = Replace(strMessage, "[/LIST=1]", "</ol>", 1, -1, 1)
strMessage = Replace(strMessage, "[LIST]", "<ul>", 1, -1, 1)
strMessage = Replace(strMessage, "[/LIST]", "</ul>", 1, -1, 1)
strMessage = Replace(strMessage, "[LI]", "<li>", 1, -1, 1)
strMessage = Replace(strMessage, "[/LI]", "</li>", 1, -1, 1)
strMessage = Replace(strMessage, "[CENTER]", "<center>", 1, -1, 1)
strMessage = Replace(strMessage, "[/CENTER]", "</center>", 1, -1, 1)
strMessage = Replace(strMessage, "[P ALIGN=CENTER]", "<p align=center>", 1, -1, 1)
strMessage = Replace(strMessage, "[P ALIGN=LEFT]", "<p align=left>", 1, -1, 1)
strMessage = Replace(strMessage, "[P ALIGN=RIGHT]", "<p align=right>", 1, -1, 1)
strMessage = Replace(strMessage, "[DIV ALIGN=CENTER]", "<div align=center>", 1, -1, 1)
strMessage = Replace(strMessage, "[DIV ALIGN=LEFT]", "<div align=left>", 1, -1, 1)
strMessage = Replace(strMessage, "[DIV ALIGN=RIGHT]", "<div align=right>", 1, -1, 1)
strMessage = Replace(strMessage, "[DIV]", "<div>", 1, -1, 1)
strMessage = Replace(strMessage, "[/DIV]", "</div>", 1, -1, 1)
strMessage = Replace(strMessage, "[P]", "<p>", 1, -1, 1)
strMessage = Replace(strMessage, "[/P]", "</p>", 1, -1, 1)
strMessage = Replace(strMessage, "[BLOCKQUOTE]", "<blockquote>", 1, -1, 1)
strMessage = Replace(strMessage, "[/BLOCKQUOTE]", "</blockquote>", 1, -1, 1)
strMessage = Replace(strMessage, "[siZE=1]", "<font size=""1"">", 1, -1, 1)
strMessage = Replace(strMessage, "[siZE=2]", "<font size=""2"">", 1, -1, 1)
strMessage = Replace(strMessage, "[siZE=3]", "<font size=""3"">", 1, -1, 1)
strMessage = Replace(strMessage, "[siZE=4]", "<font size=""4"">", 1, -1, 1)
strMessage = Replace(strMessage, "[siZE=5]", "<font size=""5"">", 1, -1, 1)
strMessage = Replace(strMessage, "[siZE=6]", "<font size=""6"">", 1, -1, 1)
strMessage = Replace(strMessage, "[FONT=Arial]", "<font face=""Arial, Helvetica, sans-serif"">", 1, -1, 1)
strMessage = Replace(strMessage, "[FONT=Courier]", "<font face=""Courier New, Courier, mono"">", 1, -1, 1)
strMessage = Replace(strMessage, "[FONT=Times]", "<font face=""Times New Roman, Times, serif"">", 1, -1, 1)
strMessage = Replace(strMessage, "[FONT=Verdana]", "<font face=""Verdana, Arial, Helvetica, sans-serif"">", 1, -1, 1)
strMessage = Replace(strMessage, "[BLACK]", "<font color=""black"">", 1, -1, 1)
strMessage = Replace(strMessage, "[WHITE]", "<font color=""white"">", 1, -1, 1)
strMessage = Replace(strMessage, "[BLUE]", "<font color=""blue"">", 1, -1, 1)
strMessage = Replace(strMessage, "[RED]", "<font color=""red"">", 1, -1, 1)
strMessage = Replace(strMessage, "[GREEN]", "<font color=""green"">", 1, -1, 1)
strMessage = Replace(strMessage, "[YELLOW]", "<font color=""yellow"">", 1, -1, 1)
strMessage = Replace(strMessage, "[ORANGE]", "<font color=""orange"">", 1, -1, 1)
strMessage = Replace(strMessage, "[BROWN]", "<font color=""brown"">", 1, -1, 1)
strMessage = Replace(strMessage, "[MAGENTA]", "<font color=""magenta"">", 1, -1, 1)
strMessage = Replace(strMessage, "[CYAN]", "<font color=""cyan"">", 1, -1, 1)
strMessage = Replace(strMessage, "[LIME GREEN]", "<font color=""limegreen"">", 1, -1, 1)
strMessage = Replace(strMessage, "[/FONT]", "</font>", 1, -1, 1)
Do While InStr(1, strMessage, "[IMG]", 1) > 0 AND InStr(1, strMessage, "[/IMG]", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "[IMG]", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/IMG]", 1) + 6
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "[IMG]", "<img src=""", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "[/IMG]", """>", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
Do While InStr(1, strMessage, "[URL=", 1) > 0 AND InStr(1, strMessage, "[/URL]", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "[URL=", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/URL]", 1) + 6
If lngLinkEndPos - lngLinkStartPos =< 5 Then lngLinkEndPos = lngLinkStartPos + 5
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "[URL=", "<a href=""", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "[/URL]", "</a>", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "]", """>", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
Do While InStr(1, strMessage, "[EMAIL=", 1) > 0 AND InStr(1, strMessage, "[/EMAIL]", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "[EMAIL=", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/EMAIL]", 1) + 8
If lngLinkEndPos - lngLinkStartPos =< 7 Then lngLinkEndPos = lngLinkStartPos + 7
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "[EMAIL=", "<a href=""mailto:", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "[/EMAIL]", "</a>", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "]", """>", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
Do While InStr(1, strMessage, "[FILE=", 1) > 0 AND InStr(1, strMessage, "[/FILE]", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "[FILE=", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/FILE]", 1) + 7
If lngLinkEndPos - lngLinkStartPos =< 6 Then lngLinkEndPos = lngLinkStartPos + 6
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "[FILE=", "<a target=""_blank"" href=""", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "[/FILE]", "</a>", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "]", """>", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
FormatForumCodes = strMessage
End Function
Function formatQuote(ByVal strMessage)
Dim strQuotedAuthor
Dim strQuotedMessage
Dim lngStartPos
Dim lngEndPos
Dim strBuildQuote
Dim strOriginalQuote
Do While InStr(1, strMessage, "[QUOTE=", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0
lngStartPos = InStr(1, strMessage, "[QUOTE=", 1) + 7
lngEndPos = InStr(lngStartPos, strMessage, "]", 1)
If lngStartPos > 6 AND lngEndPos > 0 Then
strQuotedAuthor = Trim(Mid(strMessage, lngStartPos, lngEndPos-lngStartPos))
End If
lngStartPos = lngStartPos + Len(strQuotedAuthor) + 1
lngEndPos = InStr(lngStartPos, strMessage, "[/QUOTE]", 1)
If lngEndPos - lngStartPos =< 0 Then lngEndPos = lngStartPos + Len(strQuotedAuthor)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -