Solved

How to "Write" and "Read" Cookies in VBScript ?

Posted on 2008-10-08
5
936 Views
Last Modified: 2012-05-05
Hi,

I want to write a cookie called "UserName" and its value is "Sam". Can you please provide me complete code in VBScript - How to write that cookie and how to read that cookie ?

Appreciate your help for providing the code !

Thanks
0
Comment
Question by:milani_lucie
5 Comments
 
LVL 8

Expert Comment

by:vsudip
ID: 22675843
0
 
LVL 4

Expert Comment

by:techvagabond
ID: 22675857
Try something like this


<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub SubmitBtnWrite_Click(Sender As Object, E As EventArgs)
        Response.Cookies("UserName").Expires = "5/1/2010"
        Response.Cookies("UserName").Value = "Sam"
End Sub
Sub SubmitBtnRead_Click(Sender As Object, E As EventArgs)
    Dim I as integer
    For I = 0 to Request.Cookies.Count - 1
        lblMessage1.Text = lblMessage1.Text  _
            & Request.Cookies.Item(I).Name & ": " _
            & Request.Cookies.Item(I).Value & "<BR>"
    Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Cookies Sample Page</TITLE>
</HEAD>
<BODY >
<form runat="server">
<Font Face="Tahoma">
<asp:Label
    id="lblMessage1"
    runat="Server"
    Font-Bold="True"
/>
<BR><BR>
<asp:button
    id="butOK1"
    runat="server"
    text="Write Cookies to Browser"
    Type="Submit"
    OnClick="SubmitBtnWrite_Click"
/>
<asp:button
    id="butOK2"
    runat="server"
    text="Read Cookies from Browser"
    Type="Submit"
    OnClick="SubmitBtnRead_Click"
/>
</Font>
</Form>
</BODY>
</HTML>
0
 

Author Comment

by:milani_lucie
ID: 22675882
techvagabond:

Do we need to go to the server ? Can we do it on client side ? I think so we have something like this:

Document.Cookie = "UserName=Sam"

And we need NOT write

Response.Cookies("UserName").Value = "Sam"

Am i correct ? Please correct me if i am wrong !

Thanks
0
 
LVL 4

Expert Comment

by:techvagabond
ID: 22675903
yea you could give that a shot. Try and run it and see how you go. best way to learn is to fiddle :D
0
 
LVL 16

Accepted Solution

by:
sh0e earned 500 total points
ID: 22699310

<script type="text/vbscript">

Function ReadCookie(name)

	Set re = New RegExp

	re.IgnoreCase = True

	re.Pattern = "(?:^|;) ?" & name & "=([^;]*)(?:;|$)"

	Set matches = re.Execute(document.cookie)

	If matches.Count > 0 Then

		ReadCookie = matches(0).SubMatches(0)

	Else

		ReadCookie = ""

	End If

End Function
 

Function WriteCookie(name, val)

	document.cookie = name & "=" & val

End Function
 

WriteCookie "attack","attack"

WriteCookie "tack","tack"

WriteCookie "stack","stack"
 

MsgBox document.cookie
 

MsgBox ReadCookie("attack")

MsgBox ReadCookie("tack")

MsgBox ReadCookie("stack")

If ReadCookie("ack") = "" Then

	MsgBox "No cookie data found for ack"

End If
 

</script>
 

<script type="text/javascript">

function readcookieJS(name){

	var re = new RegExp("(?:^|;) ?" + name + "=([^;]*)(?:;|$)", "i");

	var match = document.cookie.match(re);

	return match == null ? "" : match[1];

	/*If matches.Count > 0 Then

		ReadCookie = matches(0).SubMatches(0)

	Else

		ReadCookie = Null

	End If*/

}

function writecookieJS(name, val){

	document.cookie = name + "=" + val;

}
 

writecookieJS("attack1","attack1")

writecookieJS("tack1","tack1")

writecookieJS("stack1","stack1")
 

alert(document.cookie);
 

alert(readcookieJS("attack1"));

alert(readcookieJS("tack1"));

alert(readcookieJS("stack1"));

if(readcookieJS("ack1") == "")

	alert("No cookie data found for ack1");

</script>

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Welcome back!  My apologies for taking so long to write part two of this series; it's been a long time coming!  As I promised in Part 1, this article will focus on how to locate those elusive AD properties that you are searching for.  Why is this us…
This is pretty cool.  The purpose of this VB Script is to help you document where JAR (Java ARchive) files and specifically java class files are located so that you can address issues seen with a client or that you can speak intelligently with a dev…
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…
As a trusted technology advisor to your customers you are likely getting the daily question of, ‘should I put this in the cloud?’ As customer demands for cloud services increases, companies will see a shift from traditional buying patterns to new…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now