getcontent.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_ClsSysTem.asp"-->
<!--#include file="Inc/Cl_Function_Article.asp"-->
<!--#include file="Inc/Cl_Receive.asp"-->
<!--#include file="Inc/Cl_ClsUbb.asp"-->
<%
Dim ChannelID,ModuleID,InfoID,Rs
Dim ClassID,ParentPath,BrowsePurview
Dim TempJs,FileName,ErrMsg,InfoTitle
InfoID	 = Cl.GetClng(Request("InfoID"))
FileName = InstallDir & "GetContent.asp"
Cl.Get_WebSetting
Cl.ChkUserLogin
if InfoID<=0 then
	TempJs = Replace(Cl.Language.selectSingleNode("//InfoNoFind").text,"{$channelitemname}","记录")
else
	Set Rs = Cl.Execute("Select * From Cl_Article Where InfoID="&InfoID&"")
	If Rs.Eof Then
		TempJs = Replace(Cl.Language.selectSingleNode("//InfoNoFind").text,"{$channelitemname}","记录")
	Else
		ChannelID	= Rs("ChannelID")
		ClassID		= Rs("ClassID")
		Cl.Get_ChannelSetting(ChannelID)
		Dim Node
		Set Node = Application(Cl.CacheName&"_classlist").documentElement.selectSingleNode("class[@classid="&ClassID&"]")
		If Node Is Nothing Then
			TempJs = Replace(Cl.Language.selectSingleNode("//InfoNoFind").text,"{$channelitemname}","记录")
		Else
			ParentPath		= Trim(Node.selectSingleNode("@parentpath").text)
			BrowsePurview	= Clng(Node.selectSingleNode("@browsepurview").text)
			Set Node = Nothing
			if Not ChkTrueRead Then
				TempJs = Cl.Language.selectSingleNode("//ContentPreview").text & ErrMsg
				TempJs = Replace(TempJs,"{$content}",Cl.NoHtml(rs("Intro")))
			else
				Set ClUbb=New Cls_UbbCode
				ClUbb.OpenHTML=1
				TempJs = ErrMsg & ClUbb.UbbCode(rs("Content"))
				Set ClUbb=Nothing
			end If
			if LCase(Trim(request("Pay")))="yes" then
				Dim ComeUrl
				ComeUrl=Request.ServerVariables("HTTP_REFERER")
				if ComeUrl="" then ComeUrl="Index.asp"
				Response.redirect ComeUrl
			Else
				TempJs = Replace(TempJs,vbCrlf,"\n")
				TempJs = Replace(TempJs,Chr(10),"")
				TempJs = Replace(TempJs,Chr(13),"")
				TempJs = Replace(TempJs,Chr(34),"\"&Chr(34))
				TempJs = Replace(TempJs,"{$webdir}",InstallDir)
			End If
		End If
	End If
	Rs.Close : Set Rs = Nothing
end if
Response.write "document.write (""" & TempJs & """);"
CloseAllObj

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.CN
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.
'==================================================
%>