国产+内射+后入,大肉大捧一进一出好爽视频百度,边添小泬边狠狠躁视频,高潮迭起av乳颜射后入,国产+人+亚洲

天互數(shù)據(jù)

登錄

新聞資訊 NEWS

實(shí)時(shí)發(fā)布天互官方新聞和媒體報(bào)道,了解天互最新動(dòng)態(tài)

當(dāng)前位置:新聞資訊 > 渠道代理相關(guān) > 正文
Aug
2011 31

做了CDN的ASP網(wǎng)站如何取到用戶真實(shí)IP程序

  • 時(shí)間:2011/8/31 14:47:13
  • 閱讀:741842次

寫(xiě)了下asp取真實(shí)IP的代碼,搭環(huán)境測(cè)試無(wú)代理、一級(jí)或多級(jí)代理的情況,可以正常獲取


function   checkip(checkstring)'用正則判斷IP是否合法
dim   re1
set   re1=new   RegExp
re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
re1.global=false
re1.Ignorecase=false
checkip=re1.test(checkstring)
set   re1=nothing
end   function


function   get_cli_ip()'取真實(shí)IP函數(shù),先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDR
dim client_ip
if checkip(Request.ServerVariables("HTTP_CLIENT_IP"))=true then
         get_cli_ip = checkip(Request.ServerVariables("HTTP_CLIENT_IP"))
else
         MyArray = split(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")
         if ubound(MyArray)>=0 then
                   client_ip = trim(MyArray(0))
                   if checkip(client_ip)=true then
                            get_cli_ip = client_ip
                            exit function
                   end if
         end if
         get_cli_ip = Request.ServerVariables("REMOTE_ADDR")
end if
end   function
 

——THE END——

上一篇: Hyper-V微軟虛擬化技術(shù)全面分析

下一篇: 重要公告|關(guān)于公司話務(wù)系統(tǒng)中心線路故障的公告

為你推薦
天互數(shù)據(jù)助力成長(zhǎng)
  • 售前咨詢電話

    400-675-6239

  • 在線客服

    在線客服,立即響應(yīng)

  • 建議反饋

    天互數(shù)據(jù)渴望您的建議

          關(guān)注天互數(shù)據(jù)      關(guān)注百度智能云服務(wù)中心

咨詢熱線
400-675-6239

關(guān)注微信公眾號(hào)

公司地址:陜西省西安市高新區(qū)科技路50號(hào)金橋國(guó)際廣場(chǎng)A座2單元21702號(hào)
郵編:710116

在線客服

電話咨詢

掃碼咨詢