forum_style.asp

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

<%
'===================================================================
'= ASP FILENAME	: /forum/forum_style.asp
'= CREATED TIME : July,04,2004
'= LAST MODIFIED: July,04,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : user select the style of website
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/inc_class_def.asp" -->

<!-- #include file = "../inc/inc_db_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->

<!-- #include file = "../inc/inc_pub_func.asp" -->

<!-- #include file = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<!-- #include file = "../main_func.asp" -->


<!-- #include file = "../js/comm_func.js" -->

<%
Const CONST_PAGE_FILE = "forum/forum_style.asp"

GBL_strHomeURL = "../"
Set clsPubDB = New classDBOprt

Call SetWebStyle()

Set clsPubDB = Nothing


%>
<%
'===================================================================
'= Function    : ShowUserStyleSelect() 
'= Time        : Created At July,24,2003
'= Input       : None

'= Called by   :
'= Calls       : 
'= Table	   : 
'= Description : user select website style
'===================================================================
Function ShowUserStyleSelect()

	Dim N
	If Trim(Request.QueryString("ACT_MODE")) = "SET" Then
		Call SetWebStyle()
		Exit Function
	End If
	%>

	<table cellpadding="3" cellspacing="1" align="center" width=100%>
		<tr>
			<td >
				<%
				If Trim(Request.QueryString("ACT_MODE")) = "SUCC" Then
				%>
				<p><b>风格设置成功！！</b></p>
				<%End If%>
				<p><b>本网站有以下几种界面可供选择</b></P>
				<ul>
				<%
				for N = 0 to DEF_StyleStringNum
				%>
					<li><a href="<%=GBL_strHomeURL%>user/user_style.asp?action=ShowUserStyleSelect&StyleId=<%=N%>&ACT_MODE=SET"><%=DEF_StyleString(N)%></a><br>
				<%
				Next
				%>
				</ul>
			</td>
		</tr>
	</table>
	<%

End Function
'=============== End of Function ShowUserStyleSelect() =============
'===================================================================
'= Function    : SetWebStyle() 
'= Time        : Created At July,24,2003
'= Input       : None

'= Called by   :
'= Calls       : 
'= Table	   : 
'= Description : user select website style
'===================================================================
Function SetWebStyle()

	Dim StyleId

	StyleId = Trim(Request("StyleId"))
	If isNumeric(StyleId)= 0 Then 
		StyleId = 0
	End If
	If  StyleId = 0 Then
		StyleId = 8
	End If
	StyleId = cCur(StyleId)

	Response.Cookies(GBL_strCookieURL & "style").Expires = Date + 365
	'针对多个版面不同风格需求 Response.Cookies(GBL_strCookieURL & "style")("page0") = PageStyle
	Response.Cookies(GBL_strCookieURL & "style")("page") = StyleId
	Response.Redirect GBL_strHomeURL & "forum/forum_cate.asp"
		

End Function
'=============== End of Function SetWebStyle() ======================
%>