|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。原创|源代码|弹窗<%
作者:阿里西西
网址:http://www.alixixi.com
申明:接待利用根源码程序,敬请坚持本信息.
24小时同1IP只弹一次
间接输出网址来的不弹
弹过一次后,在翻开别的有弹窗代码的页面就不要弹了
最好是用JS援用,如许你静态页面也能够用
Dimviewhistory,Referer,usercookie
Dimmydomain,reurl,oldip,oldtime
Dimopentime,adstr
opentime=24设定统一IP弹窗周期,单元:小时
mydomain="alixixi.com"网站域名
adstr="<scriptlanguage=""javascript""src=""http://alixixi.com/indexgg.js""></script>"告白同盟弹窗代码,<script>...</script>相似的弹窗代码,注重单双引号的写法
Referer=CStr(Request.ServerVariables("HTTP_REFERER"))获得会见来历
If(Referer="")Then假如为空判别是间接会见,不然为经由过程搜刮引擎或别的网站进进
reurl=mydomain
Else
IfInStr(Referer,mydomain)>0Then
reurl=mydomain
Else
reurl="search"
EndIf
EndIf
Ifreurl="search"Then假如用户是经由过程内部链接进到本站时就判别是不是凌驾24小时后弹窗
IfTrim(Request.Cookies("isopen")("user"))=""then假如用户第一次会见弹窗
Callwritecookie()纪录Cookie并弹窗操纵历程
Else
usercookie=Trim(Request.Cookies("isopen")("user"))
IfInStr(Trim(Request.Cookies("isopen")("user")),"|")>0Then假如有cookie内容就判别格局是不是准确,不然转进弹窗
oldip=Split(usercookie,"|")(0)cookie里的前次弹窗的IP纪录
oldtime=Split(usercookie,"|")(1)cookie里的前次弹窗的工夫纪录
IfTrim(oldip)=Trim(userip())Then好像前次弹窗IP与现IP一样就判别工夫差
ifDateDiff("h",oldtime,Now())>opentimethen假如工夫凌驾24小时就弹窗
Callwritecookie()纪录Cookie并弹窗操纵历程
Else
工夫没凌驾弹窗周期不操纵
Endif
Else新IP会见弹窗
Callwritecookie()纪录Cookie并弹窗操纵历程
EndIf
Else
Callwritecookie()
EndIf
EndIf
EndIf
Subwritecookie()
Response.Cookies("isopen").Expires=now+1
Response.Cookies("isopen")("user")=UserIP()&"|"&Now()
Response.Write"document.write("&adstr&");"
EndSub
FunctionUserIP()
DimGetClientIP
GetClientIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfGetClientIP=""orisnull(GetClientIP)orisempty(GetClientIP)Then
GetClientIP=Request.ServerVariables("REMOTE_ADDR")
endif
Userip=GetClientIP
EndFunction
%>
援用体例:<scriptsrc="以上代码文件名alixixi.com.asp"></script>
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|