<%
dim ReqIP
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ReqIP = "" Or IsNull(ReqIP) Then ReqIP = Request.ServerVariables("REMOTE_ADDR")
response.write(ReqIP)

writeip(ReqIP) '写IP到txt
%>

<%
Function writeip(wip)
    Dim fs,ts
    dim line
    voteincdir = server.mappath("test.txt")
    set fs = CreateObject("Scripting.FileSystemObject")
    set ts = fs.CreateTextFile(voteincdir, True)
    ts.Write wip
    ts.close
    response.write "OK,IP设置成功。

    line ="http://" & wip & ":8080"  '要验证
    response.Redirect (line)'打开页面
End function
%>
这个是asp程序
主要想用vb写个程序来提交数据从而改变test.txt文本中的内容，该怎么写？

[ 本帖最后由 luohaiping3 于 2015-6-26 11:54 编辑 ]

ts.write ""
ts.write wip

你好，能具体吗，应该是用webbroswer控件做的，我不太会

对ASP不了解，如果只是返回IP地址，感觉在VB中用webbrowser打开页面不需要用户提供任何数据。
如果是写其它用户输入的信息到文本文件，ASP可能用Request.form或Request.querystring

能不能通过vb编程取得我上面asp页面中的变量ReqIp？

就象你贴的代码一样，在服务器端ASP用vbscript。Response对象的write方法就可以把服务器的数据传给运行vb的webbrowser客户端
建议看看ASP的基础。

用vb怎么做，其实主要就是想用vb做一个客户端，自己填写ip来更新服务器上面的IP（即文本中的内容）

是想伪造IP?HTTP_X_FORWARDED_FOR是通过HTTP头来获取IP地址的，如果能篡改HTTP头也许能实现。要费些工夫。

其实就是想把自己电脑的外网的ip填写进去就行了

[ 本帖最后由 luohaiping3 于 2015-6-29 16:55 编辑 ]

那就直接在VB中用webbrowser，打开指定页面。不是客户端主动要求触发Request.ServerVariables。是服务器端主动获取环境变量。
用不着你手动去填写IP，服务器自己会从HTTP头中获取。