在a.asp中用
response.cookies("myweb")("mycookie")=strCookie
写入
想在同一网站的b.html读出同一个cookie(例如把一个hidden的value赋值为该cookie),可以吗?如何读取?
---------------------------------------------------------------
1
2response.cookies("myweb")("mycookie1")="中文Abc"
3response.cookies("myweb")("mycookie2")=",.; '="
4response.cookies("myweb")("mycookie3")=314
1<input onclick='arrCookie("myweb")' type="button" value="myweb"/>
1<input onclick='arrCookie("myweb2")' type="button" value="myweb2"/>
1<script language="vbs">
2function urldecoding(vstrin)
3'qiushuiwuhen(2002-6-19)
4dim i,strreturn,strSpecial
5strSpecial = "!""#$%&'()*+,/:;<=>?@[\\]^`{ ¦}~%"
6strreturn = ""
7for i = 1 to len(vstrin)
8thischr = mid(vstrin,i,1)
9if thischr="%" then
10intasc=eval("&h"+mid(vstrin,i+1,2))
11if instr(strSpecial,chr(intasc))>0 then
12strreturn= strreturn & chr(intasc)
13i=i+2
14else
15intasc=eval("&h"+mid(vstrin,i+1,2)+mid(vstrin,i+4,2))
16strreturn= strreturn & chr(intasc)
17i=i+5
18end if
19else
20if thischr="+" then
21strreturn= strreturn & " "
22else
23strreturn= strreturn & thischr
24end if
25end if
26next
27urldecoding = strreturn
28end function
29
30function arrCookie(str)
31'qiushuiwuhen(2002-8-30)
32arr=split(document.cookie,"; ")
33for i=0 to ubound(arr)
34if left(arr(i),len(str)+1)=str&"=" then
35val=mid(arr(i),len(str)+2)
36tmp=split(val,"&")
37for j=0 to ubound(tmp)
38cks=split(tmp(j),"=")
39msgbox "response.cookies("""&str&""")("""&cks(0)&""")="&urldecoding(cks(1))
40next
41exit function
42end if
43next
44msgbox "没有"&str&"这个数组"
45end function
46</script>