inc_frame_func.asp

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

<%
'===================================================================
'= ASP FILENAME	: /forum/forum_func.asp
'= CREATED TIME : Mar,15,2004
'= LAST MODIFIED: Mar,15,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : forum public functions
'= Change Log:
'===================================================================

'===================================================================
'= Sub    : 	ShowPage(intTotalNumber,intMaxPerPage,intCurrentPage,strFileName)
'= Time        : Created At May,17,2003
'= Input       : None
'= Description : Form feed show 
'===================================================================
Sub ShowPage(intTotalNumber,intMaxPerPage,intCurrentPage,strFileName)
	Dim n
	Dim strAddType		'== 附加传输值
	
	'== 是否有变量传递
	strAddType = Trim(Request.QueryString("pstAddType"))
	strAddType = ""

	If intToTalNumber Mod intMaxPerPage = 0 Then
		n = intToTalNumber \ intMaxPerPage
	Else
		n = intToTalNumber \ intMaxPerPage + 1
	End If
	Response.Write "<table width=100% border=0 cellspacing=1 cellpadding=5  class=TBone><tr class=TBBG1><td width=100% align=right >"
	Response.Write "<form method='Post' action=" & strFileName & "  name='frmGo' id='frmGo' onsubmit='return CheckGoForm()'>"
	If intCurrentPage < 2 Then
		Response.Write "首页 上一页 "
	Else
		Response.Write "<a href=" & strFileName & "&intPageNow=1" & strAddType & ">  首页</a>&nbsp;"
		Response.Write "<a href=" & strFileName & "&intPageNow=" & intCurrentPage - 1  & strAddType & ">上一页 </a>"
	End If
	If n - intCurrentPage < 1 Then
		Response.Write "下一页 尾页 "
	Else
		Response.Write "<a href=" & strFileName & "&intPageNow=" & (intCurrentPage + 1) & strAddType & ">"
		Response.Write "下一页</a> <a href=" & strFileName & "&intPageNow=" & n   & strAddType & ">尾页 </a>"
	End If
	Response.Write "第<font color=red>" & intCurrentPage & "</font>/" & n & "页 "
	Response.Write "" & intTotalNumber & "条 " & intMaxPerPage & "条/页 "
	Response.Write " <input type='text' name='intPageNow' size=3 maxlength=3 value=" & intCurrentPage & " class=fminpt>"
	Response.Write " <input type='submit'  value='Go'  name='subGo' class='fmbtn'></form>"
	Response.Write "</td></tr></table>"

End Sub
'=====================================================================
'= Sub	        : OrderTopForum()
'= Time		    : Created At Apr,03,2004
'= Input        : 
'= Output       : 
'= Description  : order top menu
'=====================================================================
Function OrderTopForum()

	strBannerImg = "banner_home.gif"
	strBannerImg1 = "bb_r2_c1.jpg"

%>
	<table cellspacing=0 cellpadding=0 width=778 align=center bgcolor=#ffffff 
	border=0>
	  <tbody>
	  <tr>
		  <td width=223> <img height=61
		  src="<%=GBL_strHomeURL%><%=GBL_strImgPath%>bb_r1_c1.jpg" width=223></td>
		<td width=555><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="555" height="61">
  <param name="movie" value="<%=GBL_strHomeURL%><%=GBL_strImgPath%>lg.swf">
  <param name="quality" value="high">
  <embed src="<%=GBL_strHomeURL%><%=GBL_strImgPath%>lg.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="555" height="61"></embed></object></td></tr>
	  <tr>
		<td rowspan=2><img height=59 src="<%=GBL_strHomeURL%><%=GBL_strImgPath%><%=strBannerImg1%>" width=223></td>
		<td align=left  height=22 bgcolor=#7499DF><%%>
						</td></tr>
	  <tr>
		<td><img height=37 src="<%=GBL_strHomeURL%><%=GBL_strImgPath%><%=strBannerImg%>" width=555></td></tr>
	  <tr>
		<td colspan=2><img height=1 src="<%=GBL_strHomeURL%><%=GBL_strImgPath%>shim.gif" 
	  width=1></td></tr>
	  <tr style="line-height:5pt;"><td>&nbsp;</td></tr>
	  </tbody></table>
<%
End Function
%>