list.asp

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

<!--#include file="Setting.asp"-->
<%
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
CurrentPage = Cl.GetClng(Request("Page"))

Call ShowCommentList()
Cl.Title = InfoTitle & "[评论列表]"
Response.write Template.ReplaceAllFlag(TempStr)

Sub ShowCommentList()
	if InfoID=0 then Call Cl.OutMsg(0,"请指定评论ID！",ComeUrl)
	if ChannelID=0 then Call Cl.OutMsg(0,"请指定频道ID",ComeUrl)
	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
	Set Rs = Cl.Execute(SQL)
	If Rs.Eof Then
		Call Cl.OutErr(0,replace(Cl.Language.SelectSingleNode("//InfoNoFind").text,"{$channelitemname}",Cl.Channel.SelectSingleNode("@channelitemname").text))
	End if
	InfoTitle	= Rs(0)
	InfoUpdateTime= Rs(1)
	Rs.Close : Set Rs = Nothing
	TempStr = Template.Read(TemplateList)
	LoopStr = Template.GetPartContent(TempStr,"[Cl_Loop]","[/Cl_Loop]")
	ReplaceStr = "[Cl_Loop]" & LoopStr & "[/Cl_Loop]"
	SQL = "select * from Cl_Comment where InfoID=" & InfoID & " and Status=1 and ChannelID=" & ChannelID & " order by CommentID desc"
	'and Status=1
	Set Rs= Server.CreateObject("ADODB.Recordset")
	OpenConn : Rs.open SQL,Conn,1,1
	If Rs.bof and Rs.eof then
		TempStr = Replace(TempStr,ReplaceStr,"当前还没有任何评论！")
		TempStr = Replace(TempStr,"{$showpage}","")
	Else
		TotalPut = Rs.recordcount
		if (TotalPut mod PageSize)=0 then
			TotalPages = TotalPut \ PageSize
		else
			TotalPages = TotalPut \ PageSize + 1
		end if
		if CurrentPage > TotalPages then CurrentPage=TotalPages
		if CurrentPage < 1 then
			CurrentPage=1
		else
			Rs.move (CurrentPage-1)*PageSize
		end If
		Set regEx	= New RegExp
		regEx.IgnoreCase= True
		regEx.Global	= True
		regEx.Pattern	= "{\$.[^{\$}]*}"
		For i=1 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(Rs("UserGroupID"))
				Case "commentcontent"
					DataStr = Cl.UbbCode(Rs("CommentContent"))
					if Rs("IsReply")=1 then
						DataStr = DataStr & "<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color=""#009900"">★</font>&nbsp;『<font color=""blue"">" & Rs("ReplyUser") & "</font>』于 " & Rs("ReplyTime") & " 回复道：&nbsp;&nbsp;&nbsp;&nbsp;" & ClUbb.UbbCode(Rs("ReplyContent"))
					end If
					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 "csspicurl","webdir","installdir"
					DataStr = Match.Value
				Case Else
					DataStr = Rs(ArrayStr)
				End Select
				sTemp = Replace(sTemp,Match.Value,DataStr)
				ArrayStr = Empty
			Next
			Set Matches		= Nothing
			On Error Goto 0
			ContentStr = ContentStr & sTemp
			Rs.MoveNext
			If Rs.Eof Then Exit For
		Next
		TempStr = Replace(TempStr,ReplaceStr,ContentStr)
		TempStr = Replace(TempStr,"{$showpage}",Cl.ShowPage("List.asp?ChannelID="&ChannelID&"&InfoID="&InfoID,TotalPut,PageSize,"条","评论"))
		Set regEx	= Nothing
	End If
	Rs.close:set Rs=Nothing
	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)
	If Cl.UserID>0 Then
	TempStr = Replace(TempStr,"{$username}",Cl.MemberName)
	TempStr = Replace(TempStr,"{$useremail}",Cl.User_Info(7))
	TempStr = Replace(TempStr,"{$isdisabled}"," disabled")
	Else
	TempStr = Replace(TempStr,"{$username}",Cl.GetUserGroupName(Cl.UserGroupID))
	TempStr = Replace(TempStr,"{$useremail}",Cl.Web_Info(8))
	TempStr = Replace(TempStr,"{$isdisabled}","")
	End If
	TempStr = Replace(TempStr,"{$usevalidcode}",UseValidCode)
	TempStr = Replace(TempStr,"{$usergroupname}",Cl.GetUserGroupName(Cl.UserGroupID))
	TempStr = Replace(TempStr,"{$comeurl}",ComeUrl)
End Sub


%>