ASP 문자열함수 + ASP 디버깅함수

출 처: taeyo.pe.kr

'=================================================================== 
'== 설명 : 문장을 해당 자릿수만큼 <br>이 들어간 문장으로 변환 
'== 이름 : MakeBr(Str,Pos) 
'== 변수 : Str(String),Pos(Int) 
'== 반환 : String 
'=================================================================== 
Function MakeBr(Str,Pos) 
 
 Dim StrLen, TmpStr, i, Midcnt, Start, Surplus 
 
 StrLen = len(Str) 
 
 If (StrLen Mod Pos) = 0 then 
 MidCnt = Fix(StrLen/Pos) 
 Else 
 MidCnt = Fix(StrLen/Pos) + 1 
 End If 
 
 for i = 1 to MidCnt 
 if i = 1 then 
 TmpStr = TmpStr&Mid(Str,i,pos)&"<br>" 
 Else 
 TmpStr = TmpStr&Mid(Str,((i-1)*Pos)+1,pos)&"<br>" 
 End If 
 next 
 
 MakeBr = TmpStr 
End Function 
 
 
' ################################################################################## 
' 검색에서 selected 
' ################################################################################## 
Function getSelected(search,t) 
 if search = t then 
 getSelected ="selected" 
 end if 
End function 
 
' ################################################################################## 
' checked 
' ################################################################################## 
Function getChecked(tag,y) 
 If tag = y then 
 getChecked = "checked" 
 End if 
End function 
 
' ################################################################################## 
' 자동링크 
' ################################################################################## 
 
 FUNCTION autolink(CONTENT) 
 
 DIm Re 
 Set re = New RegExp 
 
 ' First Pass for http 
 re.Pattern = "(\w+):\/\/([^/:]+)(:\d*\b)?([^# \n<]*).*\n" 
 re.Pattern = "http://([0-9a-zA-Z./@:~?&=_-]+)" 
 re.Global = True 
 re.IgnoreCase = True 
 
 ' ASP seems to be not supporting .MultiLine method. 
 're.MultiLine = True 
 
 CONTENT = re.Replace(CONTENT,"<a target=_blank href='http://$1'>http://$1</a>") 
 
 ' Second Pass for mail 
 re.Pattern = "([_0-9a-zA-Z-]+(\.[_0-9a-zA-Z-]+)*)@([0-9a-zA-Z-]+(\.[0-9a-zA-Z-]+)*)" 
 autolink = re.Replace(CONTENT,"<a href='mailto:$1@$3'>$1@$3</a>") 
 
 END FUNCTION 
 
' ################################################################################## 
' 문자열 체크 (리턴값:boolean) 
' ################################################################################## 
Function chkStrFlag(Val, chkStr) 
 Dim flag, MyPos 
 
 If Val = "" then 
 flag = false 
 Else 
 Mypos =Instr(Val,chkStr) 
 If MyPos = 0 then 
 flag=false 
 Else 
 flag=true 
 End If 
 End If 
 
 chkStrFlag = flag 
End Function 
 
 
'################################################################################## 
' 문자열 체크 (공백이나 NULL값 체크) 
' Val : 체크 값, r_Val (대체값) 
'################################################################################## 
Function replaceVal(val, r_Val) 
 Dim flag, MyPos 
 
 If (val = "") or IsNull(Val) then 
 replaceVal = r_Val 
 Else 
 replaceVal = val 
 End If 
End Function 
 
 
 
'################################################################################## 
' 숫자값 자릿수만큼 문자로 변경 (공백이나 NULL값 체크) 
' Val : 체크 값, chkLen 자릿수 , r_Val(대체값) 
'################################################################################## 
Function chkLenReplaceVal(val,chkLen, r_Val) 
 Dim chkCnt, MyPos 
 chkCnt = len(Cstr(val)) 
 
 If chkCnt < chkLen then 
 chkLenReplaceVal = val 
 
 for i = 1 to (chkLen-chkCnt) 
 chkLenReplaceVal = r_Val&chkLenReplaceVal 
 next 
 Else 
 chkLenReplaceVal = val 
 End If 
 
End Function 
 
 
 
'################################################################################## 
' 널값,""값 확인 
' Val : 체크 값 
' retun 값 : true, false 
'################################################################################## 
Function chkBlank(val) 
 If (val = "") or IsNull(Val) then 
 chkBlank = true 
 Else 
 chkBlank = false 
 End If 
End Function 
 
 
'################################################################################## 
' 비교값 리턴 
' Val : 체크 값 
' retun 값 : true, false 또는 대치 문장 
'################################################################################## 
Function replaceStr(str, chkStr, replaceStr1, replaceStr2) 
 If str = chkStr then 
 replaceStr = replaceStr1 
 Else 
 replaceStr = replaceStr2 
 End If 
End Function 
 
 
'################################################################################## 
' NULL값 만들기 
' Val : 값 
' retun 값 : NULL, 문장 
'################################################################################## 
 
Function makeNull(str) 
 If str="" or IsNull(str) then 
 makeNull = "NULL" 
 Else 
 makeNull = str 
 End IF 
End Function 
 
'################################################################################## 
' HTML 태그 지우기 (정규식표현) 
' 인자 : strHTML:문장, patrn : 패턴 문장 
' retun 값 : String 
'################################################################################## 
 
Function stripHTML(strHTML, patrn) 
 Dim objRegExp, strOutput 
 Set objRegExp = New Regexp 
 
 objRegExp.IgnoreCase = True 
 objRegExp.Global = True 
 objRegExp.Pattern = patrn 
 
 'objRegExp.Pattern = "<.+?>" '''' 태그완전히없앰 
 
 
 strOutput = objRegExp.Replace(strHTML, "") 
 
 stripHTML = strOutput 
 
 Set objRegExp = Nothing 
End Function 
 
'################################################################################## 
' 문자 잘라내기 
'################################################################################## 
Function CutString(Str,Length,Patten) 
 If Len(Str) > Length Then 
 CutString = Left(Str,Length-3) & patten 
 Else 
 CutString = Str 
 End If 
End Function 
 
 
 
별건 아니구요..그냥 가끔 디버깅시에 쓰는 함수에요 
#################################################### 
Sub DbPrintErrMsg(obj) 
 
Dim errLoop 
 For Each errLoop In obj.Errors 
 response.write "#############<br>" 
 response.write "Error Number: " & errLoop.Number & "<br>" 
 response.write "Description: " & errLoop.Description & "<br>" 
 response.write "Source: " & errLoop.Source & "<br>" 
 response.write "SQL State: " & errLoop.SQLState & "<br>" 
 response.write "Native Error: " & errLoop.NativeError & "<br>" 
 response.write "#############<br>" 
 Next 
End Sub 
 
########폼값 확인할때################### 
Sub Prt_RequestForm(obj) 
 
Dim item 
 For Each item In obj 
 response.write "#############<br>" 
 response.write item&" : " &obj(item)& "<br>" 
 response.write "#############<br>" 
 Next 
End Sub 
ex) Prt_RequestForm(Request.Form), Prt_RequestForm(Request.QueryString), 
Prt_RequestForm(UploadForm)