ASP.NET站点中得到当前页面的虚拟路径

'得到当前页面路径

Dim total_name As String
total_name = Request.ServerVariables("script_name")

'裁切虚拟路径字符串->得到当前页面的名称
Dim phisical_pos As Integer
phisical_pos = total_name.IndexOf("/", 1)

'最终得到当前页面虚拟路径
Dim page_name As String
page_name = "~" + total_name.Substring(phisical_pos)