<% Option Explicit Dim sql, Rs Dim FD_BMID, FD_CATE %> ÇÑ·ù¹®È­¸¦ ¼±µµÇÏ´Â ±â¾÷ ÇÑij½ºÆ®
 
HOME
 
CHINESE
JAPANES
ENGLISH
 
   
 
 
 
 
   
 
 
ÄÉÀÌ¿Õ
ȣȣ˜Þ ¼îÇθô
¿ùµåij½ºÆ®
¿ÃÀÎij½ºÆ®
³ëÆ®À¯Àú
Â÷À̳ªµ¥Àϸ®
  ÇÑij½ºÆ® ±¹°¡º° ¿¬¶ôó
¼­¿ï ¸¶Æ÷±¸ ¼­±³µ¿ 361-16 ÇÑij½ºÆ®ºôµù 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
Coprigth 2009 ¨Ï HANCAST. All Rights Reserved
<% '?? ??? ??? ?? 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 %>