| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1248 人关注过本帖
标题:vb编程修改网站上的某个文本内容
只看楼主 加入收藏
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
1、这个ASP 需要跨服务器验证,最少需要 3个HTTP服务器。无法搭建调试环境。
2、这个ASP提交后会 产生 302 跳转标志,造成程序出现问题。也就是你这个ASP应该是用浏览器来访问的,而不应该使用程序来访问他。
调用方式  Msgbox GETHTML("http://XXX.XXX.XXX/XXX.asp?url=" & "XXX" & "&ip=" & "XXX")
结果是错误,提示产生了 302 跳转标志
-------------------------------------
也许你打算用 IE 内核的 webbrows来开发,也许会好一点。
WebBrowser1.Navigate http://XXX.XXX.XXX/XXX.asp?url=" & "XXX" & "&ip=" & "XXX"

-------------------------------------
从这个ASP来说,与你问的问题不对。
你问的是 如何修改这个文件,你给出的ASP是 跨服务器验证,写入该文件,然后跨服务器跳转到。
抱歉,根据这ASP写程序的话,建议你 去查找开源的 浏览器源代码,然后在浏览器的代码上修改还更快一点。

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-27 16:20
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
按你问的问题,仅修改这个文件,那么 对应的ASP应该是这样的。

<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
'强制浏览器不再缓存Web页面
%>  

<%
    dim ip
  ip=request.QueryString("ip")'获取连接参数
       writeip(ip)


Function writeip(wip)
    Dim fs,ts
    Const ForReading =1, ForWriting = 2
    voteincdir = server.mappath("OAUrl.txt")
    set fs = CreateObject("Scripting.FileSystemObject")
    set ts = fs.CreateTextFile(voteincdir, True)
    ts.Write wip
    ts.close
    response.write "OK,IP设置成功。</br>"
End function
%>


提交命令就是这样的:
MsgBox GETHTML("http://XXX.XXX.XXX/XXX.asp?ip=" & "XXXXXXX")

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-27 16:24
luohaiping3
Rank: 2
等 级:论坛游民
帖 子:35
专家分:20
注 册:2014-11-6
收藏
得分:0 
回复 12楼 风吹过b
这个这样应该可以吧   我主要是不知道在vb上怎样利用这个asp程序,还请帮帮我vb怎么写

[ 本帖最后由 luohaiping3 于 2015-5-28 13:27 编辑 ]

新手上路,请大家多多指教
2015-05-27 16:52
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
line ="http://" & wip & ":88"  'OA的要验证
    response.Redirect (line)'打开页面

你加了二行,就只能使用 WebBrowser 控件去提交了。

放入 WebBrowser,访问该 地址的方法
WebBrowser1.Navigate "http://XXX.XXX.XXX/XXX.asp"
--------------------------
WebBrowser  就是一个 使用 IE核心 的浏览器。

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-27 17:29
luohaiping3
Rank: 2
等 级:论坛游民
帖 子:35
专家分:20
注 册:2014-11-6
收藏
得分:0 
回复 14楼 风吹过b
问题是用这个怎么写啊WebBrowser,我不太会这个
WebBrowser1.Navigate http://XXX.XXX.XXX/XXX.asp?url=" & "XXX" & "&ip=" & "XXX"
这个参数怎么写??不懂

[ 本帖最后由 luohaiping3 于 2015-5-28 15:45 编辑 ]

新手上路,请大家多多指教
2015-05-27 17:38
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
WebBrowser

引入 WebBrowser 控件,对应的名字是: Microsoft Internet Controls,引入后的名字叫 WebBrowser
然后到窗体上放一个,

调用就是: WebBrowser1.Navigate "http://XXX.XXX.XXX/XXX.asp"

就是自己做个简单的IE。

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-27 18:01
hfq1314
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-6-13
收藏
得分:0 
怎么批量修改网站上的某个文本内容??
2015-06-29 23:03
快速回复:vb编程修改网站上的某个文本内容
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.049715 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved