asp.net vb jquery ajax 取得后台数据

最新推荐文章于 2023-04-25 10:03:13 发布

努力成为好爸爸

最新推荐文章于 2023-04-25 10:03:13 发布

阅读量2.4k

点赞数

分类专栏： .NET VB.net JQuery

.NET 同时被 3 个专栏收录

197 篇文章 1 订阅

订阅专栏

VB.net

48 篇文章 1 订阅

订阅专栏

JQuery

46 篇文章 0 订阅

订阅专栏

aspx:

<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title></title>
<script type="text/javascript" src="scripts/jquery-1.8.2.js"></script>
<script type="text/javascript" src="scripts/jquery-1.8.2.min.js"></script>
<script type="text/javascript">

/*-- VBクラスのファンクションデータの取得-- */
$(function () {

$("#btnOK").click(function () {

$.ajax({

//要用post方式

type: "Post",

//方法所在页面和方法名
url: "data.aspx/SayHello",

//方法传参的写法一定要对，str为形参的名字,str2为第二个形参的名字
data: "{'str1':'参数值1','str2':'参数值2'}",

contentType: "application/json; charset=utf-8",

dataType: "json",

success: function (data) {

//返回的数据用data.d获取内容
if (data.d != null)
{
$("#TextBox1").val(data.d);
}

},

error: function (err) {

alert(err);
}

});

//禁用按钮的提交

return false;

});

});

/*-- 作業中-- */
$(function () {

$("#btnList").click(function () {

$.ajax({

//要用post方式

type: "Post",

//方法所在页面和方法名
url: "data.aspx/GetCarsList",

//方法传参的写法一定要对，str为形参的名字,str2为第二个形参的名字
//data: "{'str1':'参数值1','str2':'参数值2'}",

contentType: "application/json; charset=utf-8",
data: "{}",
dataType: "json",

success: function (data) {
for (var i = 0; i < data.d.length; i++) {
$("#gvDetails").append("<tr><td>" + data.d[i].f1 + "</td><td>"
+ data.d[i].f2 + "</td><td>" + data.d[i].f3 + + "</td></tr>");
}
},

error: function (err) {

alert(err);
}

});

//禁用按钮的提交

return false;

});

});
//

</script>
</head>

.vb

<System.Web.Services.WebMethod()>
Public Shared Function SayHello(ByVal str1 As String, ByVal str2 As String) As String
Return "Hello Ajax:" & str1 & "-" & str2
End Function

' ++ 作業中
<System.Web.Services.WebMethod()>
Public Shared Function GetCarsList() As List(Of Car)
Dim listCars As New List(Of Car)
Dim car1 As New Car()
car1.f1 = "車１"
car1.f2 = "車２"
car1.f3 = "車３"
Dim car2 As New Car()
car2.f1 = "車１１１"
car2.f2 = "車２２２"
car2.f3 = "車３３３"
listCars.Add(car1)
listCars.Add(car2)

Dim cars As New List(Of Car)
cars = (From c In listCars Select c).ToList

Return cars
End Function

Public Class Car
Property f1 As String
Property f2 As String
Property f3 As String
End Class
' --