해외 사이트에서 퍼왔습니다.
문자열중 단어가 시작되는 첫문자를 대문자로 변환(Converting) 해줍니다.
<%
Function Str2ProperCase(sValue)
iPos = 1
Do While InStr(iPos, sValue, " ", 1) <> 0
iSpace = InStr(iPos, sValue, " ", 1)
sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _
iSpace - iPos))
iPos = iSpace + 1
Loop
sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
sTemp = sTemp & LCase(Mid(sValue, iPos + 1))
Str2ProperCase = sTemp
End Function
'EXAMPLE:
sValue = Str2ProperCase("THIS IS A TEST")
response.write sValue 'Displays This Is A Test
%>