扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:天极新技术工作室 来源:yesky 2007年10月26日
关键字: Windows
<%@ Import Namespace="DataTypesService" %> <html> <style> div { font: 8pt verdana; background-color:cccccc; border-color:black; border-width:1; border-style:solid; padding:10,10,10,10; } </style> <script language="VB" runat="server"> Public Sub Page_Load(Sender As Object, E As EventArgs) Dim D As DataTypes = New DataTypes() Message1.InnerHtml = D.SayHello() Message1.InnerHtml = Message1.InnerHtml & D.SayHelloName("Bob") Message3.InnerHtml = Message3.InnerHtml & D.GetMode() Dim MyIntArray As Integer() = D.GetIntArray() Dim MyString As String = "Contents of the Array:<BR>" For I = 0 To MyIntArray.Length - 1 MyString = MyString & MyIntArray(I) & "<BR>" Next Message2.InnerHtml = Message2.InnerHtml & MyString Dim MyOrder As Order = D.GetOrder() Message4.InnerHtml = Message4.InnerHtml & "<BR>OrderID: " & MyOrder.OrderID Message4.InnerHtml = Message4.InnerHtml & "<BR>Price: " & MyOrder.Price Dim MyOrders As Order() = D.GetOrders() Message5.InnerHtml = Message5.InnerHtml & "<BR>OrderID: " & MyOrders(0).OrderID Message5.InnerHtml = Message5.InnerHtml & "<BR>Price: " & MyOrders(0).Price End Sub </script> <body style="font: 10pt verdana"> <H4>Using DataTypes with Web Services</H4> <h5>Methods that return a Primitive (String): </h5> <div id="Message1" runat="server"/> <h5>Methods that return an Array of Primitives (Integers): </h5> <div id="Message2" runat="server"/> <h5>Method that returns an Enum: </h5> <div id="Message3" runat="server"/> <h5>Method that returns a Class/Struct: </h5> <div id="Message4" runat="server"/> <h5>Method that returns an array of Classes/Structs: </h5> <div id="Message5" runat="server"/> </body> </html> |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者