<%
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
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




