由于ajaxpro在客户端注册的脚本是
JavaScript的，但是
JavaScript无法调用
VBScript注册的函数或者过程，只能访问
VBScript注册的标量，VBScript可以调用
JavaScript注册的变量或者方法，所以
VBScript使用ajaxpro的异步功能时，需要传递回调函数，如果传递的是
VBScript的function函数，会出现“由于出现错误 80020102 而导致此项操作无法完成”的错误。
要解决这个问题，可以在 VBScript传递 JavaScript的回调函数，而不是 VBScript的回调函数。反正变量是可以相互访问的，这样通过修改同一个全局变量就可以实现了。或者改为同步执行的，这样不需要传递回调函数，就不会出现“由于出现错误 80020102 而导致此项操作无法完成”的错误
一个简单的测试代码测试
ajaxproStringInt.aspx.cs
-C#
using System;
public partial class ajaxproStringInt : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
if (!Page.IsPostBack)
AjaxPro.Utility.RegisterTypeForAjax(typeof(ajaxproStringInt));
}
///
/// 带一个参数返回值为string
///
/// 其他字符参数
///
[AjaxPro.AjaxMethod]
public string Now(string other)
{
return DateTime.Now.ToString() + "--" + other;
}
///
/// 返回值为int的方法
///
///
///
///
[AjaxPro.AjaxMethod]
public int Add(int a, int b)
{
return a + b;
}
}
ajaxproStringInt.aspx
-HTML
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="ajaxprostringint.aspx.cs" Inherits="ajaxproStringInt" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<title>ajaxpro返回值类型总结-stringtitle>
head>
<body>
<script type="text/javascript">
function callback(r) {
alert(r.context)
var tp = typeof r.context == 'number' ? r.context : r.context.tp;
switch (r.context) {
case 1: alert('服务器返回的时间为：' + r.value); break;
default: alert(r.context.a + '+' + r.context.b + '=' + r.value); break;
}
}
function callServer(tp) {
switch (tp) {//在调用方法的同时传递tp参数，以便在回调函数中通过context属性获取到
case 1: ajaxproStringInt.Now('客户端发送的其他内容1', callback, tp); break;
default: ajaxproStringInt.Add(7, 8, callback, { tp: tp, a: 7, b: 8 }); break; //给context传递json对象就可以同时传递多种数据了
}
}
function vbscallback() {
alert(arguments[0].value);
}
script>
<script type="text/vbscript">
function vbscallServer
ajaxprostringint.add 7,8, vbscallback'注意一定要传递的是JavaScript的方法，如果是VBScript的方法则会出现“由于出现错误 80020102 而导致此项操作无法完成”的错误
end function
script>
<form id="form2" runat="server"><input type="button" value="调用Now" οnclick="callServer(1)" />
<br ><input type="button" value="调用Add" οnclick="callServer(2)" />
<br ><input type="button" value="vbs调用Add" οnclick="vbscallServer()" />form>
body>
要解决这个问题，可以在 VBScript传递 JavaScript的回调函数，而不是 VBScript的回调函数。反正变量是可以相互访问的，这样通过修改同一个全局变量就可以实现了。或者改为同步执行的，这样不需要传递回调函数，就不会出现“由于出现错误 80020102 而导致此项操作无法完成”的错误
一个简单的测试代码测试
ajaxproStringInt.aspx.cs
-C#
using System;
public partial class ajaxproStringInt : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
if (!Page.IsPostBack)
AjaxPro.Utility.RegisterTypeForAjax(typeof(ajaxproStringInt));
}
///
/// 带一个参数返回值为string
///
/// 其他字符参数
///
[AjaxPro.AjaxMethod]
public string Now(string other)
{
return DateTime.Now.ToString() + "--" + other;
}
///
/// 返回值为int的方法
///
///
///
///
[AjaxPro.AjaxMethod]
public int Add(int a, int b)
{
return a + b;
}
}
ajaxproStringInt.aspx
-HTML
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="ajaxprostringint.aspx.cs" Inherits="ajaxproStringInt" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<title>ajaxpro返回值类型总结-stringtitle>
head>
<body>
<script type="text/javascript">
function callback(r) {
alert(r.context)
var tp = typeof r.context == 'number' ? r.context : r.context.tp;
switch (r.context) {
case 1: alert('服务器返回的时间为：' + r.value); break;
default: alert(r.context.a + '+' + r.context.b + '=' + r.value); break;
}
}
function callServer(tp) {
switch (tp) {//在调用方法的同时传递tp参数，以便在回调函数中通过context属性获取到
case 1: ajaxproStringInt.Now('客户端发送的其他内容1', callback, tp); break;
default: ajaxproStringInt.Add(7, 8, callback, { tp: tp, a: 7, b: 8 }); break; //给context传递json对象就可以同时传递多种数据了
}
}
function vbscallback() {
alert(arguments[0].value);
}
script>
<script type="text/vbscript">
function vbscallServer
ajaxprostringint.add 7,8, vbscallback'注意一定要传递的是JavaScript的方法，如果是VBScript的方法则会出现“由于出现错误 80020102 而导致此项操作无法完成”的错误
end function
script>
<form id="form2" runat="server"><input type="button" value="调用Now" οnclick="callServer(1)" />
<br ><input type="button" value="调用Add" οnclick="callServer(2)" />
<br ><input type="button" value="vbs调用Add" οnclick="vbscallServer()" />form>
body>
html>
此文来源于：VBScript如何调用异步调用ajaxpro注册的方法
5646
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
