ASP.NET WEB FORMS 给开发者提供了极好的事件驱动开发模式。然而这种简单的应用程序开发模式却给我们带来了一些小问题,举个例子,在传统的ASP应用程序中,你能够通过POST方法很容易的把一个值或多个值从一个页面传送到另一个页面,用同样的方法在ASP.NET中实现有点麻烦。在这里,我们可以通过其他方式来解决这种情形。ASP.NET为我们提供了三种方式,一种是可以通过用QueryString来传送相应的值,再一种是通过session变量来传送相应的值,还有就是通过Server.Transfer方法来实现。下面分别一一介绍:
我有个办法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 FunctionPrivate 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")这都是我自己写的 费了点时间 该给满分吧
补充 是登陆成功啊 容易啊 还是我上面说的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 ifasp 中判断然后和上面一样输出信息 该清楚了吧 还不清楚 email:[email protected] 呵呵 我够热情吧
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函数中每个参数的意义? 谢谢稍后送分
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;
}
运行,即可看到传递后的结果了
a=Inet1.OpenURL("http://****/test.asp")
2.把控件加入到窗体设计器 name属性为inetget
3.加入以下代码
Private Function getdata(TheUrl As String)
Dim back As String
back = inetget.OpenURL(TheUrl)
getdata = back
End FunctionPrivate 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")这都是我自己写的 费了点时间 该给满分吧
dim a as string
a=getdata("http://www.你的域名.xx/getdata.asp?username=admin&password=admin")
if a ="密码错误" then
msgbox "密码错误"
elseif a="没有用户名" then
msgbox "没有找到该用户名"
end ifasp 中判断然后和上面一样输出信息
该清楚了吧 还不清楚 email:[email protected]
呵呵 我够热情吧
我的博客
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函数中每个参数的意义? 谢谢稍后送分