<% 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
 
 

 

 
 

@다다엑스포

다다엑스포는 인터넷상에서의 가상현실을 통해 3차원의 전시회장은 물론 인터넷 쇼핑몰 등을 구축할 수 있게 도와주는 업체이다. 실제 전시관을 옮겨놓은 듯한 가상 전시관은 저비용 고효율이라는 인터넷 전용 전시관을 마련함으로써, 전시문화의 새로운 비전을 제시하고 있다. 또한 일반인들이 쉽게 접근할 수 있도록 도와 줌으로써, 전시관련 산업의 부흥과 더불어 국가 산업 경제에 기여하는 지식기반사업으로 성장을 꾀하고 있다. 시간과 국경을 초월한 새로운 전시산업의 메카를 꿈꾸는 다다엑스포는 세계 전시관을 하나로 묶는 이른바 Global Cyber Expo Network를 꿈꾸고 있는 유망 업체이다. http://www.dadaexpo.com

dfgsdfg
@아이뮤직랜드
서울음반과 뮤직랜드가 합작하여 설립한 imusickland.com사는 국내 최대의 음악 관련 사이트. 종전의 음반 쇼핑몰 개념을 뛰어넘어 음악 전문가들이 운영하는 커뮤니티 형식의 업체이다. 음반 구입은 물론 연극, 영화, 공연 등과 아울러 전 세계 예술정보를 한곳에서 만나볼 수 있게끔 구성하고 있다. 특히 i세대부터 중장년층까지 폭넓은 대상으로 하고 있어 기존의 인터넷 음악 사이트와의 차별을 통해 다양한 공유를 할 수 있는 사이트이며 신인가수 발굴, 칼럼니스트 발굴, 동호회 운영, 매니아 클럽 등 다채로운 이벤트와 콘텐츠를 확보하고 있어 앞으로 국내 인터넷 음악 사이트의 선두주자로의 발돋움이 기대되는 업체이다. http://www.imusickland.com