28,408
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
julyclyde 2002-01-29
- 打赏
- 举报
绝对可以
weiasp 2002-01-29
- 打赏
- 举报
怎么显示不出来！
haiznan 2002-01-29
- 打赏
- 举报
request.servervariables("remote_addr")可获对方IP！
request.servervariables("server_name")可获得服务器的IP
ok!!!!!!
request.servervariables("server_name")可获得服务器的IP
ok!!!!!!
blues-star 2002-01-29
- 打赏
- 举报
服务器变量,在ASP,PHP,JSP中都好用的
kxcc_sx 2002-01-29
- 打赏
- 举报
呵呵！
这个好办
用request.servervariables("remote_addr")
可获得在线人IP！
用request.servervariables("server_name")
可获得服务器的ip
这个好办
用request.servervariables("remote_addr")
可获得在线人IP！
用request.servervariables("server_name")
可获得服务器的ip
Studio 2002-01-29
- 打赏
- 举报
Request("REMOTE_ADDR") 可以得到IP
karma 2002-01-29
- 打赏
- 举报
on the server side, use Request.ServerVariables("REMOTE_ADDR")
on the client side, try
arAddresses = GetIPAddresses()
msgbox ubound(arAddresses)+1 & " IP Address(es) found"
for each ip in arAddresses
msgbox ip
next
Function GetIPAddresses()
'=====
' Returns array of IP Addresses as output
' by ipconfig or winipcfg...
'
' Win98/WinNT have ipconfig (Win95 doesn't)
' Win98/Win95 have winipcfg (WinNt doesn't)
'
' Note: The PPP Adapter (Dial Up Adapter) is
' excluded if not connected (IP address will be 0.0.0.0)
' and included if it is connected.
'=====
set sh = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
Set Env = sh.Environment("PROCESS")
if Env("OS") = "Windows_NT" then
workfile = fso.gettempname
sh.run "%comspec% /c ipconfig > " & workfile,0,true
else
'winipcfg in batch mode sends output to
'filename winipcfg.out
workfile = "winipcfg.out"
sh.run "winipcfg /batch" ,0,true
end if
set sh = nothing
set ts = fso.opentextfile(workfile)
data = split(ts.readall,vbcrlf)
ts.close
set ts = nothing
fso.deletefile workfile
set fso = nothing
arIPAddress = array()
index = -1
for n = 0 to ubound(data)
if instr(data(n),"IP Address") then
parts = split(data(n),":")
if trim(parts(1)) <> "0.0.0.0" then
index = index + 1
ReDim Preserve arIPAddress(index)
arIPAddress(index)= trim(cstr(parts(1)))
end if
end if
next
GetIPAddresses = arIPAddress
End Function
on the client side, try
arAddresses = GetIPAddresses()
msgbox ubound(arAddresses)+1 & " IP Address(es) found"
for each ip in arAddresses
msgbox ip
next
Function GetIPAddresses()
'=====
' Returns array of IP Addresses as output
' by ipconfig or winipcfg...
'
' Win98/WinNT have ipconfig (Win95 doesn't)
' Win98/Win95 have winipcfg (WinNt doesn't)
'
' Note: The PPP Adapter (Dial Up Adapter) is
' excluded if not connected (IP address will be 0.0.0.0)
' and included if it is connected.
'=====
set sh = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
Set Env = sh.Environment("PROCESS")
if Env("OS") = "Windows_NT" then
workfile = fso.gettempname
sh.run "%comspec% /c ipconfig > " & workfile,0,true
else
'winipcfg in batch mode sends output to
'filename winipcfg.out
workfile = "winipcfg.out"
sh.run "winipcfg /batch" ,0,true
end if
set sh = nothing
set ts = fso.opentextfile(workfile)
data = split(ts.readall,vbcrlf)
ts.close
set ts = nothing
fso.deletefile workfile
set fso = nothing
arIPAddress = array()
index = -1
for n = 0 to ubound(data)
if instr(data(n),"IP Address") then
parts = split(data(n),":")
if trim(parts(1)) <> "0.0.0.0" then
index = index + 1
ReDim Preserve arIPAddress(index)
arIPAddress(index)= trim(cstr(parts(1)))
end if
end if
next
GetIPAddresses = arIPAddress
End Function
luket 2002-01-29
- 打赏
- 举报
查查Server对象的属性
