% dim manskorea_count,base_last
Sub Cookie(base)
If IsNull(base) Then response.redirect "Error.htm"
base_id_len = len(base)
' response.write manskorea_id_len
manskorea_count = 1
For i=0 to base_id_len+1
base_id_len_char = mid(base,i+1,1)
' response.write manskorea_id_len_char&".."
If base_id_len_char="&" Then manskorea_count = manskorea_count + 1
' response.write manskorea_count&"Ä«¿îÆ®
"
Next
i = 0
base = split(base,"&")
Do Until i = manskorea_count
base_id_char = base(i)
If base_id_char<>"" And not(base_id_char) Then
base_asc = Chr(base_id_char)
End If
If i=0 Then
base_last = base_asc
Else
base_last = base_last & base_asc
End If
i=i+1
loop
base = base_last
End Sub
manskoreaPkey = request.Cookies("Cookie_Filed")
' response.write manskoreaPkey&"Àüü
"
manskorea_char = split(manskoreaPkey,"*")
manskorea_id = manskorea_char(0)
' response.write manskorea_id&" Userid
"
manskorea_typ = manskorea_char(1)
' response.write manskorea_name&" typ
"
manskorea_expiremons = manskorea_char(2)
' response.write manskorea_info&" expiremons
"
manskorea_time = manskorea_char(3)
' response.write manskorea_char(3)&" ŸÀÓ
"
manskorea_ext = manskorea_char(4)
' response.write manskorea_char(4)&" È®Àå
"
manskorea_flag = manskorea_char(5)
' response.write manskroea_flag&" ·¹º§
"
userid = session("userid")
typ = session("typ")
expiremons = session("expireMons")
'response.write userid & typ & expiremons & "webper"
If userid="" or IsNull(userid) Then
Cookie(manskorea_id)
id = base_last
base_last = ""
If id="" or IsNull(id) Then 'ÄíÅ°ÀÇ °ª °Ë»ç
' Response.Write id
' response.redirect "Ses_false_01.htm" 'UseridÀÇ °ªÀÌ ¾øÀ¸¸é ¿¡·¯
response.end
Else '°ªÀÌ À¯È¿Çϸé typ,expiremons °ªµµ ³Ö¾îÁÜ
Cookie(manskorea_typ)
typ = base_last
base_last = ""
Cookie(manskorea_expiremons)
expiremons = base_last
base_last = ""
session("usreid") = id
session("typ") = typ
session("expiremons") = expiremons
End If
End If
If session("userid")="" or isnull(session("userid")) Then
response.redirect "Ses_false_01.htm" 'UseridÀÇ °ªÀÌ ¾øÀ¸¸é ¿¡·¯
response.end
End If
%>
Untitled Document