在javascript函数中调用vbscript方法并传递参数

function xx() { 
$.ajax({
		url: '<%= Request.ServerVariables("SCRIPT_NAME") %>',
		type: "Post",
		async: false,
		data: {
			"vipSN": ModelInstance.sn()
		},
		sucess: function() {
			alert("Update successful")
			alert("<%=vbs()%>"); //这么调好像没起作用
		},
		error: function(xhr){
			alert("Error occured during Ajax request, the error status is: " + xhr.status);
		}
	});
}

function vbs()
Dim detail
Dim detail_numRows
dim aa
aa = Request.QueryString("vipSN")

vbs = aa

end function

$.ajax({
		url: '<%= Request.ServerVariables("SCRIPT_NAME") %>',
		type: "Post",
		async: false,
		data: {
			"vipSN": ModelInstance.sn()
		},
		sucess: function(result) {
			alert(result);
			alert("Update successful")
		},
		error: function(xhr){
			alert("Error occured during Ajax request, the error status is: " + xhr.status);
		}
	});

<%

function vbs(sn)
Dim detail
Dim detail_numRows

Dim aa
Set aa = Request.Form("vipSN") //在这里并没有拿到数据，是不是因为页面没有刷新，拿不到post出来的数据？

Set detail = Server.CreateObject("ADODB.Recordset")
detail.ActiveConnection = MM_dbconn_STRING
detail.Source = "SELECT * FROM vip WHERE sn=" & sn

detail.CursorType = 0
detail.CursorLocation = 2
detail.LockType = 1
detail.Open()

detail_numRows = 0

detail.MoveFirst
Do Until detail.EOF
	vbs = detail.Fields.Item("vip_name").Value
	vbs = aa & "aa"
	detail.MoveNext
Loop

detail.Close()
Set detail = Nothing


end function
%>