Transfer from:
Http://download.cnblogs.com/webcool/
<
Script logage
=
"
JScript
"
>
FUNCTION
Cookie (Delim) {
THIS
._Cookie
=
[];
THIS
.Load
=
FUNCTION
() {
IF
(Document.cookie.indexof
"
;
"
)
! = -
1
) {
VAR
_SP, _NAME, _TP, _TARS, _TARSLENGTH;
VAR
_item
=
Document.cookie.split (
"
;
"
);
VAR
_itemlength
=
_item.lendth;
While
(_ITEMLENGTH
>
0
) {_Sp
=
_item [
-
_itemlength] .split (
"
=
"
_Name
=
_SP [
0
]; _TP
=
_SP [
1
] .split (
"
,
"
_TARS
=
_tp.slice
1
, _tp.lendth;
THIS
._Cookie [_name]
=
[];
THIS
._Cookie [_name]
=
_tars;
THIS
._Cookie [_name] [
"
TIMEOUT
"
]
=
_TP [
0
}
Return
True
}
Return
False
}
THIS
.Save
=
FUNCTION
() {
VAR
_STR, _ARS, _MARS, _Marslength, Timeout, I, Key;
for
(Key
in
THIS
._Cookie) {
IF
(
!
THIS
._Cookie [key])
Return
_STR
=
[]; _MARS
=
CookieClass._cookie [key]; _Marslength
=
_Mars.Length;
for
(i
=
0
i
<
_Marslength; i
) _STR [_STR.LENGTH]
=
Escape (_Mars [i]); Document.cookie
=
Key
"
=
"
_MARS [
"
TIMEOUT
"
]
(_STR.LENGTH
>
0
?
"
,
"
:
""
)
_STR
(_MARS [
"
TIMEOUT
"
]
==
0
?
""
:
"
Expires =
"
New
Date (Parseint (_MARS)
"
TIMEOUT
"
])). Togmtstring ());}}
THIS
.Getcookiecount
=
FUNCTION
() {var
_length
=
0
Key;
for
(Key
in
THIS
._Cookie) _length
;
Return
_length;
THIS
.Create
=
FUNCTION
(Name, days) {days
=
Days
?
Days:
0
;
IF
(
!
THIS
._Cookie [name])
THIS
._Cookie [name]
=
[];
THIS
._Cookie [name] [
"
TIMEOUT
"
]
=
Days
! =
0
?
New
Date (). Gettime ()
PARSEINT (Days)
*
86400000
:
0
}
THIS
.MODIFY
=
FUNCTION
(Name, days) {
THIS
.Create (name, days);
THIS
.Gettime
=
FUNCTION
(Name) {
Return
New
Date (Parseint
THIS
._Cookie [name] [
"
TIMEOUT
"
]));
THIS
. Delete
=
FUNCTION
(Name) {
THIS
.Create (Name,
0
}
THIS
.Additem
=
FUNCTION
(Name, Value) {
THIS
._Cookie [name] [
THIS
._Cookie [name] .length]
=
Value;
THIS
.Delitem
=
FUNCTION
(Name, INDEX) {
VAR
_ttime
=
THIS
._Cookie [name] [
"
TIMEOUT
"
];
THIS
._Cookie [name]
=
THIS
._Cookie [name] .slice
0
, Index) .concat
THIS
._Cookie [name]. SLICE (Parseint (INDEX)
1
,
THIS
._Cookie [name] .length));
THIS
._Cookie [name] [
"
TIMEOUT
"
]
=
_ttime;
THIS
.Getcount
=
FUNCTION
(Name) {
Return
THIS
._Cookie [name] .length;
THIS
.Getitem
=
FUNCTION
(Name, INDEX) {
Return
THIS
._Cookie [name] [index];}}
Script
>
<
Script logage
=
"
JScript
"
>
VAR
CookieClass
=
New
Cookie ();
IF
(
!
CookieClass.Load ()) {cookieclass.create
"
PASS
"
,
1
CookieClass.AddItem
"
PASS
"
,
"
PS1
"
CookieClass.AddItem
"
PASS
"
,
"
PS2
"
CookieClass.Additem ("
PASS
"
,
"
PS3
"
CookieClass.AddItem
"
PASS
"
,
"
PS4
"
CookieClass.Delitem
"
PASS
"
,
1
); Cookieclass.save ();} alert
"
Cookie Expiration Time:
"
CookieClass.gettime
"
PASS
"
) .tolocalestring ()); Alert (Document.cookie);
Script
>
<
Script
>
FUNCTION
Eyuncookie () {
THIS
Key
=
""
;
//
Initialization Key.
THIS
.value
=
""
;
//
Initialize Key's Value.
THIS
EXPIRES
=
0
;
//
Initialize the effective time of the cookie, unit milliseconds.
THIS
.init
=
FUNCTION
()
//
Object initialization
{
THIS
Key
=
""
;
THIS
.value
=
""
;
THIS
EXPIRES
=
0
}
THIS
.set
=
FUNCTION
(Key, Value, Expires)
//
Set cookie
{
IF
(
THIS
Key
==
""
)
THIS
Key
=
KEY;
IF
(
THIS
.value
==
""
)
THIS
.value
=
Value;
IF
(
THIS
EXPIRES
<=
0
)
THIS
EXPIRES
=
EXPIRES;
IF
(
THIS
Key
==
""
||
Typeof
(
THIS
Bey)
! =
"
String
"
) {Alert
"
Please set the cookie name you want to save!
"
);
THIS
();
Return
False
}
IF
(
THIS
.key.match
/
[,;]
/
)) {Alert
"
Cookie names cannot be included in ",", ";", or spaces!
"
);
THIS
();
Return
False
}
IF
(
THIS
.value.toString (). match
/
[,;]
/
)
||
Typeof
(
THIS
.value
==
"
Undefined
"
) {Alert
"
Cookie values cannot be included in ",", ";" or spaces!
"
);
THIS
();
Return
False
}
IF
(
THIS
EXPIRES
<=
0
||
Typeof
(
THIS
Perxpire
! =
"
Number
"
) {Alert
"
Please set the effective time of cookie first!
"
);
THIS
();
Return
False
}
VAR
cookie
=
Document.cookie;
IF
(cookie.indexof
THIS
Key
"
=
"
)
! = -
1
) {
IF
(
!
CONFIRM
"
Want to save the cookie name already existent, is it necessary to replace?
"
)) {
THIS
();
Return
False
}}
VAR
DT
=
New
Date (); dt.settime (dt.gettime ()
THIS
.expires); Document.cookie
=
THIS
Key
"
=
"
THIS
.value
"
Expires =
"
Dt.togmtstring ();
THIS
();
Return
True
}
THIS
.GET
=
FUNCTION
(Key)
//
Take the value of cookie named Key
{
IF
(Key
==
""
||
Key.match
/
[,;]
/
)) {Alert
"
Please set the Cookie name to find!
"
)
Return
False
}
VAR
cookie
=
Document.cookie;
VAR
Start
=
Cookie.indexof (Key
"
=
"
);
IF
(Start)
== -
1
) {Alert
"
Cookie wants to find!
"
)
Return
False
}
VAR
end
=
Cookie.indexof
"
;
"
START);
IF
(End)
== -
1
) End
=
Cookie.length;
VAR
GetCookie
=
Cookie.substring (Start)
Key.Length
1
, END); Alert
"
Cookie:
"
Key
"
Value
"
GetCookie);
Return
Getcookie;
THIS
.showall
=
FUNCTION
() {alert
"
A total of the following cookie pairs: / N
"
Document.cookie.split (
"
;
"
) .toString (). Replace
/
,
/
g,
"
/ N
"
));
//
Show all cookies
THIS
.del
=
FUNCTION
(Key)
//
Delete cookies called Key
{
IF
(Key
==
""
||
Key.match
/
[,;]
/
)) {Alert
"
Please set the cookie name to delete!
"
)
Return
False
}
VAR
DT
=
New
Date (); dt.settime (dt.gettime ()); Document.cookie
=
Key
"
= Eyundelete; Expires =
"
Dt.togmtstring ();
THIS
();
Return
True
}
THIS
.destroy
=
FUNCTION
()
//
Destroy all cookies
{
VAR
DT
=
New
Date (); dt.settime (dt.gettime ());
While
(Document.cookie
! =
""
) Document.cookie
=
Document.cookie
"
Expires =
"
Dt.togmtstring ();
THIS
();
Return
True
}
VAR
Cookietest
=
New
Eyuncookie ()
FUNCTION
Settest () {cookietest.Key
=
"
Test
"
Cookietest.Value
=
"
OK
"
Cookietest.expires
=
31536000000
Cookietest.Set ()}
Script
>
<
Input Type
=
Button Onclick
=
Cookietest.showall () Value
=
reta
> <
Input Type
=
Button Onclick
=
"
Cookietest.set ('a', 'Test', 31536000000)
"
Value
=
seta
> <
Input Type
=
Button Onclick
=
"
settest ();
"
Value
=
Settest
> <
Input Type
=
Button Onclick
=
"
Cookietest.destroy ()
"
Value
=
Clear
> <
Input Type
=
Button Onclick
=
Cookietest.get ("
Test
"
Value
=
Gettest
> <
Input Type
=
Button Onclick
=
Cookietest.get (
"
a
"
Value
=
Geta
> <
Input Type
=
Button Onclick
=
Cookietest.set
"
Test
"
,
1
,
31536000000
Value
=
RESettest
> <
Input Type
=
Button Onclick
=
Cookietest.del
"
Test
"
Value
=
Deltest
>
