宽容他人，放过自己。

asp中cookie的添加

Posted on Aug 01, 2016 By anchoriteFili


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim numvisits
response.Cookies("NumVisits").Expires = date+365
numvisits = request.Cookies("NumVisits")

if numvisits = "" then
    response.Cookies("NumVisits") = 1
    response.Write("欢迎，这是你第一次进入网页")
else
    response.Cookies("NumVisits") = numvisits + 1
    response.Write("你已经浏览这个页面")
    response.Write("页面" & numvisits)
    if numvisits = 1 then
        response.Write("time before!")
    else
        response.Write("times before!")
    end if
end if
%>

<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>Cookie创建</title>
</head>

<body>
</body>
</html>