把句子的第一个字母转化为大写

<%

dim txtfname

txtfname = "steve schofield"

txtfname = ucase(left(txtfname,1)) & mid(txtfname,2)

response.write txtfname

%>

to call the function:

mynewvar = myfunc(txtfname)

function syntax

function myfunc(a)

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

end function

%>