Kaip ASP kalba patikrinti, ar slapukas egzistuoja

Interneto slapukai (angl. cookies) leidžia svetainių savininkams prisiminti lankytojus – pvz., saugoti slaptažodžius ar vartotojo ID, kad vartotojas nebūtų priverstas prisijungti kiekvieną kartą. Nors ASP yra senesnė programavimo kalba, ji gali kurti ir valdyti slapukus. Šiame straipsnyje parodyta, kaip naudoti VBScript funkciją CBool norint patikrinti, ar konkretus slapukas egzistuoja, prieš atliekant jo apdorojimą.

Žingsnis 1

Atidarykite Notepad arba WordPad programą.

Žingsnis 2

Įklijuokite žemiau pateiktą kodą į naują dokumentą:

<% 
Response.Cookies("test2") = "testing"
Dim cookieToFind
cookieToFind = "test2"
cookieFound = CBool(Len(Request.Cookies(cookieToFind)) > 0)
Response.Write("Cookie Found = " & cookieFound)
%>

Kodas sukuria paprastą HTML puslapį su ASP bloku. Kintamasis cookieToFind nurodo ieškomo slapuko pavadinimą („test2“). CBool funkcija tikrina Request.Cookies rezultatą ir, jei slapukas yra, priskiria True kintamajam cookieFound; priešingu atveju – False.

Žingsnis 3

Pasirinkite meniu File → Save As. Įrašykite failą su .asp plėtiniu, pvz., ASP1.asp, ir spustelėkite Save.

Įkelkite failą į savo web serverį, atidarykite naršyklę ir pereikite į šį puslapį. Puslapio įkėlimo metu ASP kodas sukurs slapuką, patikrins jo buvimą ir, jei slapukas egzistuoja, Response.Write išves „True“.

Patarimas

• Norėdami patikrinti bet kurį slapuką, pakeiskite cookieToFind reikšmę į norimo slapuko pavadinimą ir peržiūrėkite cookieFound reikšmę. Jei ji False, slapukas neegzistuoja.