sendcookies_ws.inc

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

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

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

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

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