<% 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
[ 查看全文 ]