<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_ClsSysTem.asp"-->
<%
Dim action
action=Request("action")
Select Case Lcase(action)
Case "setstyle"
	Call SetStyle()
Case "delstyle"
	Call DelStyle()
End Select

If IsNull(Request.ServerVariables("HTTP_REFERER")) Or Request.ServerVariables("HTTP_REFERER")="" Then
	Response.Redirect "Index.asp"
Else
	Response.Redirect Request.ServerVariables("HTTP_REFERER")
End If

Sub SetStyle()
	Dim StyleID, CssID
	CssID=Request("CssID")
	StyleID=Request("StyleID")
	If Not isnumeric(CssID) Then CssID=Cl.StyleID
	If Not isnumeric(StyleID) Then StyleID=Cl.StyleID
	Response.Cookies("Skins").Expires=Date+7
	Response.Cookies("Skins")("CssID")=CssID
	Response.Cookies("Skins")("StyleID")=StyleID
End Sub

Sub DelStyle()
	Response.Cookies("Skins")("CssID")=""
	Response.Cookies("Skins")("StyleID")=""
End Sub
'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.Net
'
'邮箱: aspoo@126.com		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>
