防止网站内容被小偷采集的ASP代码

2017年02月06日 80 阅读

复制代码 代码如下:防止一般的采集以及小偷读取，加在顶部。同理，可以改造成JS脚本。<% DimAppealNum,AppealCount AppealNum=10"同一IP60秒内请求限制10次 AppealCount=Request.Cookies（"AppealCount"） IfAppealCount=""Then response.Cookies（"AppealCount"）=1 AppealCount=1 response.cookies...

ASP中过滤UBB和Html标签

2017年02月06日 89 阅读

我们存储在数据库中的内容是HTML格式的，但是有时候我们需要无格式的显示这内容，这是用正则表达式实现的过滤。复制代码 代码如下:<% functionnohtml（str） dimre Setre=newRegExp re.IgnoreCase=true re.Global=True re.Pattern="（<.[^<]*>）" str=re.replace（str,""） re.Pattern="（</[^<]*&g...

在线数据库管理工具（db007） v1.5

2017年02月06日 93 阅读

在线数据库管理工具 db007 下载：http://www.jb51.net/codes/6195.html复制代码 代码如下:<！-- "******************************** "*用途: "^以视图界面方式在线处理access、sql数据库 "*作者:官世杰 "*创建日期:2006-5-28 "*2006-06-04增加数据修改功能 "*2006-06-10增加了在空表中插入数据功能 "*2006-09-8增加修改字段名...

Response.Flush的使用心得

2017年02月06日 88 阅读

很多时候我们写的asp程序会因为做很多操作，所以会花上一分钟甚至几分钟时间。为了使软件使用者能够耐心的等待程序的执行，我们经常会希望有一个进度条来表示程序执行的状态。或者最起码要显示一个类似： “数据载入中”，“正在保存数据” 等的说明性文字。此时我们就会用到Response.flush（）。他会将缓冲区中编译完成的数据先发送到客户端。 但是有很多时候，我们发现即使我们使用了Response.Flush（），但是并没有将前面的信息发到客户端来显示。呈献...

域名查询系统用到的类

2017年02月06日 82 阅读

复制代码 代码如下:<% DimDomain SetDomain=NewCls_DomainFunctionClassCls_DomainFunction PrivatevListURL PrivateThief_ PrivatevDomainArr,vDomainName PrivatevLoopI PrivatevDomainsName,vDomainMainBody PrivateTLDCode PrivateRs,Sql PrivateExt...

检测函数 asp class

2017年02月06日 78 阅读

复制代码 代码如下:<% DimCmd SetCmd=NewCls_Command ClassCls_Command PrivateRe PublicFunctionIsPositiveInteger（value） SetRe=NewRegExp Re.Pattern="^[1-9][d]*$" Re.IgnoreCase=True Re.Global=True IsPositiveInteger=Re.Test（value） SetRe=Nothi...

利用ASP规划聊天室

2017年02月06日 73 阅读

经常在Internet上冲浪的网友恐怕很少有人没有去过聊天室胡乱神聊。你只要稍微留意一下就会发现这些聊天室大多是用CGI程序或者用JAVA开发的Applet维护的。开发过这类CGI或Applet的程序员都知道，这种开发工作是费时费力的。那么有没有一种更简单、省力的开发方式呢？答案是肯定的。 关于ASP的介绍有许多计算机杂志介绍过，在这里不在赘述。 一、聊天室的规划： 1、谈话内容储存方式的选择：在客户机上显示即时谈话的内容应以什么方式储存...

聊天室实现私聊第1/4页

2017年02月06日 75 阅读

几个要好的网友在聊天室里闲聊的时侯，总会遇上有些话题是不想同一聊天室内别的聊友看见的，那么聊天室支持悄悄话功能将是什分有必要的了，实现悄悄话的方法很多，现在小虎介绍一下利用session对象来实现它，用session对象来实现悄悄话，是有优缺点的，因为session对象的应用，其实就是客户端cookies的使用。如果客户端cookies不支持或关闭了，那么程序运行起来就有问题了。那么使用session对象就没好处了吗？？非也，至少在编程上大大减少了工作量嘛...

ASP怎么谈到应用到类的？

2017年02月06日 80 阅读

先摘录天极网扬老师一篇文章中的一段: 面向对象的程序设计 随着程序的设计的复杂性增加，结构化程序设计方法又不够用了。不够用的根本原因是“代码重用”的时候不方便。面向对象的方法诞生了，它通过继承来实现比较完善的代码重用功能。很多学生在应聘工作，面试的时候，常被问及一个问题“你来谈谈什么是面向对象的程序设计”，学生无言，回来问我，这个问题应该怎么回答。我告诉他，你只要说一句话就够了“面向对象程序设计是对数据的封装；范式（模板）的程序设计是对算法的封装。”后...

ASP程序代码执行时间统计类

2017年02月06日 93 阅读

第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等.复制代码 代码如下:ClassccClsProcessTimeRecorder "程序作者:明月星光 "作者主页:http://www.5iya.com/blog "http://www.kuozhanming.com "ASP程序代码执行时间统计类 PrivateccInti,ccIntNonceTime,ccIntDecimal PrivateccIntStartTime,ccIntEnd...

多域名绑定到一个空间访问不同首页的技巧

2017年02月06日 79 阅读

将多个域名绑定到一个空间，访问不同的首页。这样设立更多的子站点:） 空间内默认首页（通常是index.asp或default.asp）使用Request.ServerVariables（"HTTP_HOST"）获取用户访问时所使用域名，然后使用Select调用不同文件，可用Response.Redirect或Server.Transfer复制代码 代码如下:Dimcc_str_host_namecc_str_host_name=LCase（Request....

asp javascript在线管理

2017年02月06日 75 阅读

复制代码 代码如下:<%@LANGUAGE="JScript"CODEPAGE="936"%><%varsSelfPath=Server.MapPath（Request.ServerVariables（"SCRIPT_NAME"）（1））.toLowerCase（）;varsUrl=Request.ServerVariables（"URL"）（1）;varsAction=Request（"a"）+"";varsTarget=（Reques...

查询翻页优化第1/2页

2017年02月06日 82 阅读

复制代码 代码如下:<SCRIPTlanguage=VBSCRIPTRUNAT=SERVER> "//----COCOON_自定义类_翻页优化代码----//" Classcc_db_Pager "-------------------------------- "COCOONDb_Pager类（Ver:1.02） "作者:Sunrise_Chen（sunrise_chen@msn.com） "请保留此信息，谢谢。 " "2003/06修正一个...

强制刷新和判断文件地址

2017年02月06日 71 阅读

复制代码 代码如下:强制刷新网页<% "强制性刷新随机验证码 "让随机验证码每次按IE的后退按钮时，返回登录页面的随即码都自动刷新， Response.expires=-1 Response.AddHeader"pragma","no-cache" Response.AddHeader"cache-control","no-store" %> 判断文件地址是否有效复制代码 代码如下:<% "原创作者:小艺QQ:52093时间...

asp缓存类

2017年02月06日 85 阅读

至于缓存的作用，我想我也不用再多说了，它的作用已经很明显，特别是对于信息量非常大或是全数据库页面的网站，他能很好地利用主机的内存资源，加速ASP的执行效率，减轻服务器的负担，而动网在这一方面做得是最突出的，像他现在的dvbbs7.1.0版，更是在缓存的利用上更上一层楼，前后台大多的操作都和缓存有关，而现在动网里用的也就是迷城浪子的缓存类，下面列出动网的三大高手写的ASP缓存类 木鸟写的复制代码 代码如下:＇*************************...

asp中Byval与Byref的区别

2017年02月06日 94 阅读

文件名称:ByVal.aspByRef.asp具体代码:<%Sub TestMain（）Dim A : A=5Call TestBy（A）Response.write AEnd SubSub TestBy（ByVal T）T=T+1End subcall TestMain（）%><%Sub TestMain（）Dim A : A=5Call TestBy（A）Response.write AEnd SubSub TestBy（ByRef ...

全面认识ASP注入技巧

2017年02月06日 93 阅读

复制代码 代码如下:1.判断是否有注入 ;and1=1 ;and1=2 2.初步判断是否是mssql ;anduser>0 3.注入参数是字符 "and[查询条件]and""=" 4.搜索时没过滤参数的 "and[查询条件]and"%25"=" 5.判断数据库系统 ;and（selectcount（*）fromsysobjects）>0mssql ;and（selectcount（*）frommsysobjects）>0access 6....

ubbcode函数

2017年02月06日 74 阅读

复制代码 代码如下:<% PublicFunctionUbbCode（strContent） Dimre Setre=NewRegExp re.IgnoreCase=True re.Global=True "过滤危险脚本 re.Pattern="（</script>）" strContent=re.Replace（strContent,"</script>"） re.Pattern="（script:）" strContent...

newasp中下载类

2017年02月06日 75 阅读

复制代码 代码如下:<% "================================================ "函数名：SaveRemoteFile "作用：保存远程文件到本地 "参数：strFileName----保存文件的名称 "strRemoteUrl----远程文件URL "返回值：布尔值True/False "================================================ FunctionS...

newasp中main类

2017年02月06日 76 阅读

<% ConstIsDeBug=1 ClassNewaspMain_Cls Publicmembername,memberpass,membergrade,membergroup,memberid Publicmemberclass,menbernickname,Cookies_Name,CheckPassword PublicSiteName,SiteUrl,MasterMail,keywords,Copyright PublicInstallDi...