<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      用通ASP直接取得用戶真實IP地址
                
                  發表時間：2023-08-19             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]通用FUNCTION，如果不能取真實IP，就會取代理IPPrivate Function getIP()    Dim strIPAddr    If Request.ServerVariables...
      通用FUNCTION，如果不能取真實IP，就會取代理IP
      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



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清