<% 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
나는 그녀를 베란다 앞에 세웠다.
탄력 있는 그녀의 엉덩이에 키스를 하고 싶을 정도로
그녀는 섹시한 포즈로 카메라 앞에
선다.
