'得到当前页面路径
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)