仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 428|回复: 8
打印 上一主题 下一主题

[学习教程] ASP教程之[原创]24小时统一IP只弹一次弹窗源代码...

[复制链接]
分手快乐 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:49:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。
小妖女 该用户已被删除
沙发
发表于 2015-1-20 05:15:36 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
灵魂腐蚀 该用户已被删除
板凳
发表于 2015-1-25 20:47:24 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
兰色精灵 该用户已被删除
地板
发表于 2015-2-3 22:20:33 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
柔情似水 该用户已被删除
5#
发表于 2015-2-9 06:04:47 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
透明 该用户已被删除
6#
发表于 2015-2-27 02:49:53 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
不帅 该用户已被删除
7#
发表于 2015-3-8 19:16:21 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
精灵巫婆 该用户已被删除
8#
发表于 2015-3-16 12:28:22 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
小魔女 该用户已被删除
9#
发表于 2015-3-22 23:01:58 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 03:56

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表