第一个字母都大写

<%



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

www.forasp.cn

以上函数实现了第一个字母转成大写的功能