<%
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 编辑 ]

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

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

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

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

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

就是不知道怎么做啊用webbrowser，，vb刚刚学习当中，怎么才能把数据提交上去

这个打开了这个asp页面了，然后我的数据怎么提交呢？