index.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "./info_inc.asp" -->
<!-- #include file = "../inc/logic/logic_content.asp" -->
<%
'===================================================================
'= ASP FILENAME	: /info/index.asp
'= CREATED TIME : 2007-5-28
'= LAST MODIFIED: 2007-5-28
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 网站专题
'= Change Log:
'===================================================================
%>


<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "info/info_list.asp"

'== 页面标题/功能
Dim  CONST_PAGE_TITLE : CONST_PAGE_TITLE	= "信息栏目"

'== 功能函数名字空间
Const CONST_ACTION_FUNC	= "ShowArticleCtl"

'== 相对根目录路径 
GBL_strHomeURL			= "../"

'== 页面构造
Call ActionBuild()

'== 在模板中引用的标签变量
Dim TAG_objRS			'== 列表记录集
Dim TAG_strPageNav		'== 翻页导航
Dim TAG_intSortId,TAG_strMenu

'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 页面析构
Call ActionOver()
%>


<%
'===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2007-5-28
'= Description : 加载页面模块
'===================================================================
Function LoadPageTpl()
%>
	<!-- #include file = "../template_c/page_info_index.html.asp" --> 
<%
End Function

'===================================================================
'= Function    : ShowArticleCtl() 
'= Time		   : 2007-5-28
'= Input       :
'= Description : 网站专题
'===================================================================
Function ShowArticleCtl()

	Dim strSortId : strSortId = "0"
	Dim strSortName : strSortName = ""
	Dim strSortDesc : strSortDesc = ""
	Dim strSortLogo : strSortLogo = ""
	Dim arrSortId,arrSortName,arrSortDesc,arrSortLogo,k
	Dim arrSort

	'-- 取得要显示的网站专题
	arrSort = GetHomeSorts()
	 
	Dim j
	If IsArray(arrSort) Then
		For j = Lbound(arrSort) To Ubound(arrSort,2)

			If Cint(arrSort(3,j)) > 0 Then
				strSortId = strSortId &  "," & arrSort(4,j)
				strSortName = strSortName & "," & arrSort(0,j)
				strSortLogo = strSortLogo & "," & arrSort(1,j) 
				strSortDesc = strSortDesc & "," & arrSort(2,j)
				 
			End If
		Next
	End If
	 
	arrSortId = Split(strSortId,",")
	arrSortName = Split(strSortName,",")
	arrSortDesc = Split(strSortDesc,",")
	arrSortLogo = Split(strSortLogo,",")
 
	For k = LBound(arrSortId) To UBound(arrSortId)  

		If arrSortId(k) <> 0 Then
%>
		<div class="Content" style="margin-top:10px">
			<div class="Content-top" style="font-size:14px">
				&nbsp;&nbsp; <img src="../images/new/jt.gif"> <strong><%=arrSortName(k)%></strong> 
			</div>
			<div id="logPanel" class="Content-body">
			
		<table cellspacing=0 cellpadding=0 width=100% border=0  >
				<tr> 
					 <td width="5"></td>
					 <td valign="top">
					 <table  valign="top" cellspacing="0" cellpadding="0" width="100%" border="0"  >
		<%
					Dim i
					Dim arr
					arr =  GetHomeArticles("TOP 8",arrSortId(k))
		 
					For i = Lbound(arr) To Ubound(arr,2)
					%>
					<tr align=right width=100%>
					 <td height=5></td></tr>
					<tr style="line-height:25px;" onmouseover=BgChange(this,"list_td_mouse") onmouseout=BgChange(this,"")><td width=100% align="left"><strong> · </strong><a title="<%=arr(1,i)%>" href="<%=GBL_strHomeURL%>info/info_detail.asp?intArticleid=<%=arr(0,i)%>&intSortId=<%=arrSortId(k)%>"><%=Left(arr(1,i),100)%>...</a><font color=99999>(<%=FormatDateTime(arr(2,i),vbShortDate)%>)</font></td></tr>
					<tr align=right width=100%>
						<td height=5></td></tr>
						<tr width=100%>
						<td width=100% height="1" background="<%=GBL_strHomeUrl%>Images/bao_dotline2.gif"></td>
					 </tr>
					 <%
						 
					 Next%>
				
			</table>
			 <p>&nbsp;&nbsp;<a href="<%=GBL_strHomeURL%>info/info_list.asp?intSortId=<%=arrSortId(k)%>" class="more">查看更多...</a></p></td></tr>
					</td>
					</tr>
			</table>
			</div>
			<div class="Content-bottom">
				<div class="ContentBLeft"></div><div class="ContentBRight"></div>
			</div>
			
		</div>
	</div>
<%
		End If
	Next

End Function


%>