谁知道如何在Vbscript中操作Cookies啊?

[oldgameman]

如何读取和存入Cookies中啊?
能象ASP中那样支持Cookies群组吗?
比如这样的格式:Response.Cookies("R_Day")(R_Date)=R_Date
在纯Vbscript中如何实现啊?

[karma]

you mean on the client side?

try

<SCRIPT LANGUAGE="VBSCRIPT">
function GetCookie(sName)
'msgbox document.cookie
DIM aCookie, i, aCrumb
GetCookie = ""
aCookie = split(document.cookie, "; ")
FOR i = LBOUND(aCookie) to UBOUND(aCookie)
aCrumb = split(aCookie(i), "=")
if sName = aCrumb(0) then
GetCookie = unescape(aCrumb(1))
EXIT FOR
end if
NEXT
end function

Sub SetCookie(sName, sValue)
document.cookie = sName & "=" & escape(sValue) & "; expires=Tue, 31 Dec 2002 23:59:59 GMT"
end Sub

sub DeleteCookie(sName)
document.cookie = sName & "=" + escape(sValue) & "; expires=Fri, 31 Dec 1999 23:59:59 GMT;"
end sub
</SCRIPT>
<form name="frm">
Name:<input type="text" name="cookiename"><br>
Value:<input type="text" name="cookievalue"><br>
<input type="button" value="create cookie" onclick="SetCookie me.form.cookiename.value, me.form.cookievalue.value"
language="vbscript">
<input type="button" value="get cookie" onclick="msgbox GetCookie(me.form.cookiename.value)"
language="vbscript">

<input type="button" value="delete cookie" onclick="DeleteCookie(me.form.cookiename.value)"
language="vbscript">