/**
*
* Camel case convert to Snake case
*
* parameter: s(convert string), u(optional: uppercase)
*
*/
function camel2Snake( s, u ) {
    let r = '';

    if(s!==undefined && s!==null) {
        let sp = s.split(/(?=[A-Z])/);
        if(u!==undefined && u!==null && u) {
            r = sp.join('_').toUpperCase();
        } else {
            r = sp.join('_').toLowerCase();
        }
    }

    return r;
}


camel2Snake('asdjaskSsdjsSsada');
>> "asdjask_ssdjs_ssada"

camel2Snake('asdjaskSsdjsSsada', true );
>> "ASDJASK_SSDJS_SSADA"

<%@Language="VBScript" CODEPAGE="65001" %>
<% Option Explicit %>
<%
Response.CharSet="utf-8"
Session.codepage="65001"
Response.codepage="65001"
Response.ContentType="text/html;charset=utf-8"
Response.expires = 0
Server.ScriptTimeout = 180
%>

<%
'===============================
'   use relay SMTP
'===============================
function SendMail( cSubject, cMailTo, cBody )

	Const MAIL_FROM        = "메일러(발송전용)<user@mailserver.com>" 
	Const SMTP_SERVER      = "mail.mailserver.com"
	Const SMTP_SERVER_PORT = 25
	Const SEND_USER_NAME   = "user@mailserver.com" 
	Const SEND_PASSWORD    = "password" 

	Const cdoSendUsingMethod       = "http://schemas.microsoft.com/cdo/configuration/sendusing" 
	Const cdoSendUsingPort         = 2 '== 1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송
	Const cdoSMTPServer            = "http://schemas.microsoft.com/cdo/configuration/smtpserver" 
	Const cdoSMTPServerPort        = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" 
	Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 
	Const cdoSMTPAccountName       = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname" 
	Const cdoSMTPAuthenticate      = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" 
	Const cdoBasic                 = 1 
	Const cdoSendUserName          = "http://schemas.microsoft.com/cdo/configuration/sendusername" 
	Const cdoSendPassword          = "http://schemas.microsoft.com/cdo/configuration/sendpassword" 

	on error resume next
	
	dim oConfig  ' As CDO.Configuration 
	dim oMessage ' As CDO.Message 
	dim oFields  ' As ADODB.oFields 
	
	'== Get a handle on the config object and it's oFields 
	set oConfig = Server.CreateObject("CDO.Configuration") 
	set oFields = oConfig.Fields 
	
	'== set config oFields we care about 
	with oFields 
		.Item(cdoSendUsingMethod)  = cdoSendUsingPort 
		.Item(cdoSMTPServer)       = SMTP_SERVER	
		.Item(cdoSMTPServerPort)   = SMTP_SERVER_PORT
		.Item(cdoSMTPAuthenticate) = cdoBasic 
		.Item(cdoSendUserName)     = SEND_USER_NAME
		.Item(cdoSendPassword)     = SEND_PASSWORD
		.Update 
	end with 
		
	set oMessage = Server.CreateObject("CDO.Message") 
	set oMessage.Configuration = oConfig 
	
	with oMessage 
 		.To = cMailTo
		.From = MAIL_FROM
		.Subject = cSubject
		.HTMLBody = cBody 
		.Send 
	end With 
	
	set oMessage = nothing 
	set oFields = nothing 
	set oConfig = nothing 
	
	SendMail = null
end function

'=============================
'  use local SMTP service
'=============================
function SendMailLocal( cSubject, cMailFrom, cMailTo, cBody )
	dim oMessage, oConfig, oFields
	
	set oConfig = Server.CreateObject("CDO.configuration")
	set oFields = oConfig.Fields
	
	oFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
	oFields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	oFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	oFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"
	oFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
	oFields.update
	
	set oMessage = Server.CreateObject("CDO.Message")
	set oMessage.Configuration = oConfig
	
	oMessage.from = cMailFrom
	oMessage.to = cMailTo
	oMessage.Subject = cSubject
	oMessage.HtmlBody = cBody
	oMessage.Send

	set oMessage = nothing 
	set oFields = nothing 
	set oConfig = nothing 
		
	SendMailLocal = null
end function
%>

<%

function FileDownload( cPathFile, cSaveFileName )
	Response.ContentType = "application/unknown"
	Response.AddHeader "Content-Disposition","attachment; filename=" & cSaveFileName&" "
	Response.BinaryWrite GetFileStream( cPathFile )
	FileDownload = null
end function

function GetFileStream( cPathFile )
	dim oStream, sFile

	set oStream = Server.CreateObject("ADODB.Stream")
	oStream.Open
	oStream.Type = 1
	oStream.LoadFromFile cPathFile
	sFile = oStream.Read
	set oStream = nothing

	GetFileStream = sFile
end function

function RefineFileName( c )
	c = Replace( c, "/", "" )
	c = Replace( c, "?", "" )
	c = Replace( c, "*", "" )
	c = Replace( c, ">", "]" )
	c = Replace( c, "<", "[" )
	c = Replace( c, "|", "-" )
	c = Replace( c, ":", "-" )
	
	RefineFileName = c
end function
%>

<%
response.write KeyGen32()&".txt"

function KeyGen32()
	dim iRnd, Response
	dim cRnd, i
	Randomize

	cRnd = ""
	for i = 1 to 8
		iRnd = Int(( 999999 - 1 + 1) * Rnd + 1)  '=== 6 digits
		cRnd = cRnd & Dec6to36( FillZero(iRnd,6) )
	next
	KeyGen32 = cRnd
end function


function Dec6to36(num)
	dim d1,d2,d3,d4,r1,r2

	d1 = Int( num / 46656 )
		r1 = ( num mod 46656 )
	d2 = Int( r1 / 1296 )
		r2 = ( r1 mod 1296 )
	d3 = Int( r2 / 36 )
	d4 = ( r2 mod 36 )

	Dec6to36 = Convert10to36(d1) & Convert10to36(d2) & Convert10to36(d3) & Convert10to36(d4)
end function

'== 10진수를 36진수로 변환
function Convert10to36( i )
	if ( i < 10 ) then
		Convert10to36 = i
	else
		Convert10to36 = chr(55+i)
	end if
end function

function FillZero( cString, iLength )
	FillZero = FillString( cString, iLength, "0" )
end function

function FillString( cString, iLength, cFillString )
	if( iLength >Len(cString) ) then
		FillString = ( String( iLength -Len( cString ), cFillString ) & cString )
	else
		FillString = cString
	end if
end function
%>

syntax: sp_GetTableDescription [테이블명]

* 테이블명 : 설명을 보고자 하는 테이블명, 생략하는 경우 db내의 모든 테이블의 내용이 테이블, 컬럼순서 순으로 나오게 된다
* 테이블명이 생략되면 현재 사용 DB의 전체 테이블 컬럼이 나온다.(문서 작성시 유용)

/*
Prog. by:  IKK, Dec-2008
http://www.wdev.co.kr

 update: Jun-2009
   = debug null description
   = except 'sysname' type

 update: Apr-2012
   = for SQL2008 (change system tables)
 
*/
 
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_GetTableDescription]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_GetTableDescription]
GO
 
SET QUOTED_IDENTIFIER ON 
GO

SET ANSI_NULLS ON 
GO

CREATE PROCEDURE sp_GetTableDescription
 @TableName varchar(255) = null
AS
set nocount on
if @TableName is NULL
begin
 select c.id, c.colid as No,
  o.name as TableName,
  c.name as ColumeName,
  t.name as type,
  c.length,
  c.colstat as Identy,
  c.isnullable,
  description = Convert(sql_variant,'')
  into #GTD
  from sys.syscolumns c, sys.sysobjects o, sys.systypes t
  where c.id=o.id and c.xtype=t.xtype and o.Type='U'  and not t.name='sysname'
 
 update #GTD set description=p.value  from #GTD a, sys.extended_properties p where a.id=p.major_id and a.no=p.minor_id and p.name = 'MS_Description'  

 select TableName, no, ColumeName, type, length, Identy, 
 [null] = case isnullable when 1 then 'not NULL' else 'NULL' end,  description
 from #GTD order by id, no

end

else

begin
 select c.id, c.colid as No,
  o.name as TableName,
  c.name as ColumeName,
  t.name as type,
  c.length,
  c.colstat as Identy,
  c.isnullable,
  description = Convert(sql_variant,'')
  into #GTD2
  from sys.syscolumns c, sys.sysobjects o, sys.systypes t
  where c.id=o.id and c.xtype=t.xtype and not t.name='sysname' and o.Name = @TableName

update #GTD2 set description=p.value  from #GTD2 a, sys.extended_properties p where a.id=p.major_id and a.no=p.minor_id and p.name = 'MS_Description'  

select no, ColumeName, type, length, Identy,
 [null] = case isnullable when 0 then 'not NULL' else 'NULL' end,  description
  from #GTD2 order by no
end
 
return(0)
 
SET QUOTED_IDENTIFIER OFF 
go
 
SET ANSI_NULLS ON 
go

'============================================
'  DateTime functions
'============================================
function GetFullDateTime( dNow )
	GetFullDateTime = Year(dNow)&"."&FillZero(Month(dNow),2)&"."&FillZero(Day(dNow),2) &" "& FillZero(Hour(dNow),2)&":"&FillZero(Minute(dNow),2)&":"&FillZero(Second(dNow),2)
	end Function
function GetFullDateTimeT( dNow )
	GetFullDateTimeT = Year(dNow)&"-"&FillZero(Month(dNow),2)&"-"&FillZero(Day(dNow),2) &"T"& FillZero(Hour(dNow),2)&":"&FillZero(Minute(dNow),2)&":"&FillZero(Second(dNow),2)
	end Function
function GetFullDateTimeH( dNow )
	GetFullDateTimeH = Year(dNow)&"-"&FillZero(Month(dNow),2)&"-"&FillZero(Day(dNow),2) &" "& FillZero(Hour(dNow),2)&":"&FillZero(Minute(dNow),2)&":"&FillZero(Second(dNow),2)
	end Function
function GetFullDateTimeKor( dNow )
	GetFullDateTimeKor = Year(dNow)&"년 "&Month(dNow)&"월 "&Day(dNow)&"일 ("& WeekDayName(Weekday(dNow), True)&") "& FillZero(Hour(dNow),2)&":"&FillZero(Minute(dNow),2)&":"&FillZero(Second(dNow),2)
	end Function
	
function GetFullDate( dNow )
	GetFullDate = Year(dNow)&"."&FillZero(Month(dNow),2)&"."&FillZero(Day(dNow),2)
	end Function
function GetFullDateH( dNow )
	GetFullDateH = Year(dNow)&"-"&FillZero(Month(dNow),2)&"-"&FillZero(Day(dNow),2)
	end Function
function GetFullDateKor( dNow )
	GetFullDateKor = Year(dNow)&"년 "&Month(dNow)&"월 "&Day(dNow)&"일"
	end Function

'===== only numeric
function GetFullDateTimeON( dNow )
	GetFullDateTimeON = Year(dNow) & FillZero(Month(dNow),2) & FillZero(Day(dNow),2) & FillZero(Hour(dNow),2) & FillZero(Minute(dNow),2) & FillZero(Second(dNow),2)
	end Function
function GetFullDateTimeONHM( dNow )
	GetFullDateTimeONHM = Year(dNow) & FillZero(Month(dNow),2) & FillZero(Day(dNow),2) & FillZero(Hour(dNow),2) & FillZero(Minute(dNow),2)
	end Function
function GetTime( dNow )
	GetTime = FillZero(Hour(dNow),2) &":"& FillZero(Minute(dNow),2) &":"& FillZero(Second(dNow),2)
	end function
function GetTimeON( dNow )
	GetTimeON = FillZero(Hour(dNow),2) & FillZero(Minute(dNow),2) & FillZero(Second(dNow),2)
	end function
	
function GetFullDateON( dNow )
	GetFullDateON = Year(dNow) & FillZero(Month(dNow),2) & FillZero(Day(dNow),2)
	end Function
function GetFullDateON6( dNow )
	GetFullDateON6 = Right(Year(dNow),2) & FillZero(Month(dNow),2) & FillZero(Day(dNow),2)
	end Function

function ONDateTime2DateTime( cDateTime14 )
	ONDateTime2DateTime = ONDate2DateTime(Mid(cDateTime14,1,8))&" "&ONTime2DateTime(Mid(cDateTime14,9,6))
	end function

function ONDate2DateTime( cDate8 )
	dim cReturn
	if (cDate8="") or ISNull(cDate8) then
		cReturn = ""
	else
		cReturn = Mid(cDate8,1,4) &"-"& Mid(cDate8,5,2) &"-"& Mid(cDate8,7,2)
	end if
	ONDate2DateTime = cReturn
end function

function ONTime2DateTime( cTime6 )
	dim cReturn
	if (cTime6="") or ISNull(cTime6) then
		cReturn = ""
	else
		cReturn = Mid(cTime6,1,2) &":"& Mid(cTime6,3,2) &":"& Mid(cTime6,5,2)
	end if
	ONTime2DateTime = cReturn
end function

function GetYearMonth( dNow )
	GetYearMonth = FillZero(Year(dNow),4)&"/"& FillZero(Month(dNow),2)
end Function

function GetMonthDay( dNow )
	GetMonthDay = FillZero(Month(dNow),2)&"/"& FillZero(Day(dNow),2)
end Function

function GetHourMinute( dNow )
	if IsNull(dNow) then
		GetHourMinute = ""
	else
		GetHourMinute = FillZero(Hour(dNow),2)&":"& FillZero(Minute(dNow),2)
	end if
end Function

function GetHourMinuteSecond( dNow )
	if IsNull(dNow) then
		GetHourMinuteSecond = ""
	else
		GetHourMinuteSecond = FillZero(Hour(dNow),2)&":"& FillZero(Minute(dNow),2)&":"& FillZero(Second(dNow),2)
	end if
end function


function CDateWithCheck( cDate8 )
	dim cDate10
	cDate10 = ONDate2DateTime(cDate8)
	if IsDate( cDate10 ) then
		CDateWithCheck = CDate( cDate10 )
	else
		CDateWithCheck = null
	end if
end function

function CDateWithCheck10( cDate10 )
	if IsDate( cDate10 ) then
		CDateWithCheck10 = CDate( cDate10 )
	else
		CDateWithCheck10 = null
	end if
end function

function CheckDateTime( cDate8 )
	CheckDateTime = IsDate( ONDate2DateTime(cDate8) )
end function

function CheckDateTimeNull( cDate8 )
	CheckDateTimeNull = (IsDate( ONDate2DateTime(cDate8) ) or IsNull(cDate8))
end function

function GetMonthLastDate( iYear, iMonth )
	dim cNextMonthFistDate
	
	if (iMonth=12) then
		cNextMonthFistDate=FillZero((iYear+1),4)&"0101"
	else
		cNextMonthFistDate=FillZero(iYear,4)&FillZero((iMonth+1),2)&"01"
	end if
	GetMonthLastDate = GetFullDateON(CDateWithCheck(cNextMonthFistDate)-1)&" 23:59:59"
end function

function GetMonthLastDay( iYear, iMonth )
	dim cNextMonthFistDate
	
	if (iMonth=12) then
		cNextMonthFistDate=FillZero((iYear+1),4)&"-01-01"
	else
		cNextMonthFistDate=FillZero(iYear,4)&"-"&FillZero((iMonth+1),2)&"-01"
	end if
	
	GetMonthLastDay = Day(CDate(cNextMonthFistDate)-1)
end function

function CmpStartEndMonth( iStartYear, iStartMonth, iEndYear, iEndMonth )
	dim iCmpStartDate, iCmpEndDate
	iCmpStartDate = CintZero(FillZero(iStartYear,4)&FillZero(iStartMonth,2))
	iCmpEndDate   = CIntZero(FillZero(iEndYear,4)&FillZero(iEndMonth,2))
	
	CmpStartEndMonth = CBool(iCmpStartDate > iCmpEndDate)
end function

'== Date add functions
function YearMonthAddMonthGetYear( iYear, iMonth, iAddMonth )
	YearMonthAddMonthGetYear = Year(YearMonthAddMonth( iYear, iMonth, iAddMonth ))
	end function
function YearMonthAddMonthGetMonth( iYear, iMonth, iAddMonth )
	YearMonthAddMonthGetMonth = Month(YearMonthAddMonth( iYear, iMonth, iAddMonth ))
	end function
function YearMonthAddMonth( iYear, iMonth, iAddMonth )
	YearMonthAddMonth = DateAdd( "m", iAddMonth, CDate(FillZero(iYear,4)&"-"&FillZero(iMonth,2)&"-01") )
	end function
function AddMonthGetMonth( dDate, iMonth )
	AddMonthGetMonth = Month(AddMonth( dDate, iMonth ))
	end function
function AddMonthGetYear( dDate, iMonth )
	AddMonthGetYear = Year(AddMonth( dDate, iMonth ))
	end function
function AddMonth( dDate, iMonth )
	AddMonth = DateAdd( "m", iMonth, dDate )
	end function
	
'== UNIX Time
function DateTime2UnixTime( dDateTime )
	DateTime2UnixTime = DateDiff( "s", "01/01/1970 00:00:00", dDateTime )
end function

function UnixTime2DateTime( iUnixTime )
	UnixTime2DateTime = DateAdd( "s", iUnixTime, "01/01/1970 00:00:00" )
end function

function MonthNameEng( iMonth )
	dim cReturn
	
	select case iMonth
	case  1 cReturn = "January"
	case  2 cReturn = "February"
	case  3 cReturn = "March"
	case  4 cReturn = "April"
	case  5 cReturn = "May"
	case  6 cReturn = "June"
	case  7 cReturn = "July"
	case  8 cReturn = "August"
	case  9 cReturn = "September"
	case 10 cReturn = "October"
	case 11 cReturn = "November"
	case 12 cReturn = "December"
	end select
	
	MonthNameEng = cReturn
end function

문자 채우기

<%
'===============================================
' >> Fill Stuff functions
'
'  FillZero( cString, iLength )
'  FillSpace( cString, iLength )
'  FillString( cString, iLength, cFillString )
'
'===============================================

function FillZero( cString, iLength )
	FillZero = FillString( cString, iLength, "0" )
end function

function FillSpace( cString, iLength )
	FillSpace = FillString( cString, iLength, " " )
end function

function FillSpaceRight( cString, iLength )
	FillSpaceRight = FillStringRight( cString, iLength, " " )
end function

function FillString( cString, iLength, cFillString )
	if( iLength >Len(cString) ) then
		FillString = ( String( iLength -Len( cString ), cFillString ) & cString )
	else
		FillString = cString
	end if
end function

function FillStringRight( cString, iLength, cFillString )
	if( iLength >Len(cString) ) then
		FillStringRight = ( cString & String( iLength -Len( cString ), cFillString ) )
	else
		FillStringRight = cString
	end if
end function

function HLeftB( cString, iLen ) 
	dim i, c, a, b
	dim cReturn
	
	b = 0
	cReturn = ""
	
	if not IsNull(cString) then
		for i = 1 to Len(cString)
			c = mid(cString,i,1)
			a = asc(c)
			cReturn = cReturn&c
			
			if (a>255 or a<0) then
				b = b+2
			else
				b = b+1
			end if
			
			if (iLen=<b) then
				exit for
			end if
		next
	end if
		
	HLeftB = cReturn
end function

function HLeftBMore( cString, iLen ) 
	dim c
	
	c = HLeftB( cString, iLen ) 
	if (cString>c) then
		c = c &"…"
	end if
	
	HLeftBMore = c
end function
%>