www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > forum/forum_style.asp

    <%
'===================================================================
'= 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() ======================
%>