[P]影响版本：所有版本均影响[/P][P]
[/P][P]目前版本不支持IPV6的保存，比如用户以IPV6地址 1601:ee0:567a:d7a0:cc48:6d51:f436:d23a 访问网站，[/P][P]将会导致网站无法正常打开。[/P][P]
[/P][P]IPV6地址记录需要更多的字段长度，更新支持需要更多的工作才能完成。这里只临时提供让ipv6用户能正常打开网站的小改动：[/P][P]
[/P][P]需要手动修改的文件：inc/Board_Popfun.asp[/P][P]找到[/P][P][CODE]If GBL_IPAddress = "" Then GBL_IPAddress = Left(Replace(Request.ServerVariables("REMOTE_ADDR"),"'",""),15)[/CODE][/P][P]修改为[/P][P][CODE]If GBL_IPAddress = "" or instr(GBL_IPAddress,".") < 1 Then GBL_IPAddress = Left(Replace(Request.ServerVariables("REMOTE_ADDR"),"'",""),15)[/CODE][/P][P]
[/P][P]比较早期的版本，需要修改inc/Board_Popfun.asp整个文件中的GetIPAddress函数，具体修改 GetIPAddress函数如下[/P][P]修改后可以兼容多层代理访问的用户[/P][P]
[/P][CODE]Sub GetIPAddress
GBL_IPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if inStr(GBL_IPAddress,",") then
dim t,n
t = split(GBL_IPAddress,",")
for n = 0 to ubound(t)-1
GBL_IPAddress = trim(t(n))
if GBL_IPAddress <> "" then exit for
next
end if
GBL_IPAddress = Left(Replace(GBL_IPAddress,"'",""),15)
If GBL_IPAddress = "" or instr(GBL_IPAddress,".") < 1 Then GBL_IPAddress = Left(Replace(Request.ServerVariables("REMOTE_ADDR"),"'",""),15)
End Sub[/CODE][P]
[/P][P]关于下载的版本：9.2版本，自2019-10-28日后下载的，均为已经完成上述修改的版本
[/P] | 
