<!--#include file="Channel_Setting.asp"-->
<%
Dim sTrJs
strFileName=Cl.WebDir&Cl.Channel_Setting(4)&"/GetContent.asp"
if ArticleId<=0 then
	sTrJs="找不到指定文章。"
else
	if Not ChkTrueRead then
		sTrJs=Replace(Template.Strings(11),"{%content%}",Cl.NoHtml(rs("Intro"))) & Cl.ReplaceItem(ErrMsg)
		'sTrJs=sTrJs
	else
		Set ClUbb=New Cls_UbbCode
		ClUbb.OpenHTML=1
		sTrJs=ErrMsg & ClUbb.UbbCode(rs("Content"))
		Set ClUbb=Nothing
	end if
end if
sTrJs=Replace(Replace(sTrJs,vbCrlf,"\n"),"'","")
if lcase(Trim(request("Pay")))="yes" then
	Dim ComeUrl
	ComeUrl=Request.ServerVariables("HTTP_REFERER")
	if ComeUrl="" then ComeUrl="Index.asp"
	response.redirect ComeUrl
else
	response.write "document.write ('" & sTrJs & "');"
end if
CloseAllObj
'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.CN
'
'邮箱: aspoo@126.com		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.CN All Rights Reserved.
'==================================================
%>