<input id="txtMessage"/><!--输入文本框,需要设置ID--> <input onclick="callToServer();" type="button" value="Call to Server"/><!--在按钮的onclick事件里激发回调事件--> result:<input id="txtResult"/><!--显示结果的文本框-->
JS脚本:
<script language="javascript" type="text/javascript"> function callToServer()...{//激发回调函数 var param=document.getElementById("txtMessage").value; var context=""; CallTheServer(param,context);//在此处调用服务端注册的函数 } function rr(result,context)...{//回调结果处理函数 document.getElementById("txtResult").value=result; } </script>
<%...@ Page Language="VB" AutoEventWireup="false" CodeFile="Default1.aspx.vb" Inherits="aspx_Default1"%> <!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 runat="server"> <title>无标题页</title> <script language="javascript" type="text/javascript">... function callToServer()...{ var param=document.getElementById("txtMessage").value; var context=""; CallTheServer(param,context); } function rr(result,context)...{ document.getElementById("txtResult").value=result; } </script> </head> <body> <form id="Form1" method="post" runat="server"> <input id="txtMessage"/> <input onclick="callToServer();" type="button" value="Call to Server"/> result:<input id="txtResult"/> </form> </body> </html>
后台.vb文件的内容:
PartialClass aspx_Default1Class aspx_Default1 Inherits System.Web.UI.Page Implements System.Web.UI.ICallbackEventHandler Dim ClientScript AsString PublicSub RaiseCallbackEvent()Sub RaiseCallbackEvent(ByVal eventArgument AsString) Implements System.Web.UI.ICallbackEventHandler.RaiseCallbackEvent ClientScript = eventArgument End Sub PublicFunction GetCallbackResult()Function GetCallbackResult() AsStringImplements System.Web.UI.ICallbackEventHandler.GetCallbackResult Return ClientScript End Function ProtectedSub Page_Load()Sub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load Dim cb AsString= Page.ClientScript.GetCallbackEventReference(Me, "param", "rr", "context") Dim callbackScript ="function CallTheServer(param,context)"+"{"+ cb +"};" Page.ClientScript.RegisterStartupScript(Me.GetType, "abcd", callbackScript, True) End Sub End Class