Usuário com melhor resposta
chama uma página asp em vb.net retornando valor

Pergunta
-
pessoal, boa tarde..
estou precisando acionar uma página em asp em um servidor diferente do meu projeto web para executar uma função de outro projeto.. o retorno dessa função preciso tratar no meu projeto que o chamou..
exemplo:
Vb.Net
-> ao validar o login chamo uma pagina exemplo.asp?id=9
ASP
-> executa o que preciso e retorna o valor pra uma variavel strVariavel
Vb.Net
-> strVariavel usada no meu projeto de origem
Respostas
-
Crie para você um exemplo:
Minha página asp vbscript ta rodando com esse código
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim strVariavel strVariavel = 50 response.Write(strVariavel) %>
Ou seja, ele vai retornar o 50
Fiz agora para pegar esse valor no VB.Net Web Forms
ASPX
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication2._Default" %> <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <asp:Label Text="" ID="LblExemplo" runat="server" /> </div> </form> </body> </html>
Código dessa página ASPX (vb)
Imports System.Net Public Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim Web As New WebClient Dim StrResposta = Web.DownloadString("http://localhost/exemplo.asp") LblExemplo.Text = StrResposta End Sub End Class
OK!
- Sugerido como Resposta Fulvio Cezar Canducci Dias terça-feira, 19 de novembro de 2013 19:21
- Marcado como Resposta kngipa quarta-feira, 20 de novembro de 2013 13:37
Todas as Respostas
-
Crie para você um exemplo:
Minha página asp vbscript ta rodando com esse código
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim strVariavel strVariavel = 50 response.Write(strVariavel) %>
Ou seja, ele vai retornar o 50
Fiz agora para pegar esse valor no VB.Net Web Forms
ASPX
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication2._Default" %> <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <asp:Label Text="" ID="LblExemplo" runat="server" /> </div> </form> </body> </html>
Código dessa página ASPX (vb)
Imports System.Net Public Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim Web As New WebClient Dim StrResposta = Web.DownloadString("http://localhost/exemplo.asp") LblExemplo.Text = StrResposta End Sub End Class
OK!
- Sugerido como Resposta Fulvio Cezar Canducci Dias terça-feira, 19 de novembro de 2013 19:21
- Marcado como Resposta kngipa quarta-feira, 20 de novembro de 2013 13:37
-
-