IPV6用户不能正常打开网站问题临时解决办法

楼主
IPV6用户不能正常打开网站问题临时解决办法
[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]
1楼
[EM05]
2楼
支持,顶起!!
3楼
好久没来了,支持[EM05]
4楼
9.2版本在哪里下载?
5楼
老大还在更新诶~

电脑版 Page created in 0.1094 seconds with 4 queries.