한류문화를 선도하는 기업 한캐스트

<% Option Explicit Dim sql, Rs Dim FD_BMID, FD_CATE %> 한류문화를 선도하는 기업 한캐스트

월드캐스트

한캐스트 국가별 연락처

서울 마포구 서교동 361-16 한캐스트빌딩 4F
·tel:+82-2-334-6212~3 ·fax:+82-2-334-6214

C-917#, Uro Park, 603-5# Wangjing, ChaoYang,Bejing,China
·tel:+86-10-8446-7122 ·fax:+86-10-8478-7141

#501, 5-51-5, Higashi-Nippori, Arakawa-Ku,Tokyo,JAPAN
·tel:+81-3-3801-2606 ·fax:+81-3-3801-2607

<% '?? ??? ??? ?? Function cutStr(str, cutLen) Dim strLen, strByte, strCut, strRes, char, i strLen = 0 strByte = 0 strLen = Len(str) for i = 1 to strLen char = "" strCut = Mid(str, i, 1) char = Asc(strCut) char = Left(char, 1) if char = "-" then strByte = strByte + 2 else strByte = strByte + 1 end if if cutLen < strByte then strRes = strRes & ".." exit for else strRes = strRes & strCut end if next cutStr = strRes End Function %>