showpk.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="Setting.asp"-->
<%
Response.Expires = -1
Response.CacheControl = "no-cache"
Dim Rs,SQL,InfoTitle,InfoUpdateTime
Dim LoopStr,ReplaceStr,ContentStr
Dim regEx,sTemp
Dim Matches,Match,TempValue,ArrayStr,DataStr
Dim TotalPut,CurrentPage,TotalPages,PageSize

Cl.Get_WebSetting
Cl.ChkUserLogin
PageSize	= 30
CommentID	= Cl.GetClng(Request("CommentID"))
if CommentID = 0 then Call Cl.OutMsg(0,"请指定回复评论ID！",ComeUrl)

Call ShowPKComment()

Cl.Title = InfoTitle & "[回复评论]"
Response.write Template.ReplaceAllFlag(TempStr)

Sub ShowPKComment()
	if not Cl.ChkUserGroupID(Cl.Web_Setting(34),Cl.UserGroupID) then 
		Call Cl.OutErr(0,Cl.Language.SelectSingleNode("//NoLoginErr").text)
	end if
	SQL="Select * from Cl_Comment Where CommentID = " & CommentID
	Set Rs = Cl.Execute(SQL)
	If Rs.Eof Then
		Rs.Close : Set Rs = Nothing
		Call Cl.OutErr(0,"找不到指定评论！")
	End If
	If Rs("Argue")<>1 Then
		Rs.Close : Set Rs = Nothing
		Call Cl.OutMsg(0,"此评论不是辩论话题！","Show.asp?CommentID="&CommentID&"")
	End If
	ChannelID = Rs("ChannelID")
	InfoID = Rs("InfoID")
	Cl.Get_ChannelSetting(ChannelID)
	ModuleID = Cl.GetClng(Cl.Channel.selectSingleNode("@moduleid").text)
	Select Case ModuleID
	Case 1 : SQL="Select Title,UpdateTime from Cl_Article Where InfoID = "&InfoID
	Case 2 : SQL="Select SoftName,UpdateTime from Cl_Soft Where InfoID = "&InfoID
	Case 3 : SQL="Select PhotoName,UpdateTime from Cl_Photo Where InfoID = "&InfoID
	Case 4 : SQL="Select MovieName,UpdateTime from Cl_Movie Where InfoID = "&InfoID
	Case 5 : SQL="Select ProductName,UpdateTime from Cl_Product Where InfoID = "&InfoID
	Case Else : SQL="Select Title,UpdateTime from Cl_Article Where InfoID = "&InfoID
	End Select
	Dim tRs
	Set tRs = Cl.Execute(SQL)
	If tRs.Eof Then
		Call Cl.OutErr(0,replace(Cl.Language.SelectSingleNode("//InfoNoFind").text,"{$channelitemname}",Cl.Channel.SelectSingleNode("@channelitemname").text))
	End if
	InfoTitle	= tRs(0)
	InfoUpdateTime= tRs(1)
	tRs.Close : Set tRs = Nothing
	TempStr = Template.Read(TemplateShowPK)
	Set regEx	= New RegExp
	regEx.IgnoreCase= True
	regEx.Global	= True
	regEx.Pattern	= "{\$.[^{\$}]*}"

	Dim RsReply
	Set RsReply = Server.CreateObject("ADODB.Recordset")
	Rem 处理正方观点
	LoopStr = Template.GetPartContent(TempStr,"[Cl_Loop_A]","[/Cl_Loop_A]")
	ReplaceStr = "[Cl_Loop_A]" & LoopStr & "[/Cl_Loop_A]"
	SQL = "select * from Cl_Comment where ParentID=" & CommentID & " and PKStatus=1 order by ParentID asc,CommentID desc"
	OpenConn : RsReply.open SQL,Conn,1,1
	If RsReply.bof and RsReply.eof then
		TempStr = Replace(TempStr,ReplaceStr,"")
	Else
		For i=0 To PageSize
			sTemp = LoopStr
			On Error Resume Next
			Set Matches		= regEx.Execute(sTemp)
			For Each Match in Matches
				ArrayStr	= Match.Value
				ArrayStr	= Replace(ArrayStr,"{$","")
				ArrayStr	= Replace(ArrayStr,"}","")
				Select Case ArrayStr
				Case "usergroupname"
					DataStr = Cl.GetUserGroupName(RsReply("UserGroupID"))
				Case "commentcontent"
					DataStr = Cl.UbbCode(RsReply("CommentContent"))
				Case "userip"
					If RsReply("Hidden")=1 Then
						DataStr = "隐藏"
					Else
						DataStr = RsReply("UserIP")
					End If
				Case "csspicurl","webdir","installdir"
					DataStr = Match.Value
				Case Else
					DataStr = RsReply(ArrayStr)
				End Select
				sTemp = Replace(sTemp,Match.Value,DataStr)
				ArrayStr = Empty
			Next
			Set Matches		= Nothing
			On Error Goto 0
			ContentStr = ContentStr & sTemp
			RsReply.MoveNext
			If RsReply.Eof Then Exit For
		Next
		TempStr = Replace(TempStr,ReplaceStr,ContentStr)
		ContentStr = Empty
	End If
	RsReply.close
	Rem End
	Rem 处理反方观点
	LoopStr = Template.GetPartContent(TempStr,"[Cl_Loop_B]","[/Cl_Loop_B]")
	ReplaceStr = "[Cl_Loop_B]" & LoopStr & "[/Cl_Loop_B]"
	SQL = "select * from Cl_Comment where ParentID=" & CommentID & " and PKStatus=-1 order by ParentID asc,CommentID desc"
	OpenConn : RsReply.open SQL,Conn,1,1
	If RsReply.bof and RsReply.eof then
		TempStr = Replace(TempStr,ReplaceStr,"")
	Else
		For i=0 To PageSize
			sTemp = LoopStr
			On Error Resume Next
			Set Matches		= regEx.Execute(sTemp)
			For Each Match in Matches
				ArrayStr	= Match.Value
				ArrayStr	= Replace(ArrayStr,"{$","")
				ArrayStr	= Replace(ArrayStr,"}","")
				Select Case ArrayStr
				Case "usergroupname"
					DataStr = Cl.GetUserGroupName(RsReply("UserGroupID"))
				Case "commentcontent"
					DataStr = Cl.UbbCode(RsReply("CommentContent"))
				Case "userip"
					If RsReply("Hidden")=1 Then
						DataStr = "隐藏"
					Else
						DataStr = RsReply("UserIP")
					End If
				Case "csspicurl","webdir","installdir"
					DataStr = Match.Value
				Case Else
					DataStr = RsReply(ArrayStr)
				End Select
				sTemp = Replace(sTemp,Match.Value,DataStr)
				ArrayStr = Empty
			Next
			Set Matches		= Nothing
			On Error Goto 0
			ContentStr = ContentStr & sTemp
			RsReply.MoveNext
			If RsReply.Eof Then Exit For
		Next
		TempStr = Replace(TempStr,ReplaceStr,ContentStr)
		ContentStr = Empty
	End If
	RsReply.close
	Rem End
	Rem 处理中立观点
	LoopStr = Template.GetPartContent(TempStr,"[Cl_Loop_C]","[/Cl_Loop_C]")
	ReplaceStr = "[Cl_Loop_C]" & LoopStr & "[/Cl_Loop_C]"
	SQL = "select * from Cl_Comment where ParentID=" & CommentID & " and PKStatus=0 order by ParentID asc,CommentID desc"
	OpenConn : RsReply.open SQL,Conn,1,1
	If RsReply.bof and RsReply.eof then
		TempStr = Replace(TempStr,ReplaceStr,"")
	Else
		For i=0 To PageSize
			sTemp = LoopStr
			On Error Resume Next
			Set Matches		= regEx.Execute(sTemp)
			For Each Match in Matches
				ArrayStr	= Match.Value
				ArrayStr	= Replace(ArrayStr,"{$","")
				ArrayStr	= Replace(ArrayStr,"}","")
				Select Case ArrayStr
				Case "usergroupname"
					DataStr = Cl.GetUserGroupName(RsReply("UserGroupID"))
				Case "commentcontent"
					DataStr = Cl.UbbCode(RsReply("CommentContent"))
				Case "userip"
					If RsReply("Hidden")=1 Then
						DataStr = "隐藏"
					Else
						DataStr = RsReply("UserIP")
					End If
				Case "csspicurl","webdir","installdir"
					DataStr = Match.Value
				Case Else
					DataStr = RsReply(ArrayStr)
				End Select
				sTemp = Replace(sTemp,Match.Value,DataStr)
				ArrayStr = Empty
			Next
			Set Matches		= Nothing
			On Error Goto 0
			ContentStr = ContentStr & sTemp
			RsReply.MoveNext
			If RsReply.Eof Then Exit For
		Next
		TempStr = Replace(TempStr,ReplaceStr,ContentStr)
		ContentStr = Empty
	End If
	RsReply.close : set RsReply=Nothing
	Rem End
	Rem 处理原贴
	LoopStr = Template.GetPartContent(TempStr,"[Cl_Topic]","[/Cl_Topic]")
	ReplaceStr = "[Cl_Topic]" & LoopStr & "[/Cl_Topic]"
	Set Matches		= regEx.Execute(LoopStr)
	For Each Match in Matches
		ArrayStr	= Match.Value
		ArrayStr	= Replace(ArrayStr,"{$","")
		ArrayStr	= Replace(ArrayStr,"}","")
		Select Case ArrayStr
		Case "usergroupname"
			DataStr = Cl.GetUserGroupName(Rs("UserGroupID"))
		Case "commentcontent"
			DataStr = Cl.UbbCode(Rs("CommentContent"))
			If Rs("ParentID")>0 And CommentID<>Rs("ParentID") Then
				DataStr = DataStr & Cl.Language.SelectSingleNode("//Comment/ParentContent").text
				DataStr = Replace(DataStr,"{$parentid}",Rs("ParentID"))
				DataStr = Replace(DataStr,"{$parentcontent}",Rs("ParentContent"))
			End if
		Case "userip"
			If Rs("Hidden")=1 Then
				DataStr = "隐藏"
			Else
				DataStr = Rs("UserIP")
			End if
		Case Else
			DataStr = Rs(ArrayStr)
		End Select
		LoopStr = Replace(LoopStr,Match.Value,DataStr)
		ArrayStr = Empty
	Next
	Set Matches		= Nothing
	TempStr = Replace(TempStr,ReplaceStr,LoopStr)
	Dim AgreeContent,DisAgreeContent
	AgreeContent	= Split(Rs("CommentContent"),"[PK]")(0)
	DisAgreeContent	= Split(Rs("CommentContent"),"[PK]")(1)
	TempStr = Replace(TempStr,"{$agreecontent}",AgreeContent)
	TempStr = Replace(TempStr,"{$disagreecontent}",DisAgreeContent)
	Rs.Close : Set Rs = Nothing
	LoopStr = Empty
	ReplaceStr = Empty
	Set regEx	= Nothing
	TempStr = Replace(TempStr,"{$commentid}",CommentID)
	TempStr = Replace(TempStr,"{$infoid}",InfoID)
	TempStr = Replace(TempStr,"{$channelid}",ChannelID)
	TempStr = Replace(TempStr,"{$infotitle}",InfoTitle)
	TempStr = Replace(TempStr,"{$infoupdatetime}",InfoUpdateTime)
	TempStr = Replace(TempStr,"{$webdir}",InstallDir)
	TempStr = Replace(TempStr,"{$comeurl}",ComeUrl)
	TempStr = Replace(TempStr,"{$usevalidcode}",UseValidCode)
end sub
%>