<%
dim txtFname
txtFName = "steve schofield"
txtFName = UCase(Left(txtFName,1)) & Mid(txtFName,2)
response.write txtFname
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/asp/）%
mynewvar = myfunc(txtFname)
' 调用函数
Function syntax
function myfunc(a)
myfunc = ucase(left(a,1)) & lcase(mid(a,2))
end function
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/asp/）
