06. november 2000 - 20:22Der er
24 kommentarer og 2 løsninger
FUCKING COOKIE!
Jeg har lavet et script hvor outputtet ville blive meget fedt MEN jeg kan ikke få sat en cookie ind! Why?? her er scriptet:
<% @LANGUAGE = VBScript %> <% \' Listing 5.2 Sending Data Using the Get Method Option Explicit Response.Expires = 0 Dim strtext, strname If Request.ServerVariables(\"QUERY_STRING\") <> \"\" Then \' Retrieving Form Data from QueryString strName = Trim(Request.QueryString(\"Name\")) %> <HTML><BODY bgcolor=\"#000000\" text=\"darkgray\">
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
<% If (request(\"REQUEST_METHOD\") = \"POST\") Then Dim Nick nick = request(\"Nick\") response.cookies(\"Nick\") = nick End If %> \'Put this where you want the Welcome Nic \' k <% If request.cookies(\"Nick\") <> \"\" Then response.write \"Welcome \" response.write request.cookies(\"Nick\") End If %> \'Put this where you want the text box to \' appear <% If request.cookies(\"Nick\") = \"\" Then response.write \"<BR><FORM NAME=\'message\' METHOD=\'POST\' ACTION=\'THIS_FILES_NAME.asp\'><INPUT TYPE=\'text\' NAME=\'Nick\' Size=\'10\' MAXLENGTH=\'25\'> <INPUT TYPE=\'SUBMIT\' VALUE=\'Set Nick\'>\" End If %>
Ok for at bruge blazers eksempel så sætter du en udløbsdato på sådan her:
<% If (request(\"REQUEST_METHOD\") = \"POST\") Then Dim Nick nick = request(\"Nick\") response.cookies(\"Nick\") = nick Response.Cookies(\"Nick\").Expires = \"December 1, 2001\"
Eller hvis du vil have en lidt mere variable udløbsdato:
<%
Response.Cookies(\"cookie_id\")(\"strname\") = strname Response.Cookies(\"cookie_id\").Expires = date() + 7 %> her udløber cookien en uge efter den er oprettet...
men som sagt du kan sætte lige så mange værdier en i den som du har lyst til.
Jeg er faktisk ikke helt med på om man kan gøre det sådan, men hvis det er for at byde en velkommen kan du jo bare gøre det sådan her: <% If Request.Cookies(\"cookie_id\")(\"strname\") <> \"\" Then response.write \"Velkommen\" response.write Request.Cookies(\"cookie_id\")(\"strname\") End If %>
<% If (request(\"REQUEST_METHOD\") = \"POST\") Then Dim Nick nick = request(\"Nick\") Response.cookies(\"Nick\")(\"strname)\" = Velkommen & Strname response.cookies(\"Nick\") = nick Response.Cookies(\"Nick\").Expires = \"December 1, 2001\"
<% If (request(\"REQUEST_METHOD\") = \"POST\") Then Dim Nick nick = request(\"Nick\") Response.cookies(\"Nick\")(\"strname)\" = Velkommen & Strname response.cookies(\"Nick\")(\"nick\") = nick Response.Cookies(\"Nick\").Expires = \"December 1, 2001\" End If %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.