char - 脚本结果首字母大写

Question

嗨，我在这里的第一个问题。我使用下面的脚本来获取当前页面名称和文件夹名称，因为我在动态页面标题 url 等中使用结果，但希望将第一个字符设为大写，因为它们是位置名称。例如，有时在谷歌搜索结果中，动态标题会将位置贝德福德作为小写第一个字符，但应始终显示为贝德福德。希望这是有道理的

页面名称代码

function curpagename()
 dim pagename

 pagename = Request.ServerVariables("SCRIPT_NAME") 

  if inStr(pagename, "/") > 0 then 
    pagename = replace((Right(pagename, Len(pagename) - instrRev(pagename, "/")) ), ".asp", "")
    pagename = replace(pagename,"-", " ")
    'pagename = replace(replace(pagename,"-", " "),"_", " ")
  end if 

 curpagename = pagename
end function 
response.write("<br>The current page name is " & curpagename())

文件夹名称代码

<%
function curActualFolderName()
Dim fs,fo,ActualFolderName
 Set fs=Server.CreateObject("Scripting.FileSystemObject")
 Set fo=fs.GetFolder(server.MapPath("."))
 ActualFolderName= fo.name
 'ActualFolderName= Replace(Replace(fo.name,"_"," "),"-"," ")
 set fo=nothing
 set fs=nothing
curActualFolderName = LCase(ActualFolderName)
end function 
response.write("<br>The Actual current folder name is " & curActualFolderName())
%>

标签： charuppercase