AJAX發佈通過vb.net

Question

我需要通過我的vb.net頁面做一個AJAX帖子。這篇文章還附加了驗證帖子所需的xml文件，然後將其提交給鏈接。我沒有得到任何錯誤，當我做這個職位，但該文件也沒有提交也。我會將我的代碼添加到此問題中，提前致謝。

Public Shared XMLString As String 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Dim xmldoc As New System.Xml.XmlDocument 
    xmldoc.Load("d:/jobfeed.xml") 
    XMLString = xmldoc.OuterXml 
    ClientScript.RegisterStartupScript(Me.GetType(), "script", POSTtoEP) 


End Sub 



Public Shared Function POSTtoEP() As [String] 
    Dim strurl As String = "https://www.executiveplacements.com/Job_Post_Xml.asp" 
    Dim strType As String = "POST" 
    Dim sb As New StringBuilder() 
    sb.Append("<script type = 'text/javascript'>") 
    sb.Append("function POSTtoEP() {") 
    sb.Append("$.ajax({") 
    sb.Append("type:" & strType & ",") 
    sb.Append("url:" & strurl & ",") 
    sb.Append("data: { XmlPacket:" & XMLString & ",") 
    sb.Append("contentType: application/x-www-form-urlencoded") 
    sb.Append("dataType: xml,") 
    sb.Append("success: function(data){,") 
    sb.Append("},") 
    sb.Append("error:function(){") 
    sb.Append("alert('Error processing data. Please try again.);") 
    sb.Append("}") 
    sb.Append("}") 
    sb.Append("}") 
    sb.Append("});") 
    sb.Append("</script>") 
    Return sb.ToString() 
End Function 

末級

Answer 1

有引號和大括號中的代碼失蹤。該腳本還聲明瞭一個從未被調用過的函數。

Public Shared Function POSTtoEP() As [String] 
    Dim strurl As String = "https://www.executiveplacements.com/Job_Post_Xml.asp" 
    Dim strType As String = "POST" 
    Dim sb As New StringBuilder() 
    sb.AppendLine("<script type = 'text/javascript'>") 
    sb.AppendLine("function POSTtoEP() {") 
    sb.AppendLine("$.ajax({") 
    sb.AppendLine("type:""" & strType & """,") 
    sb.AppendLine("url:""" & strurl & """,") 
    sb.AppendLine("data: { XmlPacket:""" & XMLString & """},") 
    sb.AppendLine("contentType:""application/x-www-form-urlencoded"",") 
    sb.AppendLine("dataType: ""xml"",") 
    sb.AppendLine("success: function(data){ ") 
    sb.AppendLine("alert(data);") 
    sb.AppendLine("},") 
    sb.AppendLine("error: function(error, message){") 
    sb.AppendLine("alert('Error processing data. Please try again.');") 
    sb.AppendLine("}") 
    sb.AppendLine("});") 
    sb.AppendLine("};") 
    sb.AppendLine("POSTtoEP();") 
    sb.AppendLine("</script>") 
    Return sb.ToString() 
End Function 

此代碼呈現正確的JavaScript。但是，如果Job_Post_Xml.asp不返回「application/x-www-form-urlencoded」，那麼ContentType需要修改。否則它會產生解析錯誤。我相信Job_Post_Xml.asp具有gzip編碼，但無法在此處進行測試，因爲它是跨域請求。