在线情况
楼主
  • 头像
  • 级别
  • 徽章
  • 职务总版主
  • 声望+46
  • 积分17075
  • 经验1440561
  • 文章25387
  • 注册2003-01-20
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]
LeadBBS 官方论坛(asp论坛)感谢您的参与
在线情况
2
  • 头像
  • 小笨的爸爸
  • 级别
  • 徽章
  • 职务总版主
  • 声望+59
  • 积分8214
  • 经验590934
  • 文章7600
  • 注册2006-03-24
[EM05]
LeadBBS 官方论坛(asp论坛)感谢您的参与
在线情况
3
  • 头像
  • 级别
  • 徽章
  • 职务总版主
  • 积分967
  • 经验1758410
  • 文章973
  • 注册2003-04-18
支持,顶起!!
LeadBBS 官方论坛(asp论坛)感谢您的参与
Page created in 0.0120 seconds with 6 queries.