VBScript如何调用异步调用ajaxpro注册的方法--Asp/VBScript--编程设计网

=波波日志 > Asp/VBScript > VBScript如何调用异步调用ajaxpro注册的方法=

VBScript如何调用异步调用ajaxpro注册的方法

　　由于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" onclick="callServer(1)" />
    <br ><input type="button" value="调用Add" onclick="callServer(2)"  />
    <br ><input type="button" value="vbs调用Add" onclick="vbscallServer()"  />form>
body>
html>

更多ajaxpro总结参考
ajaxpro

类别：Asp/VBScript　作者：波波　日期：2011-06-30　【评论：0】　

上一篇：客户端VBScript和JavaScript相互调用的问题　
下一篇：Scripting.FileSystemObject对象详细介绍

暂时没有评论！

发表留言

热门博文