ASP教程之[原创]24小时统一IP只弹一次弹窗源代码...
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。原创|源代码|弹窗<%作者:阿里西西
网址: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要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。 跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组 尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。 弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。 以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。 不能只是将它停留在纸上谈兵的程度上。
页:
[1]