?? 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>本網(wǎng)站有以下幾種界面可供選擇</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() ======================
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -