' VBScript source code

Function fnWriteCookiesPosition(cName, cxPos, cyPos, cMScale)
	Dim Cookies
	Cookies = cName & "=" & cxPos & "%2C" & cyPos & "%2C" & cMScale & ";"
	'만료일은 VB에 변환 함수가 없고 속도를 위해 고정하였음
	Cookies = Cookies & " path=; expires=Thu, 16 Aug 2100 06:00:00 UTC;"
	fnWriteCookiesPosition = Cookies
End Function

Function fnWriteCookiesCurrentMenu(cName, cMenu)
	Dim Cookies
	Cookies = cName & "=" & cMenu & ";"
	Cookies = Cookies & " path=; expires=Thu, 16 Aug 2100 06:00:00 UTC;"
	fnWriteCookiesCurrentMenu = Cookies
End Function

' 현재 세션동안에만 유효한 cookies 세팅
Function fnWriteCookiesCurrentNowMenu(cName, cMenu)
	Dim Cookies
	Cookies = cName & "=" & cMenu & ";"
	Cookies = Cookies & " path=;"
	fnWriteCookiesCurrentNowMenu = Cookies
End Function

Function sbReadCookies(cName)
'	On Error Resume Next	' wharang

	Dim nameOfCookie, x, y, endOfCookie, lengthOfname
	sbReadCookies = ""
	nameOfCookie = cName & "="
	lengthOfname = len(nameOfCookie)
	x = 1
	While  x <= len(document.cookie)
		If mid(document.cookie, x, lengthOfname ) = nameOfCookie Then
			y = x + lengthOfname
			endOfCookie = instr(y, document.cookie, ";")
			If endOfCookie <= 0 Then endOfCookie = len(document.cookie)
			sbReadCookies = mid( document.cookie,  y, endOfCookie - y + 1 )
			If right(sbReadCookies, 1) = ";" Then
				sbReadCookies = left(sbReadCookies, Len(sbReadCookies) - 1)
			End If
			Exit Function
		End if
		x = instr(x,document.cookie, " " ) + 1
		If ( x = 1 ) Then Exit Function
	Wend
	sbReadCookies = ""
End Function

Sub sbWriteCookieCurrentMenu(cName)
	Dim Cookies
	Cookies = fnWriteCookiesCurrentNowMenu("MenuFinder", cName)
'	alert cookies
	document.cookie = Cookies
End Sub

Sub sbWriteCookie(CookieContent)
	document.cookie = GookieContent
End Sub