在vb中使用inet控件可以完全做到vb与asp的互交首先asp中如下(文件名myasp.asp) <% argname=request("name") '这样可以通过myasp.asp?name=值 来输入数据进入asp 运算…… 结果用response.write 结果变量 %> 假如说我们用vb输入用户名 需要从asp得到用户密码 则 <% argname= request("name") 通过数据库查找密码,并赋予变量mypassword response.write mypassword %>然后我们看看vb这边的代码 首先我们使用一个按钮来控制数据传输 当点击按钮以后 inet1.Url="http://myasp.asp的网页地址/myasp.asp?name=aaaa" inet1.remoteHost = "输入正确值" port = "输入正确值" inet1.Execute = "http://myasp.asp的网页地址/myasp.asp?name=aaaa"这样就执行了myasp.asp这个文件我们可以看到inet控件具有inet1_state(Byval state as integer) 事件在这个事件中state =12(icResponseCompleted)表示执行完毕了 我们可以如下写 st="" if state=icResponseCompleted then finish=true vatadata = inet1.GetChunk(1024,icstring) do while finish st = vtdata vtdata = inet1.GetChunk(1024,icstring) if (Len(vtdata)=0) then finish = false end if loop msgbox st end if 这样弹出的窗口就是myasp.asp执行的结果 也就是用户的密码啦!!!!!我觉得这种方法进行asp与vb的互交最方便 你可以试一试
软件类型:编程工具
编程环境:VB6 + SP5
适用系统:Win9x/2k/XP■ 软件介绍本程序能显示出你编写的VB源代码一共写了多少行,同时也支持其他类型的文件计算。特点:①界面美观,操作方便,你只需拖动你保存好的VB工程(组)文件到本程序窗口就可显示出源代码的总行数。②能自动分析VB工程(组)内包含的文件(这是可选的,也可以不自动分析并把他当作普通文件计算),并分别计算出每个文件所包含源代码的行数。③能自动隔离VB文件中由VB自动生成的代码,只计算用户输入的源代码,并可选择是否要排除空行或注释行的计算。④支持计算非VB文件,如文本文件、ini文件等。计算该类文件时只能排除空行的计算,其他只要不是空行都会累加到总行数中。⑤可暂停正在计算中的任务。⑥可以保存计算结果和被计算文件列表为文本文件,方便以后查询或打印输出。
下载地址:
华军软件 http://www.onlinedown.net/soft/7545.htm
天空软件 http://www.skycn.com/soft/12423.html
我原来想的是通过判断是否为登录页来进行,但有的网站没有登录成功页就没法判断了,我才想能不能通过参数调用来进行判断
<%
argname=request("name") '这样可以通过myasp.asp?name=值 来输入数据进入asp
运算……
结果用response.write 结果变量
%>
假如说我们用vb输入用户名
需要从asp得到用户密码
则
<%
argname= request("name")
通过数据库查找密码,并赋予变量mypassword
response.write mypassword
%>然后我们看看vb这边的代码
首先我们使用一个按钮来控制数据传输
当点击按钮以后
inet1.Url="http://myasp.asp的网页地址/myasp.asp?name=aaaa"
inet1.remoteHost = "输入正确值"
port = "输入正确值"
inet1.Execute = "http://myasp.asp的网页地址/myasp.asp?name=aaaa"这样就执行了myasp.asp这个文件我们可以看到inet控件具有inet1_state(Byval state as integer)
事件在这个事件中state =12(icResponseCompleted)表示执行完毕了
我们可以如下写
st=""
if state=icResponseCompleted then
finish=true
vatadata = inet1.GetChunk(1024,icstring)
do while finish
st = vtdata
vtdata = inet1.GetChunk(1024,icstring)
if (Len(vtdata)=0) then
finish = false
end if
loop
msgbox st
end if
这样弹出的窗口就是myasp.asp执行的结果
也就是用户的密码啦!!!!!我觉得这种方法进行asp与vb的互交最方便
你可以试一试