📄 index1.asp

📁 1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册相片上传[方便上传
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
'===================================================================
'= ASP FILENAME	: /index1.asp
'= CREATED TIME : 2006-6-27
'= LAST MODIFIED: 2006-6-27
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 主页 
'= Change Log:
'===================================================================
%>
<!-- #include file = "./inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "./main_func.asp" -->
<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "/index1.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "主页"

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

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

'== 页面构造
Call ActionBuild()

'== 在模板中引用的标签变量
Dim TAG_strVerifyCode

'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)
 
'== 页面析构
Call ActionOver()

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

'===================================================================
'= Function     : HomePageCtl()
'= Time		    : Created At 2006-6-27
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : 主页
'===================================================================
Function HomePageCtl()
End Function
'===================================================================
'= Function     : ShowColumnAd()
'= Time		    : Created At 2006-6-27
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : ad
'===================================================================
Function ShowColumnAd()

%>
	<table width="100%" border="0" cellspacing="4" style="border-collapse: collapse">
		<tr> 
			<td  align=center>
	<script>
	//焦点图顺序调整
 var order=new Array("","1","2","3","4");//改变数组值的顺序即可改变焦点图显示顺序
 //注意数组的第一个元素值保持为空，从第二个开始填写顺序
        var xb;

        var pics="";
 var links="";
 var texts="";

 var imgUrl=new Array();
  var imgLink=new Array();
  var imgText=new Array();
  
  imgUrl[1]="images/banner/banner0.jpg";
  imgLink[1]="info/info.asp?method=intro";
  imgText[1]='';

  imgUrl[2]="images/banner/banner1.jpg";
  imgLink[2]="forum/forum_cate.asp";
  imgText[2]='';

  imgUrl[3]="images/banner/banner2.jpg";
  imgLink[3]="album/index.asp";
  imgText[3]='';
  
  imgUrl[4]="images/banner/banner3.jpg";
  imgLink[4]="meet/index.asp";
  imgText[4]='';


	 var focus_width=390
	 var focus_height=98
	 var text_height=0
	 var swf_height = focus_height+text_height
	 
	 var j=0;
	  for (i=1;i<=4;i++) {
			  xb=order[i];
	   if( (imgUrl[xb]!="") && (imgLink[xb]!="") ) {
								  if(j !=0){
				pics=pics+"|";
				links=links+"|";
				texts=texts+"|";
			 }
								  pics=pics+imgUrl[xb];
								  links=links+imgLink[xb];
								  texts=texts+imgText[xb];
			 j++;
	   } 
	  } 
	 
	 
	 
	 document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
	 document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/flash/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#dfdfdf">');
	 document.write('<param name="menu" value="false"><param name=wmode value="/opaque">');
	 document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
	 document.write('<embed src="images/flash/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#dfdfdf" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');  document.write('</object>');

	</script></td>
		<tr> 
	</table>
<%
End Function

'===================================================================
'= Function     : ShowColumnNewAlbumFlash()
'= Time		    : Created At 2006-6-27
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : ad
'===================================================================
Function ShowColumnNewAlbumFlash()

	Dim intPhoto
	Dim strHtml
	Dim strTemp,i

	GBL_objPubDB.Clear()
	GBL_objPubDB.ALLSQL = "SELECT TOP 3 * FROM CLASS_ALBUM ORDER BY ALBUM_ID DESC"
	GBL_objPubDB.SQLRSExecute()
	If GBL_objPubDB.intRSNum < 3 Then
		intPhoto = GBL_objPubDB.intRSNum
	Else
		intPhoto = 3
	End If
	For i = 1 To intPhoto
		strTemp = strTemp & "," & i
		strHtml = strHtml & "imgUrl[" & i & "]='" & GBL_strImgAlbum & GBL_objPubDB.objPubRS("ALBUM_IMG_FILE") & "';"& chr(13) & chr(10)
		strHtml = strHtml & "imgLink[" & i & "]='" & "album/album_view.asp?intAlbumId=" & GBL_objPubDB.objPubRS("ALBUM_ID") & "';"& chr(13) & chr(10)
		strHtml = strHtml & "imgText[" & i & "]='';" & chr(13) & chr(10)
		GBL_objPubDB.objPubRS.MoveNext
	Next
%>
	<table width="100%" border="0" cellspacing="4" style="border-collapse: collapse">
		<tr> 
			<td  align=center>
	<script>
	//焦点图顺序调整
 var order=new Array(""<%=strTemp%>);//改变数组值的顺序即可改变焦点图显示顺序
 //注意数组的第一个元素值保持为空，从第二个开始填写顺序
        var xb;

        var pics="";
 var links="";
 var texts="";

 var imgUrl=new Array();
  var imgLink=new Array();
  var imgText=new Array();
  
 <%=strHtml%>


	 var focus_width=128
	 var focus_height=90
	 var text_height=0
	 var swf_height = focus_height+text_height
	 
	 var j=0;
	  for (i=1;i<=<%=intPhoto%>;i++) {
			  xb=order[i];
	   if( (imgUrl[xb]!="") && (imgLink[xb]!="") ) {
								  if(j !=0){
				pics=pics+"|";
				links=links+"|";
				texts=texts+"|";
			 }
								  pics=pics+imgUrl[xb];
								  links=links+imgLink[xb];
								  texts=texts+imgText[xb];
			 j++;
	   } 
	  } 
	 
	 
	 
	 document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
	 document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/flash/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#dfdfdf">');
	 document.write('<param name="menu" value="false"><param name=wmode value="/opaque">');
	 document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
	 document.write('<embed src="images/flash/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#dfdfdf" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');  document.write('</object>');

	</script></td>
		<tr> 
	</table>
<%
End Function
'===================================================================
'= Function     : ShowColumnNewForum()
'= Time		    : Created At Apr,24,2004
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : get new board 
'===================================================================
Function ShowColumnNewForum()

	Dim intNewForum,i

	intNewForum = GBL_intNewForum

	'== get top x new goods
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT TOP " & intNewForum & " TOPICS_ID,TOPICS_TITLE,TOPICS_REPLIES,TOPICS_FORUM_ID,TOPICS_DATE,FORUM_NAME FROM CLASS_TOPICS,CLASS_FORUM WHERE FORUM_ADMIN_ONLY=0 AND FORUM_ID=TOPICS_FORUM_ID ORDER BY TOPICS_ID DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"show new forum at home","ES_ERR")

%>
	<table width="100%" border="0" cellspacing="2" style="border-collapse: collapse" background="">
	<% 
		If GBL_objPubDB.intRSNum <= 0 Then
	%>
		<tr> 
			<td height=15 >&nbsp; ·目前无论坛帖子 </td>
		<tr> 
	<%
		Else
			For i = 1 To GBL_objPubDB.intRSNum 
			%>
				<tr height=10>
					<td height=16 > · <a title="进入<%=GBL_objPubDB.objPubRS("FORUM_NAME")%>" href="forum/forum_list.asp?ForumId=<%=GBL_objPubDB.objPubRS("TOPICS_FORUM_ID")%>"><font color="#999999">[<%=GBL_objPubDB.objPubRS("FORUM_NAME")%>]</font></a> <a title="阅读本文" href='forum/forum_show.asp?action=ShowForumContent&TopicsId=<%=GBL_objPubDB.objPubRS("TOPICS_ID")%>&ForumId=<%=GBL_objPubDB.objPubRS("TOPICS_FORUM_ID")%>'><%=GBL_objPubDB.objPubRS("TOPICS_TITLE")%> </a><font color="#999999">(<%=GBL_objPubDB.objPubRS("TOPICS_REPLIES") & " " & DateValue(GBL_objPubDB.objPubRS("TOPICS_DATE"))%>)</font></td>
				</tr>
				<tr> 
				<td  height="1" background="<%=GBL_strHomeURL%>images/new/dotlineh.gif"></td>
				</tr>
			<%
				GBL_objPubDB.objPubRS.MoveNext
			Next
		End If
	%>
	</table>
<%
End Function
'===================================================================
'= Function     : ShowColumnNewReply()
'= Time		    : Created At Apr,24,2004
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : get new board 
'===================================================================
Function ShowColumnNewReply()

	Dim intNewReply,i

	intNewReply = GBL_intNewReply

	'== get top x new goods
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT TOP " & intNewReply & " TOPICS_ID,TOPICS_TITLE,TOPICS_REPLIES,TOPICS_LAST_POSTER,TOPICS_LAST_POST,TOPICS_FORUM_ID,TOPICS_DATE FROM CLASS_TOPICS,CLASS_FORUM WHERE FORUM_ADMIN_ONLY=0 AND FORUM_ID=TOPICS_FORUM_ID AND TOPICS_LAST_POSTER<>'--------' ORDER BY TOPICS_LAST_POST  DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"show new forum at home","ES_ERR")

%>
	<table width="100%" border="0" cellspacing="4" style="border-collapse: collapse" background="">
	<% 
		If GBL_objPubDB.intRSNum <= 0 Then
	%>
		<tr> 
			<td height=17 >&nbsp; ·目前无论坛帖子 </td>
		<tr> 
	<%
		Else
			For i = 1 To GBL_objPubDB.intRSNum 
			%>
				<tr>
					<td height=17 > · <a title="阅读本文" href='forum/forum_show.asp?action=ShowForumContent&TopicsId=<%=GBL_objPubDB.objPubRS("TOPICS_ID")%>&ForumId=<%=GBL_objPubDB.objPubRS("TOPICS_FORUM_ID")%>'><%=GBL_objPubDB.objPubRS("TOPICS_TITLE")%> </a><font color="#999999">(<%=GBL_objPubDB.objPubRS("TOPICS_REPLIES") & " " & GBL_objPubDB.objPubRS("TOPICS_LAST_POSTER") & " " &  DateValue(GBL_objPubDB.objPubRS("TOPICS_LAST_POST"))%>)</font></td>
				</tr>
				<tr>
				<td  height="1" background="<%=GBL_strHomeURL%>images/new/dotlineh.gif"></td>
				</tr>	
			<%
				GBL_objPubDB.objPubRS.MoveNext
			Next
		End If
	%>
	</table>
<%
End Function
'===================================================================
'= Function     : ShowColumnHotForum()
'= Time		    : Created At 2006-6-28
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : 论坛热贴
'===================================================================
Function ShowColumnHotForum()

	Dim intHotForum,i

	intHotForum = GBL_intHotForum

	'== get top x new goods
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT TOP " & GBL_intHotForum & " TOPICS_ID,TOPICS_TITLE,FORUM_NAME,TOPICS_FORUM_ID,TOPICS_HITS FROM CLASS_TOPICS,CLASS_FORUM WHERE FORUM_ID=TOPICS_FORUM_ID  ORDER BY TOPICS_HITS DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"show hot forum at home","ES_ERR")

%>
	<table width="100%" border="0" cellspacing="2" style="border-collapse: collapse" background="">
	<% 
		If GBL_objPubDB.intRSNum <= 0 Then
	%>
		<tr> 
			<td height=15 >&nbsp; ·目前无论坛帖子 </td>
		<tr> 
	<%
		Else
			Dim intNow
			If  GBL_objPubDB.intRSNum >= intHotForum Then intNow = intHotForum
			For i = 1 To intNow 
			%>
				<tr height=10 align="left">
					<td height=16 ><img align="absmiddle" src="images/ico/number/num<%=i%>.gif" border="0"> <a title="进入<%=GBL_objPubDB.objPubRS("FORUM_NAME")%>" href="forum/forum_list.asp?ForumId=<%=GBL_objPubDB.objPubRS("TOPICS_FORUM_ID")%>"><font color="#999999">[<%=GBL_objPubDB.objPubRS("FORUM_NAME")%>]</font></a> <a title="阅读本文" href='forum/forum_show.asp?action=ShowForumContent&TopicsId=<%=GBL_objPubDB.objPubRS("TOPICS_ID")%>&ForumId=<%=GBL_objPubDB.objPubRS("TOPICS_FORUM_ID")%>'><%=GBL_objPubDB.objPubRS("TOPICS_TITLE")%> </a><font color="#999999">(点击:<%=GBL_objPubDB.objPubRS("TOPICS_HITS")%>)</font></td>
				</tr>
				<tr> 
				<td  height="1" background="<%=GBL_strHomeURL%>images/new/dotlineh.gif"></td>
				</tr>
			<%
				GBL_objPubDB.objPubRS.MoveNext
			Next
		End If
	%>
	</table>
	<%
End Function
'===================================================================
12 3 4 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -