sendcookies.inc

来自「能实现用户注册」· INC 代码 · 共 23 行

<%
Set objBrowsCap=Server.CreateObject("MSWC.BrowserType")
sAppName=objBrowsCap.Browser
sAppVer=objBrowsCap.Version
HandlesCookies=objBrowsCap.Cookies
set objBrowsCap=nothing

'if HandlesCookies=true then
	response.cookies("CustomerID")=session("CustomerID")
	response.cookies("CustomerID").expires=#December 29, 2000#

	sAppName=left(sAppName,1)
	sAppVer=left(Cstr(sAppVer),4)

	if (sAppName="I" and sAppVer>3.9) then 
		response.cookies("CustomerID").domain=".www.yourdomain.com"
		response.cookies("CustomerID").path="/"
	end if
'end if
Session("CustomerID")=CustomerID
%>