<%

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