请问VB如何接收ASP返回的数据

[iori8421]

我在asp中登陆成功后会返回一个数据串

但是我不知道怎么用vb来接收这个数据！

请高人指点一下 谢谢

[霜吹花落]

ASP.NET WEB FORMS 给开发者提供了极好的事件驱动开发模式。然而这种简单的应用程序开发模式却给我们带来了一些小问题，举个例子，在传统的ASP应用程序中，你能够通过POST方法很容易的把一个值或多个值从一个页面传送到另一个页面，用同样的方法在ASP.NET中实现有点麻烦。在这里，我们可以通过其他方式来解决这种情形。ASP.NET为我们提供了三种方式，一种是可以通过用QueryString来传送相应的值，再一种是通过session变量来传送相应的值，还有就是通过Server.Transfer方法来实现。下面分别一一介绍：

一、使用Querystring
Querystring是一种非常简单的传值方式，其缺点就是会把要传送的值显示在浏览器的地址栏中，并且在此方法中不能够传递对象。如果你想传递一个安全性不是那么太重要或者是一个简单的数值时，用此方法最好不过了。下面通过一个小例子来完成传值工作，步骤如下：
1、创建一个web form
2、在新建的web form中放置一个button1，在放置两个TextBox1,TextBox2
3、为button按钮创建click事件
代码如下：
private void Button1_Click
(object sender, System.EventArgs e)
{
string url;
url="webform2.aspx?name=" +
TextBox1.Text + "&email=" +
TextBox2.Text;
Response.Redirect(url);
}
4、新建一个目标页面命名为webform2
5、在webform2中放置两个Label1,Label2
在webform2的Page_Load中添加如下代码：
private void Page_Load
(object sender, System.EventArgs e)
{
Label1.Text=Request.QueryString["name"];
Label2.Text=Request.QueryString["email"];
}
运行,即可看到传递后的结果了。

二、使用Session变量

使用Session变量传值是一种最常见的方式了，此中方式不仅可以把值传递到下一个页面，还可以交叉传递到多个页面，直至把Session变量的值removed后，变量才会消失。举个例子看看：
1、创建一个web form
2、在新建的web form中放置一个button1，在放置两个TextBox1,TextBox2
3、为button按钮创建click事件
代码如下：
private void Button1_Click
(object sender, System.EventArgs e)
{
Session["name"]=TextBox1.Text;
Session["email"]=TextBox2.Text;
Response.Redirect("webform2.aspx");
}
4、新建一个目标页面命名为webform2
5、在webform2中放置两个Label1,Label2
在webform2的Page_Load中添加如下代码：
private void Page_Load
(object sender, System.EventArgs e)
{
Label1.Text=Session["name"].ToString();
Label2.Text=Session["email"].ToString();
Session.Remove("name");
Session.Remove("email");
}
运行,即可看到传递后的结果了。

三、使用Server.Transfer
虽然这种方法有点复杂，但也不失为一种在页面传值的方式。
举个例子看看：
1、创建一个web form
2、在新建的web form中放置一个button1，在放置两个TextBox1,TextBox2
3、为button按钮创建click事件
代码如下：
private void Button1_Click
(object sender, System.EventArgs e)
{
Server.Transfer("webform2.aspx");
}
4、创建过程来返回TextBox1,TextBox2控件的值代码如下：
public string Name
{
get
{
return TextBox1.Text;
}
}

public string EMail
{
get
{
return TextBox2.Text;
}
}
5、新建一个目标页面命名为webform2
6、在webform2中放置两个Label1,Label2
在webform2的Page_Load中添加如下代码：
private void Page_Load
(object sender, System.EventArgs e)
{
//创建原始窗体的实例
WebForm1 wf1;
//获得实例化的句柄
wf1=(WebForm1)Context.Handler;
Label1.Text=wf1.Name;
Label2.Text=wf1.EMail;

}
运行,即可看到传递后的结果了

[iori8421]

这个好像是asp之间的传统吧！

我现在是asp网页登陆后就会返回一个字符串。

我需要用VB取得这个字符串

[iori8421]

顶！没人知道吗

[jkxlh]

用inet控件很容易获取啊。
a=Inet1.OpenURL("http://****/test.asp")

[spotty2008]

我有个办法

1.打开vb6.0 工具-部件-internet transfer control 6.0 - 确定
2.把控件加入到窗体设计器 name属性为inetget
3.加入以下代码
Private Function getdata(TheUrl As String)
Dim back As String
back = inetget.OpenURL(TheUrl)
getdata = back
End Function

Private Sub Form_Load()
inetget.Protocol = icHTTP
MsgBox getdata("http://www.hao123.com")
End Sub

程序进入后显示获得的数据

如果你想获得自己编写的asp数据
打开记事本或其他asp编辑工具

输入
<%
response.write("网页数据")
%>
保存为getdata.asp

在vb中用MsgBox getdata("http://www.你的域名.xx/getdata.asp")



这都是我自己写的 费了点时间 该给满分吧

[spotty2008]

补充 是登陆成功啊 容易啊 还是我上面说的function
dim a as string
a=getdata("http://www.你的域名.xx/getdata.asp?username=admin&password=admin")
if a ="密码错误" then
msgbox "密码错误"
elseif a="没有用户名" then
msgbox "没有找到该用户名"
end if



asp 中判断然后和上面一样输出信息


该清楚了吧 还不清楚 email:[e-mail]
呵呵 我够热情吧

[vansoft]

http://blog.csdn.net/vansoft/archive/2008/12/18/3547423.aspx
我的博客

[iori8421]

2008 和 van都给的东西不错。

不过个人认为van的更好点。还有van是否可以解释一下
Public Function PostInfo(ByVal WebServerAddress As String, _
ByVal Port As String, _
ByVal WebPageName As String, _
ByVal CommandString As String, _
Optional ByVal PostData As String = "") As String

函数中每个参数的意义？ 谢谢

稍后送分