📄 prepost.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<!--#include file="functions/formatpost.asp" -->
<!--#include file="includes/emoticons.asp" -->
<%
Response.Buffer = True
Dim strMessage
strMessage = Request.Form("Message")
If Request.Form("browser") = "IE" Then
strMessage = WYsiWYGFormatPost(strMessage)
Else
strMessage = FormatPost(strMessage)
End If
If Request.Form("forumCodes") Then strMessage = FormatForumCodes(strMessage)
strMessage = checkHTML(strMessage)
If InStr(1, strMessage, "[QUOTE=", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatQuote(strMessage)
If blnFlashFiles Then
If InStr(1, strMessage, "[FLASH", 1) > 0 AND InStr(1, strMessage, "[/FLASH]", 1) > 0 Then strMessage = formatFlash(strMessage)
End If
If strMessage = "" OR IsNull(strMessage) Then
strMessage = "<br /><br /><div align=""center"">没有预览</div><br /><br />"
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>预览</title>
<HTTP-EQUIV="prAGMA" CONTENT="NO-CACHE">
<!--#include file="includes/skin.asp" -->
</head>
<body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>" background="<% = strBgImage %>" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<p> </p><table width="96%" border="0" cellspacing="0" cellpadding="1" align="center" height="53">
<tr>
<td align="center" height="17"><span class="heading">发贴预览</span></td>
</tr>
<tr>
<td align="center" height="39"><a href="JavaScript:onClick=window.close()">关闭窗口</a></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTablePostsBorderColour %>" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="<% = strTablePostsEvenRowColour %>" background="<% = strTablePostsBgImage %>" height="147">
<tr>
<td class="text" valign="top">
<% = strMessage %>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td align="center" height="49"><a href="JavaScript:onClick=window.close()">关闭窗口</a></td>
</tr>
</table>
<br/><br/>
<!-- #include file="includes/footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -