it,슈

' ######################################################################'Function name: encQuote'Parameter:'value= 문자열'Return: String'Description: " To " / ' To '' ######################################################################Function encQuote(ByVal value)If IsNull(value) Then value = ""encQuote = Replace(Replace(value, "'", "'"), """", """)End Function ' ########################..

/* * 함수명: curString * 설명 : 한글/영문 문자열을 일정 길이만큼 자름니다. * Argus : $str : 문자열 * : $len : 자를 길이 * : $addSTr : 자른 문자열 이후에 붙여질 문자 **/ function curString($str, $len, $addStr="...") { if(strlen($str)>$len) { for($i=0; $i127) $i++; $str=substr($str,0,$i); $str = $str.$addStr; } return $str; }

유용한 함수들 중 하나. function AlertHistoryBack(message) AlertHistoryBack="" End function function GotoHistoryBack() GotoHistoryBack="" End function function GotoUrl(url) GotoUrl="" End function function GototUrl_Reload(url) GototUrl_Reload="" End function function AlertClose(message) AlertClose="" End function function PopClose() PopClose="" End function function PopClose_Reload() PopClose_Reload="" En..

Function Del_Dash(str) Dim tmpstr For j = 0 To Len(str) If Mid(str,(j+1),1) "-" Then tmpstr = tmpstr & Mid(str,(j+1),1) End If Next Del_Dash = tmpstr End Function