实现让每句话的头一个字母都大写

80酷酷网    80kuku.com

  大写<%

dim txtFname

txtFName = "steve schofield"

txtFName = UCase(Left(txtFName,1)) & Mid(txtFName,2)

response.write txtFname

%>



mynewvar = myfunc(txtFname)

' 调用函数



Function syntax

function myfunc(a)

myfunc = ucase(left(a,1)) & lcase(mid(a,2))

end function















分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: