从Classic asp发布XML并写入File函数

Question

我index.html页面将数据发布到page1.asp page1.asp转换数据，并使用此函数“ PostTo”将其发布到Page2.asp

Page2.asp应该执行以下操作：-使用“ WriteToFile”将数据写入data.txt问题：从第2页调用时，WriteToFile函数不会在文件中写入任何内容，但从第1页调用时，可以工作

有什么建议吗？

Function PostTo(Data, URL)
     Dim objXMLHTTP, xml
    ''# On Error Resume Next
       Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
       objXMLHTTP.Open "POST", URL, False
       objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
       objXMLHTTP.Send Data
      If objXMLHTTP.readyState <> 4 then
      objXMLHTTP.waitForResponse 10
      End If
      If Err.Number = 0  AND objXMLHTTP.Status = 200 then
       PostTo = objXMLHTTP.responseText     
      else
       PostTo = "Failed"
      End If  
      '' # if xhttp.Status<>200 then err.Raise vbObjectError, , "Server returned http code " & xhttp.Status    
             Set objXMLHTTP = Nothing
   End Function

Answer 1

您遇到的问题不仅可以通过其他虚拟文件夹解决，还需要是其他应用程序。 如果您关闭了ASP调试，则将发现它可以正常工作。

问题在于，当page1向page2发出请求时，正在运行该线程的线程被阻止以等待响应。 然后，对page2的请求将在另一个线程上运行。

启用ASP调试后，ASP将仅使用单个线程来响应请求。 因此，当对page2的请求到达时，因为只有可用线程仍在运行page1，所以找不到要运行的线程，因此对page2的请求将排队。 但是，page1将在page2完成之前永远不会完成，而page2将在page1完成之前无法完成，以便它可以使用可用的单线程。 您的应用程序已挂起，您需要重置以清除它。

在正常使用情况下，每个处理器有25个线程，因此这种情况很难解决。 但是，如果您的站点繁忙，并且很多“自我请求”正在进行，则可能会遇到这种死锁情况（或至少严重损害性能）。

Answer 2

做完了 您应该发布到其他虚拟文件夹中的ASP。 如果ASP在同一虚拟文件夹中，则ASP停止响应（挂起）。 关闭浏览器后，该ASP和其他ASP继续挂起，因为即使关闭浏览器，请求仍保持排队状态。 您必须重新启动IIS或重新启动计算机。