迷失在AJAX上的.ASP文件

我需要为访问我网站特定页面的用户自动化数据收集 . 为此，我正在查询LDAP . 当我在本地双击文件（ .vbs ）时，LDAP查询工作正常 . 但是，当我双击它时_11102569_工作（正如预期的那样） . 但是，我和新人一样可以写VBScript .

在阅读了几篇文章后，我修改了代码并将扩展名更改为 .asp . 我最终得到了这个：

<%
    On Error Resume Next

    'Create the Array that will be passed
    Dim employee(7)

    'Employee System Related Info
    Set objSysInfo = CreateObject("ADSystemInfo")

    employee(0) = objSysInfo.SiteName

    'Employee specific information
    strUser = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUser)

    employee(1) = objUser.sAMAccountName
    employee(2) = objUser.givenName
    employee(3) = objUser.sn
    employee(4) = objUser.displayName
    employee(5) = objUser.telephoneNumber
    employee(6) = objUser.title

    Return employee
%>

在通过ajax调用此 .asp 文件的JavaScript函数中，我能够获得我认为 .asp 文件可以接收的员工编号，并执行查询的其余部分....但是，我'm not even sure if I' m正确地返回所有内容在 VBScript . 此外，我甚至不确定我是否应该使用 GET 或 POST AJAX调用 . 有人能指出我正确的方向吗？

Updated 03/22/2017 at 10AM CDT

我终于回到了办公室，试图玩弄 . 我还有点失落 . 我已经对下面的代码进行了一些更新，你会看到javascript和VBScript

首先是JavaScript：

var employee = {};
function getEmp() {
var ldapUserName = ADSystem.UserName;

$.ajax({
    type: "POST",
    data: ldapUserName,
    url: "https://here.is.my/url.asp", 
    success: $.ajax({
             type: "GET",
             dataType: "json",
             success: function(responseText) {
                employee = responseText;
             },
             error: function() {
                    alert("No Data Received");
             }
        }),
    error: function() {
            alert("Connection Failed");
        }
    });
}

现在这里是基于我阅读的一些内容和来自此处的建议的更新的VBScript：

<%
Public Function empDemo(username)

On Error Resume Next
'Create the Array that will be passed
Dim employee(7)

'Employee System Related Info
Set objSysInfo = CreateObject("ADSystemInfo")
employee(0) = objSysInfo.SiteName

'Employee specific information
strUser = objSysInfo.username
Set objUser = GetObject("LDAP://" & strUser)

employee(1) = objUser.sAMAccountName
employee(2) = objUser.givenName
employee(3) = objUser.sn
employee(4) = objUser.displayName
employee(5) = objUser.telephoneNumber
employee(6) = objUser.title

response.write "{ site: " & employee(0) & "," 
        & "empNum: " & employee(1) & "," 
        & "empFName: " & employee(2) & "," 
        & "empLName: " & employee(3) & ","
        & "empFullName: " & employee(4) & ","
        & "empExt: " & employee(5) & ","
        & "empTitle: " & employee(6) & "}"

End Function
%>

目前，我收到的警告声明“没有收到数据” . 我究竟做错了什么？