www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > include/Tag.Channel.asp

    <%
'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_articleList
'│作  用：显示对应分类的文章列表 {$article(2,8)}公告                
'│参  数：
'│说  明：需在文章头部包含 此过程自动添加 	
'│日  期：2010-3-2
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_IndexChannelTitleContent()
	dim sql,rsCompany,strHTML : strHTML=""
	'网站内容 频道 fplace2
	sql="select * from deep_Channel where fisView=1 and fplace=2 order by forderID"
	set rsCompany=conn.execute(sql)
	if (rsCompany.eof and rsCompany.bof) then
		'response.Write("没有内容!!")
	else
		while (not rsCompany.eof)
			strHTML=strHTML& "<dl><dt>" & rsCompany("fcontentTitle") &"</dt>"
			strHTML=strHTML& "<dd class=""content"">"
			if (trim(rsCompany("fchannelPic"))<>"") then
				strHTML=strHTML&"<div class=""photo"" style=""background-image:url(upLoadFile/channel/"&rsCompany("fchannelPic")&");""></div>"
			end if
			strHTML=strHTML&rsCompany("fcontent")
			strHTML=strHTML&"</dd>"
			strHTML=strHTML&"<dd class=""last""></dd></dl>"
	
			rsCompany.MoveNext
		wend
	end if
	
	getHTML_IndexChannelTitleContent=strHTML
end function	
%>