Dim pathfilename
pathfilename = trim(Request.ServerVariables("SCRIPT_NAME"))
For i = Len(pathfilename) To 1 Step -1
If Mid(pathfilename, i, 1) = "/" Then
filename = Right(pa
thfilename, Len(pathfilename) - i)
Exit For
End If
Next
注意：获取文件名（不带路径）= filename。
通过这段代码，我们可以轻松获取当前页面的文件名。首先，我们从服务器变量SCRIPT_NAME中获取当前脚本的路径和文件名。然后，我们通过遍历路径字符串，找到最后一个路径分隔符“/”，并从中截取文件名部分。这种方法适用于大多数情况，但在某些特殊路径配置下可能需要调整。
在实际开发中，我们还需要考虑到不同操作系统和Web服务器对路径分隔符的差异。例如，在Windows系统中，路径分隔符为“\”，而在Unix或Linux系统中，路径分隔符为“/”。因此，在编写此类代码时，我们还需要根据实际情况进行适当调整，以确保代码的兼容性和健壮性。
另外，获取文件名的过程中，我们需要注意去除路径信息，仅保留文件名部分。这可以通过截取路径分隔符之后的字符串实现。例如，如果路径为“/path/to/page.asp”，我们可以通过上述代码获取到“page.asp”作为文件名。