<%
렘 ########################################## ## ##################
Rem ## 실행 시간 숨기기
하위 s__HideTimeOver()
희미한 시간 초과
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, true)
response.Write(vbCrLf & "<!--실행 시간: " & tTimeOver & " 밀리초-->")
서브 끝
렘 ########################################## ## ##################
렘 ########################################## ## ##################
Rem ## 데이터베이스 연결 열기
함수 f__OpenConn()
희미한 연결
connstr = "공급자=Microsoft.Jet.OLEDB.4.0;데이터 소스="
connstr = connstr & Server.MapPath(GBL__STR_DB_PATH)
conn = Server.CreateObject("Adodb.Connection") 설정
conn.open 연결
기능 종료
렘 ########################################## ## ##################
렘 ######################### ### ####################################
Rem ## 데이터베이스 연결을 닫습니다.
함수 f__CloseConn()
IsObject(conn)이면
conn = 아무것도 설정하지 않음
종료 조건
기능 종료
렘 ########################################## ## ##################
렘 ########################################## ## ##################
Rem ## HTML 변환
함수 toHtml(str)
희미한 결과
결과 = str & ""
결과 = 교체(결과, ">", ">")
결과 = 교체(결과, "<", "<")
결과 = 교체(결과, " ", " ")
결과 = 교체(결과, """", """)
결과 = 교체(결과, CHR(13), "")
결과 = 교체(결과, CHR(10), "<br>")
결과 = 교체(결과, CHR(39), "'")
toHtml = 결과
기능 종료
렘 ########################################## ## ##################
렘 ########################################## ## ##################
Rem ## 긴 정수 변환
함수 toLng(strNum, 기본값)
희미한 결과
strNum <> "" 그리고 IsNumeric(strNum)이면
결과 = CLng(strNum)
또 다른
toNum = 기본값
종료 조건
toLng = 결과
기능 종료
렘 ########################################## ## ##################
http://bizhi.downcodes.com/
렘 ########################################## ## ##################
Rem ## 통화 종류 변환
함수 toCur(strNum, 기본값)
희미한 결과
strNum <> "" 그리고 IsNumeric(strNum)이면
결과 = CCur(strNum)
또 다른
toNum = 기본값
종료 조건
toCur = 결과
기능 종료
렘 ########################################## ## ##################
렘 ########################################## ## ##################
Rem ## SQL 대체 인코딩
함수 toSqlr(str)
str = str & ""
str = 대체(str, "'", "")
str = 대체(str, """", "")
toSqlr = str
기능 종료
렘 ########################################## ## ##################
렘 ######################### ### ####################################
Rem ## SQL 인코딩
함수 toSql(str)
str = str & ""
str = 대체(str, "'", "''")
toSql = str
기능 종료
렘 ########################################## ## ##################
렘 ######################### ### ####################################
Rem ## 숫자를 고정된 자릿수로 변환하고 누락된 자릿수는 0으로 채웁니다.
함수 변환번호(strNum)
strNum = strNum & ""
Dim iLen, iMaxL, iLdiv, 결과
iLen = Len(strNum)
아이맥스L=8
iLdiv = iMaxL - iLen
결과 = string(iLdiv, "0") & strNum
ConvertNumber = 결과
기능 종료
렘 ########################################## ## ##################
%>