ASP中获取IP这段代码，该怎么写。高分

来源：百度知道 编辑：UC知道 时间：2024/06/15 16:44:52
转帖不给分。内容如下：

rs("ip")=Request.ServerVariables("REMOTE_ADDR")
上面这段参数用来获得当前客户端的IP，这段话能不能修改成从某个文档（或者数据库）内随机抽取IP地址。例如从几百行IP地址的TXT文档内随机抽取一个出来返回给"IP"这个参数。

查看了所有Request参数，竟然想不到办法。请高人赐教！感激不尽
楼下的高人请将代码写出，感激不尽。加100分已示感谢

大概方法，生成一个从0到txt行数-1的随机数。
用fso读取 txt文件，并将行分配到数组元素里。
返回下标为随机数的数组元素.

代码就是下面的了，建个1.txt放一起，里面一行写一个ip就行了。

<%

set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(Server.MapPath("1.txt"))

a = split(trim(f.ReadAll),vbCrLf)
f.close

set f = nothing
set fso = nothing

Randomize()

x = cint(rnd*ubound(a))

Response.Write a(x)

%>

楼上思路可行。得给他设置最佳下。要不他收不到分数。