ASPX VB中的简单HttpResponse

时间:2017-01-13 16:32:53

标签: asp.net node.js vb.net

我们有一个旧的Asp.net 2.0 Web服务,我需要在其中放入一个简单的HTTP响应。在下面的代码中,函数" APIValidation()"返回一个int,200或404.我需要做的是让它发送一个HttpResponse,这样我的节点web应用程序就可以读取状态代码(然后做它需要做的事情)。

我不知道该如何做到这一点(我用ASP编写),我发现的教程太复杂了,看起来这可以通过几行代码来解决,我只是不做知道哪个。

你可以在这里看到它:

200:http://registration.imprintplus.com/imprinttest/GlobalSrvSN.aspx?sn=29820C0792024CDC8D590BF14AF42490

404:http://registration.imprintplus.com/imprinttest/GlobalSrvSN.aspx?sn=invalid

另一个选择是让Node能够从ASP服务提供的内容中提取200或404。无论是或为我工作。

Option Explicit Off
Option Strict Off

Imports ActivationServer

Partial Class GlobalSrvSN
    Inherits System.Web.UI.Page

    Public Function APIValidation(ByVal sn As String, ByVal databaseSource As String) As String

        Dim act As New LogicProtect_ActivationServer(databaseSource)


        Return act.APIValidation("user", "user@company.com", sn)

    End Function
End Class
感谢百万!

1 个答案:

答案 0 :(得分:1)

不确定你是如何调用该函数的,所以如果这是你唯一的代码就会假设一些事情。

如果你是从.aspx文件中调用它,那么这就是一个例子:

<%@ Page Language="vb" ....." %>

<%
    Dim foo = APIValidation(Request("sn"), "other string")
    Response.StatusCode = CInt(foo)
%>

如果来自“代码隐藏”([page].aspx.vb):

Option Explicit Off
Option Strict Off

Imports ActivationServer

Partial Class GlobalSrvSN
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim foo = APIValidation(Request("sn"), "other string")
        Response.StatusCode = CInt(foo)
    End Sub

    Public Function APIValidation(ByVal sn As String, ByVal databaseSource As String) As String

        Dim act As New LogicProtect_ActivationServer(databaseSource)    
        Return act.APIValidation("user", "user@company.com", sn)

    End Function
End Class

注意:上面是一个非常简单的非常简单的答案。但是:

    上面的
  • 实际上是一个“Web表单页面”(技术上不是“Web服务”),它将是asmx(2.0)

  • 已删除任何输入验证(queryString),错误检查/处理。

  • Response对象就是你如何控制HTTP响应(headers等)。

H个