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 ' ########################..

유용한 함수들 중 하나. 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