jQuery AJAX调用在服务器端不起作用

时间:2011-05-10 14:47:06

标签: jquery asp.net ajax vb.net

我在ASP.Net中有一个jQuery AJAX webmethod,在本地测试时效果很好。但是当上传到服务器时,有时它有时会起作用。当我用firebug调试代码时,我看到webmethod被调用,但马上跳转到ajax脚本的错误部分。 这是我研究的第二周,我仍然无法找到任何帮助我的东西。

jQuery代码:

<script type="text/javascript">
    $(document).ready(function () {
        //get current date
        var _currdate = new Date();
        var currday = _currdate.getDate();
        var currmonth = _currdate.getMonth() + 1;
        var curryear = _currdate.getFullYear();
        var currdate = curryear + "-" + currmonth + "-" + currday;

        //on page load event, check to see if employees are added to the schedule
        $.ajax({
            type: "POST",
            url: "Schedule.aspx/GetSchedule",
            data: '{"FinancialDate" : "' + currdate + '"}',
            contentType: "application/json; charset=utf-8",
            dataType: "json",
            success: function (data) {
                $('#timepanel').append(data.d);
                $('.schslider').each(function () {
                    //check employee checkboxes if schedule exists
                    if ($('.schslider').length > 0) {
                        $('input#chk' + $(this).attr('id')).attr('checked', true);
                        $('input:checkbox:checked').parent('label').addClass('selected');
                        empcount = $('input:checkbox:checked').length;
                        $('#emplistddl').text("Liste d'employés (" + empcount + " Employés Selectionnés) | Employees' List (" + empcount + " Selected Employees)");
                    }
                    //get the values for the slider
                    var startvalue = $('span#' + $(this).attr('id') + 'start').text();
                    var endvalue = $('span#' + $(this).attr('id') + 'end').text();
                    startvalue = (parseInt(startvalue.substring(0, 2), 10) * 60) + parseInt(startvalue.substring(3), 10);
                    endvalue = (parseInt(endvalue.substring(0, 2), 10) * 60) + parseInt(endvalue.substring(3), 10);
                    $('span#' + $(this).attr('id') + 'start').remove();
                    $('span#' + $(this).attr('id') + 'end').remove();
                    $(this).slider({
                        range: true,
                        min: 480,
                        max: 1380,
                        values: [startvalue, endvalue],
                        step: 5,
                        slide: function (event, ui) {
                            var minutes0 = parseInt(ui.values[0] % 60);
                            var hours0 = parseInt(ui.values[0] / 60 % 24);
                            var minutes1 = parseInt(ui.values[1] % 60);
                            var hours1 = parseInt(ui.values[1] / 60 % 24);
                            var time = getTime(hours0, minutes0) + ' - ' + getTime(hours1, minutes1);
                            $(this).parent('div').children('span#' + $(this).attr('id') + 'timestamp').text(time);
                            var total = parseFloat((hours1 + (minutes1 / 60)) - (hours0 + (minutes0 / 60)));
                            $(this).parent('div').children('span#' + $(this).attr('id') + 'total').text(total.toFixed(2) + ' hrs');
                        }
                    });
                });
            },
            error: function (e) { $('#loaderrorboxtimepanel').removeClass('hidebox').addClass('showbox'); }
        });
</script>

webmethod代码如下:

<WebMethod(True)> _
    Public Shared Function GetSchedule(ByVal FinancialDate As String) As String
        Dim StoreNumber_ForWebMethod As String = ConfigurationManager.AppSettings("StoreNumberKey")
        Dim _SqlConnection As New SqlConnection("Data Source=INTRIS;Initial Catalog=*****;User ID=sa;Password=*****")
        Dim _SqlDataAdapter As New SqlDataAdapter("select h.magasin, h.employe, e.nom, h.datefinancier, h.debut, h.fin, h.totalheure, h.annee, h.semaine, h.evenement, h.etat, h.breakstart, h.breakend " _
                                                & "from web.dbo.hours h , web.dbo.employee e " _
                                                & "where h.employe = e.numero and h.magasin = " & StoreNumber_ForWebMethod & " and h.datefinancier = '" & FinancialDate & "'", _SqlConnection)
        Dim _DataSet As New DataSet
        Dim ScheduleBuilder As String = Nothing

        _SqlDataAdapter.Fill(_DataSet, "Schedule")

        If Not _SqlDataAdapter Is Nothing Then
            If _DataSet.Tables("Schedule").Rows.Count > 0 Then
                For i As Integer = 0 To _DataSet.Tables("Schedule").Rows.Count - 1
                    ScheduleBuilder += "<div id='" & _DataSet.Tables("Schedule").Rows(i).Item("employe").ToString & "timecontainer' class='timecontainer'>" _
                                    & "<span id='" & _DataSet.Tables("Schedule").Rows(i).Item("employe").ToString & "start'>" & _DataSet.Tables("Schedule").Rows(i).Item("debut").ToString & "</span>" _
                                    & "<span id='" & _DataSet.Tables("Schedule").Rows(i).Item("employe").ToString & "end'>" & _DataSet.Tables("Schedule").Rows(i).Item("fin").ToString & "</span>" _
                                    & "<label>" & StrConv(_DataSet.Tables("Schedule").Rows(i).Item("nom").ToString, VbStrConv.ProperCase) & "</label>" _
                                    & "<span id='" & _DataSet.Tables("Schedule").Rows(i).Item("employe").ToString & "timestamp' class='timestamp'>" & _DataSet.Tables("Schedule").Rows(i).Item("debut").ToString & " - " & _DataSet.Tables("Schedule").Rows(i).Item("fin").ToString & "</span>" _
                                    & "<span id='" & _DataSet.Tables("Schedule").Rows(i).Item("employe").ToString & "total' class='total'>" & _DataSet.Tables("Schedule").Rows(i).Item("TotalHeure").ToString & " hrs</span>" _
                                    & "<div id='" & _DataSet.Tables("Schedule").Rows(i).Item("employe").ToString & "' class='schslider'></div></div>"
                Next
            End If
        End If

        Return ScheduleBuilder
    End Function

任何帮助将不胜感激

更新 是JSON和webmethods兼容SQL Server 2000吗?

1 个答案:

答案 0 :(得分:1)

<强>答案

首先,我要感谢@patmortech通过向我展示错误是什么来指导我正确的方向。 一旦我发现,在firefox上使用firebug来调试问题,这是

缺少的单引号
Dim _SqlDataAdapter As New SqlDataAdapter("select h.magasin, h.employe, e.nom, h.datefinancier, h.debut, h.fin, h.totalheure, h.annee, h.semaine, h.evenement, h.etat, h.breakstart, h.breakend " _
                                            & "from web.dbo.hours h , web.dbo.employee e " _
                                            & "where h.employe = e.numero and h.magasin = **'" & StoreNumber_ForWebMethod & "'** and h.datefinancier = '" & FinancialDate & "'", _SqlConnection)

因为它是一个字符串。

问题解决了:)