📄 editpost.asp
字号:
<%
Private Function EditPostConvertion(ByVal strMessage)
Dim strTempMessageLink
Dim strMessageLink
Dim lngLinkStartPos
Dim lngLinkEndPos
Dim intLoop
strMessage = Replace(strMessage, " target=""_blank""", "", 1, -1, 1)
strMessage = Replace(strMessage, " border=""0""", "", 1, -1, 1)
strMessage = Replace(strMessage, "<img src= """, "<img src=""", 1, -1, 1)
strMessage = Replace(strMessage, "<a href= """, "<a href=""", 1, -1, 1)
For intLoop = 1 to UBound(saryEmoticons)
strMessage = Replace(strMessage, "<img src=""" & saryEmoticons(intLoop,3) & """>", saryEmoticons(intLoop,2), 1, -1, 1)
Next
If InStr(1, strMessage, "<edited>", 1) Then strMessage = removeEditorAuthor(strMessage)
strMessage = Replace(strMessage, "<b>", "[B]", 1, -1, 1)
strMessage = Replace(strMessage, "</b>", "[/B]", 1, -1, 1)
strMessage = Replace(strMessage, "<i>", "[I]", 1, -1, 1)
strMessage = Replace(strMessage, "</i>", "[/I]", 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, "<hr>", "[HR]", 1, -1, 1)
strMessage = Replace(strMessage, "<hr>", "[HR]", 1, -1, 1)
strMessage = Replace(strMessage, "<ol>", "[LIST=1]", 1, -1, 1)
strMessage = Replace(strMessage, "</ol>", "[/LIST=1]", 1, -1, 1)
strMessage = Replace(strMessage, "<ul>", "[LIST]", 1, -1, 1)
strMessage = Replace(strMessage, "</ul>", "[/LIST]", 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, "<strong>", "[B]", 1, -1, 1)
strMessage = Replace(strMessage, "</strong>", "[/B]", 1, -1, 1)
strMessage = Replace(strMessage, "<em>", "[I]", 1, -1, 1)
strMessage = Replace(strMessage, "</em>", "[/I]", 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, "<P>", "[P]", 1, -1, 1)
strMessage = Replace(strMessage, "</P>", "[/P]", 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, "<blockquote>", "[BLOCKQUOTE]", 1, -1, 1)
strMessage = Replace(strMessage, "</blockquote>", "[/BLOCKQUOTE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=""1"">", "[siZE=1]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=""2"">", "[siZE=2]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=""3"">", "[siZE=3]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=""4"">", "[siZE=4]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=""5"">", "[siZE=5]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=""6"">", "[siZE=6]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=6>", "[siZE=6]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=1>", "[siZE=1]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=2>", "[siZE=2]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=3>", "[siZE=3]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=4>", "[siZE=4]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=5>", "[siZE=5]", 1, -1, 1)
strMessage = Replace(strMessage, "<font size=6>", "[siZE=6]", 1, -1, 1)
strMessage = Replace(strMessage, "<font face=""Arial, Helvetica, sans-serif"">", "[FONT=Arial]", 1, -1, 1)
strMessage = Replace(strMessage, "<font face=""Courier New, Courier, mono"">", "[FONT=Courier]", 1, -1, 1)
strMessage = Replace(strMessage, "<font face=""Times New Roman, Times, serif"">", "[FONT=Times]", 1, -1, 1)
strMessage = Replace(strMessage, "<font face=""Verdana, Arial, Helvetica, sans-serif"">", "[FONT=Verdana]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""black"">", "[BLACK]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""white"">", "[WHITE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""blue"">", "[BLUE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""red"">", "[RED]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""green"">", "[GREEN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""yellow"">", "[YELLOW]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""orange"">", "[ORANGE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""brown"">", "[BROWN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""magenta"">", "[MAGENTA]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""cyan"">", "[CYAN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=""limegreen"">", "[LIME GREEN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=black>", "[BLACK]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=white>", "[WHITE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=blue>", "[BLUE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=red>", "[RED]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=green>", "[GREEN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=yellow>", "[YELLOW]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=orange>", "[ORANGE]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=brown>", "[BROWN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=magenta>", "[MAGENTA]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=cyan>", "[CYAN]", 1, -1, 1)
strMessage = Replace(strMessage, "<font color=limegreen>", "[LIME GREEN]", 1, -1, 1)
strMessage = Replace(strMessage, "</font>", "[/FONT]", 1, -1, 1)
Do While InStr(1, strMessage, "<img src=""", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "<img src=""", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, """>", 1) + 3
If lngLinkEndPos - lngLinkStartPos =< 10 Then lngLinkEndPos = lngLinkStartPos + 10
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "<img src=""", "[IMG]", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, """>", "[/IMG]", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
Do While InStr(1, strMessage, "<a href=""mailto:", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "<a href=""mailto:", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "</a>", 1) + 4
If lngLinkEndPos - lngLinkStartPos =< 16 Then lngLinkEndPos = lngLinkStartPos + 16
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "<a href=""mailto:", "[EMAIL=", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "</a>", "[/EMAIL]", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, """>", "]", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
Do While InStr(1, strMessage, "<a href=""", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0
lngLinkStartPos = InStr(1, strMessage, "<a href=""", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "</a>", 1) + 4
If lngLinkEndPos - lngLinkStartPos =< 9 Then lngLinkEndPos = lngLinkStartPos + 9
strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))
strTempMessageLink = strMessageLink
strTempMessageLink = Replace(strTempMessageLink, "<a href=""", "[URL=", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, "</a>", "[/URL]", 1, -1, 1)
strTempMessageLink = Replace(strTempMessageLink, """>", "]", 1, -1, 1)
strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)
Loop
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), "", 1, -1, 1)
strMessage = Replace(strMessage, "<br />" & Chr(10), Chr(10), 1, -1, 1)
strMessage = Replace(strMessage, "<br />", Chr(10), 1, -1, 1)
strMessage = Replace(strMessage, "<br>" & Chr(10), Chr(10), 1, -1, 1)
strMessage = Replace(strMessage, "<br>", Chr(10), 1, -1, 1)
EditPostConvertion = strMessage
End Function
Private Function removeEditorAuthor(ByVal strMessage)
Dim lngStartPos
Dim lngEndPos
lngStartPos = InStr(1, strMessage, "<edited>", 1)
lngEndPos = InStr(1, strMessage, "</edited>", 1) + 9
If lngStartPos > 0 AND lngEndPos > 0 Then
removeEditorAuthor = Replace(strMessage, Trim(Mid(strMessage, lngStartPos, lngEndPos-lngStartPos)), "", 1, -1, 1)
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -