[原創]24小時同一IP只彈一次彈窗原始碼

來源:互聯網
上載者:User
原創|原始碼|彈窗

<%
'作者:阿里西西
'網址:http://www.alixixi.com
'說明:歡迎使用本源碼程式,敬請保持本資訊.
'24小時同1IP只彈一次
'直接輸入網址來的不彈
'彈過一次後,在開啟其它有彈窗代碼的頁面就不要彈了
'最好是用JS引用,這樣你靜態頁面也可以用
Dim viewhistory,Referer,usercookie
Dim mydomain,reurl,oldip,oldtime
Dim opentime,adstr
opentime = 24  '設定同一IP彈窗周期,單位:小時
mydomain = "alixixi.com" '網站網域名稱
adstr = "<script language=""javascript"" src=""http://alixixi.com/indexgg.js""></script>"  '廣告聯盟彈窗代碼,<script>...</script>類似的彈窗代碼,注意單雙引號的寫法

Referer = CStr(Request.ServerVariables("HTTP_REFERER"))  '取得訪問來源
If(Referer="") Then  '如果為空白判斷是直接存取,否則為通過搜尋引擎或其它網站進入
 reurl=mydomain
Else
 If InStr(Referer,mydomain) > 0 Then
 reurl=mydomain
 Else
 reurl="search"
 End If
End If
If reurl = "search" Then '如果使用者是通過外部連結進到本站時就判斷是否超過24小時後彈窗
 If Trim(Request.Cookies("isopen")("user"))="" then  '如果使用者第一次訪問彈窗
  Call writecookie()  '記錄Cookie並彈窗操作過程
 Else
  usercookie = Trim(Request.Cookies("isopen")("user"))
  If InStr(Trim(Request.Cookies("isopen")("user")),"|")>0 Then '如果有cookie內容就判斷格式是否正確,否則轉入彈窗
   oldip = Split(usercookie,"|")(0) 'cookie裡的上次彈窗的IP記錄
   oldtime = Split(usercookie,"|")(1) 'cookie裡的上次彈窗的時間記錄
   If Trim(oldip) = Trim(userip()) Then '如同上次彈窗IP與現IP一樣就判斷時間差
    if DateDiff("h",oldtime,Now())>opentime then  '如果時間超過24小時就彈窗
    Call writecookie()  '記錄Cookie並彈窗操作過程
    Else
    '時間沒超過彈窗周期不操作
    End if
   Else '新IP訪問彈窗
    Call writecookie()  '記錄Cookie並彈窗操作過程
   End If
  Else
   Call writecookie()
  End If
 End If
End If

Sub writecookie()
 Response.Cookies("isopen").Expires=now+1
 Response.Cookies("isopen")("user") = UserIP()&"|"&Now()
 Response.Write "document.write('"&adstr&"');"
End Sub

Function UserIP()
Dim GetClientIP
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End Function
%>

引用方式: <script src="以上代碼檔案名稱alixixi.com.asp"></script>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。