www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\news\morelist.asp

    <!--#include file="const.asp"-->
<!--#include file="common.asp"-->
<%
Dim MoreAction:MoreAction=0
Dim classname,m_strABC,MaxPageList
Dim HtmlFilePath,HtmlFileName,BuildHtmlDone
BuildHtmlDone=0

Sub main()
	SQLField = "A.ArticleID,A.ChannelID,A.classid,A.SpecialID,A.BriefTopic,A.title,A.subtitle,A.ColorMode,A.FontMode,A.OuterLinks,A.Author,A.ComeFrom,A.username,A.star,A.WriteTime,A.AllHits,A.isTop,A.isBest,A.HtmlFileDate,A.Taglist,A.ImageUrl,C.ClassName,C.HtmlFileDir,C.readme"
	maxperpage=NewAsp.ChkNumeric(TPL_Config(18))
	If maxperpage=0 Then maxperpage=30
	MaxPageList=NewAsp.ChkNumeric(TPL_Config(26))
	If MaxPageList=0 Then MaxPageList=200
	i=0:n=0:BuildHtmlDone=0
	If IsNowOutputText Then
		pagenow=NewAsp.ChkNumeric(Request("page"))
		m_strABC=NewAsp.CheckInput(Request("q"),2)
	Else
		Pcount=0
	End If
	If pagenow=0 Then pagenow=1
	If ""=m_strABC Then m_strABC="A-Z"


	TPL_FileName=Check_TPL_File(TPL_FilePath,"morelist",MoreAction,0)
	HtmlContent = NewAsp.LoadTemplate(TPL_FilePath&"\"&TPL_FileName)
	HtmlContent = Replace(HtmlContent, "{$channelid}", ChannelID)
	Select Case MoreAction
		Case 1	:	HtmlContent = Replace(HtmlContent, "{$pagetitle}", TPL_Config(22))
		Case 2	:	HtmlContent = Replace(HtmlContent, "{$pagetitle}", TPL_Config(23))
		Case 3	:	HtmlContent = Replace(HtmlContent, "{$pagetitle}", TPL_Config(24)&" - "&Replace(m_strABC, "{$", "{ $"))
	Case Else	:	HtmlContent = Replace(HtmlContent, "{$pagetitle}", TPL_Config(21))
	End Select
	HtmlContent = Replace(HtmlContent, "{$action}", MoreAction)
	HtmlContent = Replace(HtmlContent, "{$pagenow}", MoreAction)
	HtmlContent = Replace(HtmlContent, "{$classid}", 0)
	TPL_Scan HtmlContent
End Sub

Sub showTopiclist()
	Dim Rs,SQL
	SQLQuery=" And A.isAccept=1"

	On Error Resume Next

	m_strOrder="A.WriteTime"
	Call TestMoreAction()

	If Not IsObject(Conn) Then ConnectionDatabase
	If MoreAction=3 Then
		totalrec=MaxPageList
	Else
		totalrec=Newasp.Execute("SELECT COUNT(*) FROM NC_Article A WHERE A.ChannelID="&ChannelID&" "&SQLQuery&"")(0)
		If totalrec>MaxPageList Then totalrec=MaxPageList
	End If
	Pcount = CLng(totalrec / maxperpage)
	If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
	If pagenow>Pcount Then pagenow=1
	If pagenow>=Pcount Then BuildHtmlDone=1

	Set Rs=NewAsp.CreateAXObject("ADODB.Recordset")
	SQL="SELECT TOP "&MaxPageList&" "& SQLField &" FROM [NC_Article] A INNER JOIN [NC_Classify] C on A.ClassID=C.ClassID WHERE A.ChannelID=" &ChannelID& " "&SQLQuery&" ORDER BY "&m_strOrder&" DESC"
	Rs.Open SQL,Conn,1,1
	NewAsp.SqlQueryNum = NewAsp.SqlQueryNum+1
	If pagenow >1 Then
		Rs.Move (pagenow-1) * maxperpage
	End If
	If Not (Rs.BOF And Rs.EOF) Then
		Topiclist=Rs.GetRows(maxperpage)
	Else
		Topiclist=Null:BuildHtmlDone=1
	End If
	Rs.close():Set Rs=Nothing
End Sub

Sub TestMoreAction()
	Select Case MoreAction
		Case 1	:	SQLQuery=" And A.isBest>0"&SQLQuery
			If NewAsp.IsCreateHtml=0 Then
				If IsURLRewrite Then
					m_strLinks=CheckURLRewrite(NewAsp.ChannelPath,"bestlist-[page]"&NewAsp.HtmlExtName)
				Else
					m_strLinks="showbest.asp?"
				End If
			Else
				m_strLinks=NewAsp.ChannelPath&OtherHtmlPath&"bestlist-[page]"&NewAsp.HtmlExtName
				HtmlFileName=NewAsp.ChannelDest&OtherHtmlPath&"bestlist-"&pagenow&NewAsp.HtmlExtName
			End If
		Case 2	:	m_strOrder="A.Allhits"
			If NewAsp.IsCreateHtml=0 Then
				If IsURLRewrite Then
					m_strLinks=CheckURLRewrite(NewAsp.ChannelPath,"hotlist-[page]"&NewAsp.HtmlExtName)
				Else
					m_strLinks="showhot.asp?"
				End If
			Else
				m_strLinks=NewAsp.ChannelPath&OtherHtmlPath&"hotlist-[page]"&NewAsp.HtmlExtName
				HtmlFileName=NewAsp.ChannelDest&OtherHtmlPath&"hotlist-"&pagenow&NewAsp.HtmlExtName
			End If
		Case 3
			If ""=m_strABC Then m_strABC="A-Z"
			maxperpage=100:MaxPageList=100:BuildHtmlDone=1
			SQLQuery=" And A.AlphaIndex='"&m_strABC&"'"&SQLQuery
			If NewAsp.IsCreateHtml=0 Then
				If IsURLRewrite Then
					m_strLinks=CheckURLRewrite(NewAsp.ChannelPath,"ABC_"&m_strABC&"_1"&NewAsp.HtmlExtName)
				Else
					m_strLinks="showabc.asp?q="&m_strABC
				End If
			Else
				m_strLinks=NewAsp.ChannelPath&OtherHtmlPath&"ABC_"&m_strABC&"_1"&NewAsp.HtmlExtName
				HtmlFileName=NewAsp.ChannelDest&OtherHtmlPath&"ABC_"&m_strABC&"_1"&NewAsp.HtmlExtName
			End If
	Case Else
		m_strOrder="A.WriteTime"
		If NewAsp.IsCreateHtml=0 Then
			If IsURLRewrite Then
				m_strLinks=CheckURLRewrite(NewAsp.ChannelPath,"newlist-[page]"&NewAsp.HtmlExtName)
			Else
				m_strLinks="shownew.asp?"
			End If
		Else
			m_strLinks=NewAsp.ChannelPath&OtherHtmlPath&"newlist-[page]"&NewAsp.HtmlExtName
			HtmlFileName=NewAsp.ChannelDest&OtherHtmlPath&"newlist-"&pagenow&NewAsp.HtmlExtName
		End If
	End Select
End Sub

Sub TPL_ParseArea(sTokenName, sTemplate)
	Select Case sTokenName
		Case "action=0"		:	If MoreAction=0 Then TPL_Scan sTemplate
		Case "action=1"		:	If MoreAction=1 Then TPL_Scan sTemplate
		Case "action=2"		:	If MoreAction=2 Then TPL_Scan sTemplate
		Case "action=3"		:	If MoreAction=3 Then TPL_Scan sTemplate
		Case "action!=3"	:	If MoreAction<3 Then TPL_Scan sTemplate
		Case "pagenow=1"	:	If pagenow=1 Then TPL_Scan sTemplate
		Case "pagenow=0"	:	If pagenow>1 Then TPL_Scan sTemplate
		Case "topiclist"
			Call showTopiclist()
			If IsArray(Topiclist) Then
				For i=0 To UBound(Topiclist,2)
					n=n+1:If (n Mod 2) = 0 Then im=2 Else im=1
					If (i Mod 2) = 0 Then m=1 Else m=2
					TPL_Scan sTemplate
				Next
			End If
		Case "menuitem"
	End Select
End Sub

Sub TPL_ParseNode(sTokenType, sTokenName, sVariant)
	Select Case sTokenType
		Case "newasp"
			ParseDataNode		sTokenName,sVariant
		Case "topiclist"
			ParseTopicNode		sTokenName
		Case "menuitem"
			ParseMenuNode		sTokenName
	Case Else
	End Select
End Sub

Sub ParseDataNode(sToken,sVariant)
	On Error Resume Next
	Select Case sToken
		Case "i"			:	TPL_Echo i+1
		Case "moremenu"		:	TPL_Echo moremenu(sVariant)
		Case "totalrec"		:	TPL_Echo totalrec
		Case "pagenow"		:	TPL_Echo pagenow
		Case "pagecount"	:	TPL_Echo Pcount
	End Select
	If Err Then Err.Clear
End Sub

Sub ParseMenuNode(sToken)
	On Error Resume Next
	Dim Node
	Select Case sToken
		Case "i"			:	TPL_Echo i+1
	End Select
	If Err Then Err.Clear
End Sub


%>