[asp] 유용함수 정리

[asp] 유용함수 정리

 ''
 'HTML 태그제거
 '
 Function StripTags( htmlDoc )
   Dim rex
   Set rex = New Regexp
   rex.Pattern= "<[^>]+>"
   rex.Global=True
   StripTags =rex.Replace(htmlDoc,"")
 End Function


 '===========================================================================
 '함수명  : DB_IN_STR
 'INPUT   : cur_str ==> 검사할 문자열
 '기능설명 : DB입력할때 ' 만 '' 로 교체
 '===========================================================================
 Function DB_IN_STR(cur_str)
  If Not isNull(cur_str) Then
   cur_str = replace(cur_str,"''","'")
  End If
  DB_IN_STR = cur_str
 End Function


 ' --------------------------------------------------------
 ' Function Name : autoLink
 ' Description : 문자열내 자동링크 걸기
 ' Example  :
 ' output  :
 ' --------------------------------------------------------
 Function autoLink( ByVal str )
  Dim reg
  Set reg = New RegExp
  reg.pattern = "(\w+):\/\/([a-z0-9\_\-\./~@?=%&\-]+)"
  reg.Global = True
  reg.IgnoreCase = True
  str = reg.Replace(str, "$1://$2")
  autoLink = str
 End Function


 ' --------------------------------------------------------
 ' Function Name : isVaildProfileImage
 ' Description : 해당파일이 이미지 파일인지 체크
 ' Example  :
 ' output  :
 ' --------------------------------------------------------
 Function isVaildProfileImage( ByVal imageName )
  Dim imageExt
  imageExt = LCase(Mid(imageName,InStrRev(imageName,".")+1))
  If imageExt <> "jpg" And imageExt <> "gif" And imageExt <> "jpeg" And imageExt <> "bmp"  And imageExt <> "jpe" Then
   isVaildProfileImage = False
  Else
   isVaildProfileImage = True
  End If
 End Function


 ' --------------------------------------------------------
    ' Function Name : SetDomainCookie
    ' Description : Cookie 값 설정
    ' Example  :
    ' output  :
    ' --------------------------------------------------------
 Sub SetDomainCookie(ByVal key, ByVal val, ByVal domain)
  Response.Cookies(key) = val
  IF domain <> "" THEN
   Response.Cookies(key).Domain = domain
   Response.Cookies(key).Path = "/"
  END IF
 End Sub


    ' --------------------------------------------------------
    ' Function Name : MakeTempPwd
    ' Description : 임시비밀번호
    ' Example  :
    ' output  :
    ' --------------------------------------------------------
 Sub MakeTempPwd(ByRef pwd)
  Randomize Timer
  Const StringTable = ("0123456789abcdefghijklmnopqrstuvwxyz")

  For i = 1 To 7
   pwd = pwd & Mid(StringTable, Int(Rnd(1)*Len(StringTable))+1,1)
  Next
 End Sub


 ' --------------------------------------------------------
 ' Function Name : FillChar
 ' Description : 필요한 자리수만큼 특정문자로 채우기
 ' Example  : Response.Write FillChar(원본값,채울값,방향,자릿수)
 ' output  : 
 ' --------------------------------------------------------
 Function FillChar(strValue, FChar, Direction, strLength)
  Dim tmpStr, i
  For i=1 to strLength
   tmpStr = tmpStr & FChar 
  Next
  If Direction="L" or Direction="" Then ' 왼쪽편
   FillChar = Right(tmpStr & strValue, strLength)
  Else
   FillChar = Left(strValue & tmpStr, strLength)
  End If
 End Function 
 

 ' --------------------------------------------------------
 ' Function Name : ReplaceStr
 ' Description : NULL CHECK 문자열 치환함수
 ' Example  : 
 ' output  : 
 ' --------------------------------------------------------
 Function ReplaceStr(strText, oldString, newString)
  If NOT IsNull(strText) Then
   ReplaceStr = Replace(strText, oldString, newString)
  Else
   ReplaceStr = ""
  End If
 End Function 




 '=========================================================================== 
 '함수명  : SetDBSTR 
 'INPUT   : 
 '기능설명 : DB 입력처리
 '===========================================================================
 Function SetApostrophe( ByVal strVal )
  If Not IsNull(strVal) Then
   strVal = Replace(strVal, "'", "''")
   End If
  SetApostrophe = strVal
 End Function
 Function SetTitSTR( ByVal strVal )
  If Not IsNull(strVal) Then
   strVal = Replace(strVal, """", """)
   strVal = Replace(strVal, "'", "'")
  End If
  SetTitSTR = strVal
 End Function


 ' --------------------------------------------------------
 ' Function Name : ConvertSpecialChar
 ' Description : 테그문자를 특수문자로를 변환.
 ' Example  : 
 ' output  :     
 ' --------------------------------------------------------
 Function convertSpecialChar( ByVal StrValue )
  If StrValue <> "" Then
   StrValue = Replace(StrValue, "&", "&")
   StrValue = Replace(StrValue, "<", "<")
   StrValue = Replace(StrValue, ">", ">")
   StrValue = Replace(StrValue, """", """)
   StrValue = Replace(StrValue, "'", "'")
   StrValue = Replace(StrValue, "|", "|")
   StrValue = Replace(StrValue, Chr(13)&Chr(10), "
")
   convertSpecialChar = StrValue
  End If
 End Function


 ' --------------------------------------------------------
 ' Function Name : ReConvertSpecialChar
 ' Description : 특수문자를 테그문자로변환.
 ' Example  : 
 ' output  :     
 ' --------------------------------------------------------
 Function reConvertSpecialChar( ByVal strValue )
  If strValue <> "" Then
   strValue = Replace(strValue, "&", "&")
   strValue = Replace(strValue, "<", "<")
   strValue = Replace(strValue, ">", ">")
   strValue = Replace(strValue, """, """")
   StrValue = Replace(StrValue, "'", "'")
   strValue = Replace(strValue, "|", "|")
   strValue = Replace(strValue, "
", Chr(13)&Chr(10))
   reConvertSpecialChar = strValue
  End If
 End Function


 '***************************************************************'
 ' strCutToByte
 ' 기능설명 : str를 intByte 길이 만큼 자름
 '***************************************************************'
 Function strCutToByteNoMark( ByVal str, ByVal intByte )

  Dim i, tmpByte, tmpStr, strCut
  tmpByte = 0
  tmpStr = null

  If IsNull(str) OR IsEmpty(str) OR str = "" Then 
   strCutToByteNoMark = ""
   Exit Function
  End If
  
  If returnByte(str) > intByte Then
   For i = 1 To returnByte(str)
    strCut = Mid(str, i, 1)
    tmpByte = tmpByte + returnByte(strCut)
    tmpStr = tmpStr & strCut
    If tmpByte >= intByte Then
     strCutToByteNoMark = tmpStr
     Exit For
    End If
   Next
  Else
   strCutToByteNoMark = str
  End If

 End Function