asp 怎样获取ipv6

qqdns

求助 asp 怎样获取ipv6 ,例如这个网站可以获取 http://v6.meibu.com/ip6.asp


下面是获取ipv4，怎样才能获取ipv6
Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
ip=getIP()
response.write(ip)

ainkate

asp还有人用吗？

RainH

ainkate 发表于 2022-8-2 17:10
asp还有人用吗？

我也在用

vscos

应该不行吧！主要是ASP已经不更新了，IIS服务器也已经不提供ASP的更新改进了

fufuok

哇哦. 好怀念. asp.

qqdns

ainkate 发表于 2022-8-2 17:10
asp还有人用吗？

asp又不差 ，不过php最好

qqdns

fufuok 发表于 2022-8-3 00:23
哇哦. 好怀念. asp.

没人多少人使用

dzxiaoxi

asp估计还是有少量人在用，cgi在web领域彻底绝迹了。