asp 怎样获取ipv6

qqdns 发表于 2022-8-2 16:32

本帖最后由 qqdns 于 2022-8-3 08:24 编辑

求助 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 发表于 2022-8-2 17:10

asp还有人用吗？

RainH 发表于 2022-8-2 17:49

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

:lol我也在用

vscos 发表于 2022-8-2 20:15

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

fufuok 发表于 2022-8-3 00:23

哇哦. 好怀念. asp.{:17_1062:}

qqdns 发表于 2022-8-3 08:18

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

:lolasp又不差，不过php最好

qqdns 发表于 2022-8-3 08:19

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

没人多少人使用{:301_977:}

dzxiaoxi 发表于 2022-8-3 18:11

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

页: [1]

吾爱破解 - 52pojie.cn's Archiver

asp 怎样获取ipv6