脚本结果的大写首字母

问题描述

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

页面名称代码

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())
%>

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

char char uppercase