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

    <%
'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_index_articleClassView
'│作  用：在首页显示的 分类的文章列表 
'│参  数：iPlace 显示位置 ,topCount 显示条数 moduleDir 模块文件夹名 css1 块名 列 iMod每列 个数
'│说  明：需在文章头部包含 此过程自动添加 	
'│日  期：2009-6-27
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_index_articleClassView(iPlace,topCount,moduleDir,css1,iMod)
	dim sql,rs,strHTML : strHTML=""

		'文章分类
		sql="select fclass_ID,ftip,fclassName from deep_ArticleClass where fisView=1 and fplace="&iPlace&" order by forderId,fclass_ID"
		set rsArticleClass=conn.execute(sql)
		if (rsArticleClass.eof and rsArticleClass.bof) then
			'response.Write("没有文章分类")
		else
			iNum=0
			while (not rsArticleClass.eof)
				iNum=iNum+1
      			strHTML = strHTML & "<div class='" & css1
				if ((iNum mod iMod)=0) then strHTML = strHTML & " last"
      			strHTML = strHTML & "'><dl>"
        		strHTML = strHTML & "<dt><a href='"&moduleDir&"articleClass.asp?id="& rsArticleClass("fclass_ID") &"' target=""_blank"" title='"& rsArticleClass("ftip")&"'>"& rsArticleClass("fclassName") &"</a></dt>"
      			strHTML = strHTML & "<dd><ul>"

					'文章列表 top 8
					if(isNumeric(topCount))then
						sql_article="select top "&topCount&" fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime,fisIncludePic from deep_Article where fisDeleted=0 and fisView=1 and fclass_ID="&rsArticleClass("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid"
					else
						sql_article="select fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime,fisIncludePic from deep_Article where fisDeleted=0 and fisView=1 and fclass_ID="&rsArticleClass("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid"
					end if
					
					set rsArticle=conn.execute(sql_article)
					if (rsArticle.eof and rsArticle.bof) then
						'response.Write("没有对应内容")
						strHTML = strHTML & "没有对应内容"
					else
						while (not rsArticle.eof)
							'strHTML = strHTML & "<li class='ellipsis'><a href='article.asp?id="& rsArticle("fid") &"' target='_blank' title='"& rsArticle("fTitle") &"时间："& rsArticle("fUpdateTime")&"'>"& rsArticle("fTitle")&"</a></li>"

			strHTML=strHTML& "<li class='ellipsis'>"
			if(rsArticle("fisIncludePic")=1)then
				strHTML=strHTML& "<span class='cRed'>(图文)</span>"
			end if
			strHTML=strHTML& "<a href='"&moduleDir&"article.asp?id="& rsArticle("fid") &"' target='_blank' title='"& rsArticle("fTitle") &vbcrlf&"作者:"& rsArticle("fAuthor")&vbcrlf &"时间："& rsArticle("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rsArticle("fdayHits")&" 本周:"&rsArticle("fweekHits")&" 本月:"&rsArticle("fmonthHits")&" 总计:"& rsArticle("fHits")& "'>"
			strHTML=strHTML& rsArticle("fTitle")& "</a></li>"


							rsArticle.MoveNext
						wend
					end if
					rsArticle.close
					set rsArticle=nothing

      				strHTML = strHTML & "<li class=""more""><a href='"&moduleDir&"articleClass.asp?id="& rsArticleClass("fclass_ID")&"' target='_blank' title='点击查看更多["&rsArticleClass("fclassName") &"]'>更多..</a></li>"
      				strHTML = strHTML & "</ul></dd></dl></div>"
				rsArticleClass.moveNext
			wend
		end if 
		rsArticleClass.close
		set rsArticleClass=nothing

	getHTML_index_articleClassView = strHTML
end function

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_index_middle
'│作  用：显示首页对应上中下位置 分类的文章列表    {$index_middle_1(3,5)}  {$index_middle_2(4,5)} 
'│			{$index_middle_3(5,5)}               
'│参  数：iPlace 显示位置 ,topCount 显示条数 css1 css2  kuai 块名 列 每列 个数
'│说  明：需在文章头部包含 此过程自动添加 	
'│日  期：2009-6-27
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_index_middle(iPlace,topCount,css1,css2,kuai,lie)
	dim sql,sql2,rs,rs2,strHTML : strHTML=""
	dim ge
	sql="select fclass_ID,ftip,fclassName from deep_ArticleClass where fisView=1 and fparentID=0 and fplace="&iPlace&" order by forderId,fclass_ID"	
	set rs=conn.execute(sql)
	if(rs.eof and rs.bof)then
		'
	else
		'kuai=0
		ge=0
	   while(not rs.eof)
		   kuai=kuai+1
		   if (kuai>3)then
		   	kuai=0
		   end if
		   
		   strHTML=strHTML&"<div class='"&css1&" bg-t-"&kuai&"'>"
			strHTML=strHTML&"<div class='"&css1&" bg-t-"&kuai&"-1'>"&rs("fclassName")&"</div>"
			strHTML=strHTML&"<div class='"&css1&" dl-d'>"
			
			  sql2="select fclass_ID,ftip,fclassName from deep_ArticleClass where fisView=1 and fparentID="&rs("fclass_ID")&" order by forderId,fclass_ID"
			  set rs2=conn.execute(sql2)
			  if(rs2.eof and rs2.bof)then
			  else
				  while(not rs2.eof)
					  ge=ge+1
					  if ((ge mod lie)=0) then
						  strHTML=strHTML&"<div class='"&css2&" last'>"					  
					  else
						  strHTML=strHTML&"<div class='"&css2&"'>"
					  end if
						'strHTML=strHTML&"<dl>"
						  'strHTML=strHTML&"<dt>"&rs2("fclassName")&"</dt>"
						  'strHTML=strHTML&"<dd>JSP编程JSP编程</dd>"
						'strHTML=strHTML&"</dl>"

						strHTML = strHTML & "<dl>"
						strHTML = strHTML & "<dt><a href='article/articleClass.asp?id="& rs2("fclass_ID") &"' target=""_blank"" title='"& rs2("ftip")&"'>"& rs2("fclassName") &"</a></dt>"
						strHTML = strHTML & "<dd><ul>"
		
							'文章列表 top 8
							sql_article="select top "&topCount&" fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime,fisIncludePic from deep_Article where fisDeleted=0 and fisView=1 and fclass_ID="&rs2("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid desc"
							
							set rsArticle=conn.execute(sql_article)
							if (rsArticle.eof and rsArticle.bof) then
								'response.Write("没有对应内容")
								strHTML = strHTML & "没有对应内容"
							else
								while (not rsArticle.eof)
									'strHTML = strHTML & "<li class='ellipsis'><a href='article.asp?id="& rsArticle("fid") &"' target='_blank' title='"& rsArticle("fTitle") &"时间："& rsArticle("fUpdateTime")&"'>"& rsArticle("fTitle")&"</a></li>"
									
									strHTML=strHTML& "<li class='ellipsis'>"
									if(rsArticle("fisIncludePic")=1)then
										strHTML=strHTML& "<span class='cRed'>(图文)</span>"
									end if
									strHTML=strHTML& "<a href='article/article.asp?id="& rsArticle("fid") &"' target='_blank' title='"& rsArticle("fTitle") &vbcrlf&"作者:"& rsArticle("fAuthor")&vbcrlf &"时间："& rsArticle("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rsArticle("fdayHits")&" 本周:"&rsArticle("fweekHits")&" 本月:"&rsArticle("fmonthHits")&" 总计:"& rsArticle("fHits")& "'>"
									strHTML=strHTML& rsArticle("fTitle")& "</a></li>"

									rsArticle.MoveNext
								wend
							end if
							rsArticle.close
							set rsArticle=nothing
		
							strHTML = strHTML & "<li class=""more""><a href='article/articleClass.asp?id="& rs2("fclass_ID")&"' target='_blank' title='点击查看更多["&rs2("fclassName") &"]'>更多..</a></li>"
							strHTML = strHTML & "</ul></dd></dl>"

					  strHTML=strHTML&"</div>"
				  rs2.moveNext
				  wend
			  end if
			  rs2.close
			  set rs2=nothing
			  
			strHTML=strHTML&"</div>"
		  strHTML=strHTML&"</div>"
	  rs.moveNext
	  wend
	end if
	rs.close
	set rs=nothing
	getHTML_index_middle=strHTML
end function

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_index_soft
'│作  用：显示首页对应上中下位置 分类的文章列表                  
'│参  数：iPlace 显示位置 ,topCount 显示条数 css1 css2  kuai 块名 列 每列 个数
'│说  明：需在文章头部包含 此过程自动添加 	
'│日  期：2009-6-27
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_index_soft(iPlace,topCount,css1,css2,kuai,lie)
	dim sql,sql2,rs,rs2,strHTML : strHTML=""
	dim ge
	sql="select fclass_ID,ftip,fclassName from deep_SoftClass where fisView=1 and fparentID=0 and fplace="&iPlace&" order by forderId,fclass_ID"	
	set rs=conn.execute(sql)
	if(rs.eof and rs.bof)then
		'
	else
		'kuai=0
		ge=0
	   while(not rs.eof)
		   kuai=kuai+1
		   if (kuai>3)then
		   	kuai=0
		   end if
		   
		   strHTML=strHTML&"<div class='"&css1&" bg-t-"&kuai&"'>"
			strHTML=strHTML&"<div class='"&css1&" bg-t-"&kuai&"-1'>"&rs("fclassName")&"</div>"
			strHTML=strHTML&"<div class='"&css1&" dl-d'>"
			
			  sql2="select fclass_ID,ftip,fclassName from deep_SoftClass where fisView=1 and fparentID="&rs("fclass_ID")&" order by forderId,fclass_ID"
			  set rs2=conn.execute(sql2)
			  if(rs2.eof and rs2.bof)then
			  else
				  while(not rs2.eof)
					  ge=ge+1
					  if ((ge mod lie)=0) then
						  strHTML=strHTML&"<div class='"&css2&" last'>"					  
					  else
						  strHTML=strHTML&"<div class='"&css2&"'>"
					  end if

						strHTML = strHTML & "<dl>"
						strHTML = strHTML & "<dt><a href='soft/softClass.asp?id="& rs2("fclass_ID") &"' target=""_blank"" title='"& rs2("ftip")&"'>"& rs2("fclassName") &"</a></dt>"
						strHTML = strHTML & "<dd><ul>"
		
							'文章列表 top 8
							sql_article="select top "&topCount&" fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime from deep_Soft where fisDeleted=0 and fisView=1 and fclass_ID="&rs2("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid desc"
							
							set rsArticle=conn.execute(sql_article)
							if (rsArticle.eof and rsArticle.bof) then
								'response.Write("没有对应内容")
								strHTML = strHTML & "没有对应软件"
							else
								while (not rsArticle.eof)
									'strHTML = strHTML & "<li class='ellipsis'><a href='soft.asp?id="& rsArticle("fid") &"' target='_blank' title='"& rsArticle("fTitle") &"时间："& rsArticle("fUpdateTime")&"'>"& rsArticle("fTitle")&"</a></li>"

			strHTML=strHTML& "<li class='ellipsis'><a href='soft/soft.asp?id="& rsArticle("fid") &"' target='_blank' title='"& rsArticle("fTitle") &vbcrlf&"作者:"& rsArticle("fAuthor")&vbcrlf &"时间："& rsArticle("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rsArticle("fdayHits")&" 本周:"&rsArticle("fweekHits")&" 本月:"&rsArticle("fmonthHits")&" 总计:"& rsArticle("fHits")& "'>"
			strHTML=strHTML& rsArticle("fTitle")& "</a></li>"
		
									rsArticle.MoveNext
								wend
							end if
							rsArticle.close
							set rsArticle=nothing
		
							strHTML = strHTML & "<li class=""more""><a href='soft/softClass.asp?id="& rs2("fclass_ID")&"' target='_blank' title='点击查看更多["&rs2("fclassName") &"]'>更多..</a></li>"
							strHTML = strHTML & "</ul></dd></dl>"

					  strHTML=strHTML&"</div>"
				  rs2.moveNext
				  wend
			  end if
			  rs2.close
			  set rs2=nothing
			  
			strHTML=strHTML&"</div>"
		  strHTML=strHTML&"</div>"
	  rs.moveNext
	  wend
	end if
	rs.close
	set rs=nothing
	getHTML_index_soft=strHTML
end function

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_index_photo
'│作  用：首页图片 分类显示            
'│参  数：无
'│说  明：需在头部包含 此过程自动添加 	
'│日  期：2009-7-31
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_index_photo()
	dim sql,sql2,rs,rs2,strHTML : strHTML=""
	sql="select fclass_ID,fclassName,ftip from deep_PhotoClass where fisView=1 and fplace=0 order by forderID,fclass_ID desc"
	set rs=conn.execute(sql)
	if(rs.eof and rs.bof)then
		'
	else
		do while (not rs.eof)
			strHTML=strHTML&"<dl><dt>"
			strHTML=strHTML&"<a href='photo/photoClass.asp?id="&rs("fclass_ID")&"' title='"&rs("ftip")&"'>"&rs("fclassName") & "</a>"
			strHTML=strHTML&" &gt;&gt;&gt; </dt>"
			
			strHTML=strHTML&"<dd><ul>"
			
			sql2="select fid,fTitle,ftip,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime,PhotoUrl from deep_Photo where fisDeleted=0 and fisView=1 and fclass_ID="&rs("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid desc"
			set rs2=conn.execute(sql2)
			if(rs2.eof and rs2.bof)then
				'
			else
				do while(not rs2.eof)
					strHTML=strHTML& "<li><dl>"
					strHTML=strHTML& "<dd><a href='photo/photo.asp?id="& rs2("fid") &"' target='_blank' title='"& rs2("fTitle") &vbcrlf&"作者:"& rs2("fAuthor")&vbcrlf &"时间："& rs2("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rs2("fdayHits")&" 本周:"&rs2("fweekHits")&" 本月:"&rs2("fmonthHits")&" 总计:"& rs2("fHits")& "'>"					
					strHTML=strHTML& "<img style='width:100%;height:100%;' src='photo/uploadFile/photo/"&rs2("PhotoUrl")&"' />"					
					strHTML=strHTML& "</a></dd>"					
					strHTML=strHTML& "<dt class='ellipsis'><a href='photo/photo.asp?id="& rs2("fid") &"' target='_blank' title='"& rs2("fTitle") &vbcrlf&"作者:"& rs2("fAuthor")&vbcrlf &"时间："& rs2("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rs2("fdayHits")&" 本周:"&rs2("fweekHits")&" 本月:"&rs2("fmonthHits")&" 总计:"& rs2("fHits")& "'>"
					strHTML=strHTML& rs2("fTitle")& "</a></dt>"
					strHTML=strHTML& "</dl></li>"					
					rs2.moveNext
				loop
			end if
			rs2.close
			set rs2=nothing
			
			strHTML=strHTML&"</ul><div class='clear'></div> </dd></dl>"
			rs.moveNext
		loop
	end if
	rs.close
	set rs=nothing
	getHTML_index_photo=strHTML
end function

%>