setcookie.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 34 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%>
<!--#include file="inc/ddtaobao_function.asp"-->
<%
dim Action,FoundErr,ErrMsg
Action=trim(request("Action"))

if Action="SetSkin" then
	call SetSkin()
end if
if FoundErr=True then
	call WriteErrMsg()
end if

sub SetSkin()
	dim SkinID
	SkinID=trim(request("SkinID"))

	if SkinID="" then
		SkinID=0
	else
		SkinID=Clng(SkinID)
	end if
	response.Cookies("Skin")=SkinID
	response.redirect Request.ServerVariables("http_referer")
end sub
%>