speciallist.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<!--#include file="Inc/Cl_Function_Article.asp"-->
<!--#include file="Inc/Cl_Function_Soft.asp"-->
<!--#include file="Inc/Cl_Function_Photo.asp"-->
<!--#include file="Inc/Cl_Function_Movie.asp"-->
<!--#include file="Inc/Cl_Function_Product.asp"-->
<%
Dim ChannelID
ChannelID=Cl.GetClng(Request("ChannelID"))
Call Cl.Get_ChannelSetting(ChannelID)
PageSize = 20
FileName = "SpecialList.asp?ChannelID="&ChannelID
Cl.Title = Cl.GetChannelName(ChannelID) & "专题列表"
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; " & Cl.GetChannelName(ChannelID) & "专题列表"
TotalPut=0
Template.ProjectID	= Cl.ProjectID
Template.TemplateID	= 0
Template.CssID		= Cl.CssID
Call Template.Load(0,2)
TempStr = Replace(Template.Html,"{$showspeciallist}",ShowSpecialList(ChannelID))

if TotalPut>0 then
	TempStr = Replace(TempStr,"{$showpage}",Cl.ShowPage(FileName,TotalPut,PageSize,"个","专题"))
else
	TempStr = Replace(TempStr,"{$showpage}","")
end if

Response.write Template.ReplaceAllFlag(TempStr)

'分页显示所有专题
Function ShowSpecialList(Byval sChannelID)
	Dim SQL,Rs,i,sTemp
	SQL="select SpecialID,SpecialName,ChannelID from Cl_Special where ChannelID=-1 or ChannelID="&sChannelID&" order by OrderID"
	Set Rs= server.CreateObject ("adodb.recordset")
	OpenConn : Rs.open SQL,Conn,1,1
	if rs.bof and rs.eof then
		TotalPut=0
		ShowSpecialList = "&nbsp;没有任何专题栏目"
		Rs.close : Set Rs=Nothing : Exit Function
	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
		rs.move (CurrentPage-1)*PageSize
		SQL = Rs.GetRows(-1)
		Rs.close:Set Rs=Nothing
		if sChannelID=0 then
			For i=0 to Ubound(SQL,2)
				sTemp=sTemp & "<li>" & SQL(1,i) & "&nbsp;-->&nbsp;"
				Dim Node
				For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.SelectNodes("channel[@channeltype<2][@channelid!=0][@channelid!=6]")
					sTemp = sTemp & "&nbsp;[<a href='" & Cl.WebDir & Node.selectSingleNode("@channeldir").text &"/ShowSpecial.asp?SpecialID=" & SQL(0,i) & "'>" & Node.selectSingleNode("@channelname").text & "</a>]"
				Next
				Set Node = Nothing
				sTemp = sTemp & "</li>"
			Next
		else
			For i=0 to Ubound(SQL,2)
				sTemp=sTemp & "<li><a href=""" & Cl.WebDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowSpecial.asp?SpecialID=" & SQL(0,i) & """>" & SQL(1,i) & "</a></li>"
			Next
		end if
		ShowSpecialList = sTemp
		SQL=Empty
	end if
End Function
%>
<%
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>