preview.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<!--#include file="inc/CHAR.asp"-->
<% 
dim strTitle,strContent,strNavigate
strTitle=htmlencode(request.form("subject"))
if Trim(Request.Form("htmlcode"))<>"" then
	strContent=request.form("body")
elseif Trim(Request.Form("htmledit"))<>"" then
    strContent=request.form("body")
else
	strContent=UBBCode(request.form("body"))
end if
Set Rs=server.createobject("adodb.recordset")
strNavigate=article_nav(0,"文章预览","")

'读取默认模板
sql="select ID,Article_Head,Article_foot,Article_View from SoftDown_Template where isActive=true"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
	response.write "您没有添加模板，或者没有设置默认模板。"
	response.end
else
	HtmlTemplate=rs("Article_Head")&rs("Article_View")&rs("Article_foot")
end if
Set Rs=nothing

HtmlTemplate=replace(HtmlTemplate,"$Title$",""&strTitle&"")
HtmlTemplate=replace(HtmlTemplate,"$Navigate$",""&strNavigate&"")
HtmlTemplate=replace(HtmlTemplate,"$Article_Title$",""&strTitle&"")
HtmlTemplate=replace(HtmlTemplate,"$Article_Content$",""&strContent&"")
HtmlTemplate=replace(HtmlTemplate,"../","./")
Response.Write(HtmlTemplate)
CloseDatabase
%>