VBScript 重定向到网络文件夹

Question

我最近接管了一个网页我有一些编程知识，通常可以蒙混过关，但我今天似乎无法掌握。

网站上有一段代码，当用户打开其中一个 Intranet 页面时，它会打开网络驱动器上的一个文件夹。该文件夹是所有用户都有一个基于其网络登录的文件夹的位置。我希望它根据用户名打开网络驱动器上的用户个人文件夹，这样用户就不必搜索他们的文件夹。

我当前使用的代码如下，它会打开列出所有用户文件夹的网络驱动器

<SCRIPT language=VBScript> 
sub SF1 
    window.location = "\path to user folders\"
end sub 
id = SetTimeOut("SF1",0,"VBScript")
</SCRIPT>

以下代码是我想要的，但由于某种原因无法正常工作

<SCRIPT language=VBScript> 
sub SF1 
    window.location = "\path to user folders\" & username
end sub 
id = SetTimeOut("SF1",0,"VBScript")
</SCRIPT>

我正在使用以下方法获取用户登录名，它总是 6 个字符长

Right(Request.ServerVariables("LOGON_USER"),6)

但是当我尝试像这样使用它时什么也没有发生

<SCRIPT language=VBScript> 
sub SF1 
    window.location = "\path to user folders\" & Right(Request.ServerVariables("LOGON_USER"),6)
end sub 
id = SetTimeOut("SF1",0,"VBScript")
</SCRIPT>

我尝试了几种排列，认为引号可能没有正确传递是一个问题，但我无法弄清楚任何帮助将不胜感激。

此外，如果我输入用户文件夹的完整路径，它就可以正常工作

<SCRIPT language=VBScript> 
sub SF1 
    window.location = "\path to user folders\username\"
end sub 
id = SetTimeOut("SF1",0,"VBScript")
</SCRIPT>

Answer 1

Request.ServerVariables 集合在服务器端可用，您必须将该值输入客户端脚本：

window.location = "\path to user folders\<%=Right(Request.ServerVariables("LOGON_USER"),6)%>\"

VBScript 重定向到网络文件夹

VBScript Redirect to Network Folder

vbscript

asp-classic