网人的程序COOKIES怎样解决

1. '======================================
   
2.    '存储缓Cookies
   
3.    '======================================
   
4.    Sub SCookies(ByVal CName,ByVal Str,ByVal CDay)
   
5.      If CDay > 0 Then Response.Cookies(CacheName&CName).Expires=Date+CDay
   
6.      If Left(Ucase(CName),6) = "MYCITY" Then Response.Cookies(CName) = Str Else Response.Cookies(CacheName&CName) = Str
   
7.    End Sub
   
8.    '======================================
   
9.    '清除Cookies
   
10.    '======================================
    
11.    Sub DelCookies(ByVal CName)
    
12.      If Left(Ucase(CName),6) = "MYCITY" Then Response.Cookies(CName) = Empty Else Response.Cookies(CacheName&CName) = Empty
    
13.    End Sub
    
14.    '======================================
    
15.    '获取Cookies
    
16.    '======================================
    
17.    Function GetCookies(ByVal CName)
    
18.      GetCookies = Empty
    
19.      If Left(Ucase(CName),6) = "MYCITY" Then
    
20.            If Request.Cookies(CName) <> "" and IsEmpty(Request.Cookies(CName)) = False and IsNUll(Request.Cookies(CName)) = False Then GetCookies = Request.Cookies(CName)
    
21.          Else
    
22.            If Request.Cookies(CacheName&CName) <> "" and IsEmpty(Request.Cookies(CacheName&CName)) = False and IsNUll(Request.Cookies(CacheName&CName)) = False Then GetCookies = Request.Cookies(CacheName&CName)
    
23.          End If
    
24.    End Function

复制代码

怎样解决,大大们..

终于解决了....我把方法写出来,大家看下...

在
'======================================
   '存储缓Cookies
   '======================================
   Sub SCookies(ByVal CName,ByVal Str,ByVal CDay)
     If CDay > 0 Then Response.Cookies(CacheName&CName).Expires=Date+CDay
     If Left(Ucase(CName),6) = "MYCITY" Then Response.Cookies(CName) = Str Else Response.Cookies(CacheName&CName) = Str

下面加上
Response.Cookies("WRMPS").Domain = www.XXXXXX.com         
Response.Cookies("WRMPS").path="/"

(注:www.XXXXXX.com 是你域名, WRMPS是网人默认的COOKIES名字..)

lwbo1987

感谢分享，记录下来！