VBScript得到Cookie

'頁面中要加上此句
<!--#include file="CookieLib.asp"-->

<%
Dim allCookie,sUnique_ID,sName,sUniqueID,sId,sVal,sUrl
'得到所有Cookie值
allCookie =Request.Cookies

'輸出Cookie值
if(allcookie<>"") then
  response.write(allcookie)
end if

response.write("<br>----------<br>")
 Response.Write   "<script   language=""javascript""> window.location.href; </script>"
response.write("<br>----------<br>")
'得到指定的Cookie值
sName=GetCookie("_AUTOWEBCOOKIE_EIP_C_B","NAME")
sUniqueID=GetCookie("_AUTOWEBCOOKIE_EIP_C_B","Unique_ID")
sId=GetCookie("_AUTOWEBCOOKIE_EIP_C_B","ID")

if(sName<>"") then
 response.write(sName+"<br>")
 '本站內頁面跳轉方法1
 'response.redirect "test_cookie.asp"
  '本站內頁面跳轉方法2
 'Response.Write   "<script   language=""javascript"">parent.location.href=""test_cookie.asp"";</script>"
 '其它網站跳轉  'Response.Write   "<script   language=""javascript"">window.location.href=""http://www.baidu.com"";</script>"

end if


if(sUniqueID<>"") then
 response.write(sUniqueID+"<br>")
end if

if(sId<>"") then
 response.write(sId+"<br>")
end if

 Set PageGen=Server.CreateObject("AutoShop.PageGenerator") 
if (not PageGen.Run("EIP","C_B","Main")) then
end if

%>