Aspx:
<Head runat = "server">
<Title> test </title>
<SCRIPT type = "text/JavaScript">
1. Function getnumber (){
Usecallback ();
// Usecallback ("123", ""); with Parameters
};
4. Function getrandonnumberfromserver (textbox1, context ){
Document. Forms [0]. textbox1.value = textbox1
};
</SCRIPT>
</Head>
<Body>
<Form ID = "form1" runat = "server">
<Div>
<Input id = "" type = "button" value = "get random number" onclick = "getnumber ()"/>
<Br/>
<Br/>
<Asp: textbox runat = "server" id = "textbox1" text = ""> </ASP: textbox>
</Div>
</Form>
</Body>
</Html>
Aspx. VB:
Partial class _ default
Inherits system. Web. UI. Page
Implements system. Web. UI. icallbackeventhandler
Dim _ callbackresult as string = nothing
Protected sub page_load (byval sender as object, byval e as system. eventargs) handles me. Load
Dim cbreference as string = page. clientscript. getcallbackeventreference (Me, "Arg", "getrandonnumberfromserver", "context ")
Dim cbscript as string = "function usecallback (ARG, context)" & "{" & cbreference &";"&"}"
Page. clientscript. registerclientscriptblock (Me. GetType (), "usecallback", cbscript, true)
End sub
3. Public Function getcallbackresult () as string implements system. Web. UI. icallbackeventhandler. getcallbackresult
Return _ callbackresult
End Function
2. Public sub raisecallbackevent (byval eventargument
As string) implements system. Web. UI. icallbackeventhandler. raisecallbackevent
'Eventargument is the parameter value passed by the foreground
_ Callbackresult = RND (). tostring
End sub
End Class