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

2017年02月06日 72 阅读

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

ASP中利用execute实现动态包含文件的方法

2017年02月06日 103 阅读

摘要：本文介绍了ASP中动态包含ASP文件，并使其中ASP类（Class）可实例化的方法。 ASP中，includefile/virtual是优先脚本代码处理的，所以无法使用include动态包含ASP文件。我们可以使用Execute函数动态执行所需代码。 方法： Execute（ASP代码） 例子：（vbCrLf为换行符） 复制代码 代码如下:Execute（"ClassclsAbc"&vbCrLf&"PublicFunctionoutput"&vbCr...

asp中向文本框输出数据原样式的函数

2017年02月06日 67 阅读

从数据库输出信息时有转换函数，可以将回车空格按原样式输出。这段代码可向文本框原样输出代码。复制代码 代码如下:Functioncc_f_textarea_html_encode（cc_f_t_h_e_str） IfNotIsNull（cc_f_t_h_e_str）Andcc_f_t_h_e_str<>""Then cc_f_t_h_e_str=Replace（cc_f_t_h_e_str,">",">"） cc_f_t_h_e_st...

ADODB.Stream组件Charset属性值集合

2017年02月06日 76 阅读

翻了半天MSDN后找到的,|后边是别名复制代码 代码如下:ANSI_X3.4-1968|iso-8859-1 ANSI_X3.4-1986|iso-8859-1 arabic|iso-8859-6 ascii|iso-8859-1 ASMO-708 Big5 chinese|gb2312 CN-GB|gb2312 cp1256|windows-1256 cp367|iso-8859-1 cp819|iso-8859-1 cp852|ibm852 cp866...

关于ASP代码的加密的几个方法

2017年02月06日 96 阅读

1.MSSCRIPTENCODE 基本上没什么用了,一段JS就可以破解 2.封装成DLL 比较可行的方法,有通过VB封装成DLL的例子,而且无需改动很多代码,修改方便,调用时也很简单.缺点是需要注册DLL控件,虚拟主机通常不能达到这一要求. 封装时可在代码里加入主机域名判断的代码,不对则拒绝运行,不过提倡封装类,而展现逻辑还是留在ASP文件里吧,呵呵 案例:动易CMS 不过VB属于解释型语言,似乎可以反编译 3.使用NETBOX 国人开发的一款ASP服务器...

支持权重的无组件ASP广告显示代码

2017年02月06日 67 阅读

网站同一显示很多广告？需要不同权重？简单的20行代码。复制代码 代码如下:Dimcc_fv_ad_468_80_code,cc_fv_ad_power,cc_fv_ad_i "广告权重显示明月星光Copyrighthttp://www.5iya.com/blog原创 cc_fv_ad_power=Array（1,3,2,4）"设置每个广告权重 Redimcc_fv_ad_ubound（Ubound（cc_fv_ad_power）） cc_fv_ad_ubo...

ASP下实现自动采集程序及入库的代码

2017年02月06日 86 阅读

最近网上流行着一些采集程序,更多人拿着这些东西在网上叫卖,很多不太懂的人看着那些程序眼羡,其实如果你懂一些ASP,了解自动采集程序的原理后,你会感觉实现自动化也是那么的简单. 原理及优点:通过XML中的XMLHTTP组件调用其它网站上的网页，然后批量截取或替换原有的信息使其转化成变量后再一一储存到数据库中。其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时省力的目的。与其单纯的ASP小偷程序不同的是:它已经不再依...

asp实现的7xi音乐网的采集源代码

2017年02月06日 70 阅读

共5个文件： 2个是配置文件： 配置文件： cfg.txt"---保存检测ID信息的，第一次采集时设为1，从小到大检测 cfg.asp"---ASP的配置信息，内容如下： 复制代码 代码如下:<% """ """╔=======================================╗ """┆┆ """┆@系统:7xi音乐采集系统Version2.0┆ """┆@模块:配置文件┆ """┆@创建:2006/07/24┆ """┆@作者:D....

asp读取远程文件并保存到本地代码

2017年02月06日 96 阅读

<% dimact,ifLogin,loginUrl,loginActUrl,loginData,fileUrl,fileName act=request.QueryString（"act"） if（act="do"）then ifLogin=Cint（request.QueryString（"ifLogin"）） loginActUrl=request.Form（"loginActUrl"） loginData=request.Form（"logi...

用asp+xmlhttp编写web采集程序

2017年02月06日 66 阅读

web采集程序？网页抓取程序？小倫程序？不管怎么叫，这种程序应用倒是蛮广的。本文不讨论这种使用这种程序引起的版权或道德问题，只谈这种程序在ASP+VBScript环境下的实现:-） 预备知识：除了一般的ASP+VBScript的知识外，你还需要了解xmlhttp对象和正则表达式对象。xmlhttp对象是时下风头正劲的Ajax的主角；而学好了正则表达式，你再也不用为处理复杂的字符串犯愁。 在编写和调试正则表达式时，RegEx这个小工具非常有用。 目录 抓取一...

为什么ASP中执行动态SQL总报错误信息？提示语句语法错误

2017年02月06日 76 阅读

问：为什么ASP中执行动态SQL总报错误信息？提示语句语法错误 答： 有时候写ASP用conn.execute（sql）查询、更新、插入Access数据库数据时，明明正确的语句却往往会显示sql语句错误，相当恼火，特进行了归纳，可适当为字段添加“［”、“］”解决： 复制代码 代码如下:例１：select*froma 如出现错误，可改为：select*from[a] 例２：UPDATE[user]SETpassword=""&data1&""wheresec...

ASP中实现限制IP的函数详解

2017年02月06日 67 阅读

"****************************** "FunctionCheckIp（cInput_Ip,cBound_Ip） "Createdbyqqdao,qqdao@263.net2001/11/28 "说明：首先需要根据;号循环，然后判断是否含有"-"，如果有则进行拆分处理，最后判断是否在范围内 "参数：cInput_Ip,代检查的ip "cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*...

Asp下实现限制IP访问的程序代码

2017年02月06日 60 阅读

<% ""获取访问者的地址 ip=Request.ServerVariables（"REMOTE_ADDR"） ""允许的IP地址段为10.0.0.0～10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.writecheckip（ip,allowip1,allowip2） functioncheckip（ip,allowip1,allowip2） dimcheck（4） c...

asp下DateDiff 函数参数说明

2017年02月06日 88 阅读

DateDiff函数 描述 返回两个日期之间的时间间隔。 语法 DateDiff（interval,date1,date2[,firstdayofweek][,firstweekofyear]]） DateDiff函数的语法有以下参数： 参数描述 interval必选。字符串表达式，表示用于计算date1和date2之间的时间间隔。有关数值，请参阅“设置”部分。 date1,date2必选。日期表达式。用于计算的两个日期。 firstdayofweek可选...

Highlight patterns within strings

2017年02月06日 67 阅读

复制代码 代码如下:"Replacespatternwithhighlightedreplacement（usingstyle）andpreservescase PublicFunctionhighlight（strText,strFind） DimobjRegExp,i,strHighlight "Splitthesearchtermsintoanarray DimarrFind arrFind=Split（strFind,""） "Initialize...

Insert Date and Time into Access

2017年02月06日 71 阅读

<% FunctionAccessDateTime（dateandtime） DimmyDay DimmyMonth DimmyYear myDay=Day（dateandtime） IfLen（myDay）=1ThenmyDay="0"&myDay myMonth=Month（dateandtime） IfLen（myMonth）=1ThenmyMonth="0"&myMonth myYear=Year（dateandtime） AccessDat...

asp下调试程序的debug类

2017年02月06日 92 阅读

ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有三十几个response.write，天，调试完后把这三十个一个个删除，累！ 今天看到一个ASP中的Debug类（VBS），试用了一下，绝！ 使用方法很简单： test.asp <！--#INCLUDEFILE="debuggi...

RESPONSE.WRITE和&amp;lt;%=%的区别

2017年02月06日 67 阅读

RESPONSE.WRITE与<%=%>都是ASP程序向客户端输出字符串的方法，虽然两者的结果相同但是其效果是不同的。 一般的来说我们大部分时间将<%=%>用于html与asp代码相混合的状态下，而Response.Write用于〈％……％〉脚本段中，但从VBScript语法<%=expression%>将“表达式”的值写入ASP输出流来分析这个方法可以发现。如果响应缓冲没有打开，则这些语句的每一句都会导致通过网络，以许...

用asp实现网页邮箱访问的方法

2017年02月06日 77 阅读

希望大家支持点击广告！ 前些日子在群里头有位朋友问到怎么实现在网页上的邮箱访问功能现在将从网上看到的网站载了下来，便人便已。这个是html的代码您在访问网站时是否会在有些页面上见到这种功能---您在可以访问此网站的同时，还可以查看您免费邮箱中是否有新邮件。这个功能是不是让您觉得很心动、很神秘呢？下面，我就用ASP来举个例子让您知道是如何实现这一功能的。 首先你可以去一些提供免费邮件服务的站点，申请一个账号然后登录。在打开邮箱时，请您注意地址栏中的内容。...

编写一个含二级目录的源码（Asp+JavaScript）

2017年02月06日 82 阅读

**********************（一）打开记录集,创建数组,把记录集的值赋给数组. <% Dimcount setRs=server.createobject（"adodb.recordset"） Sql="select*fromBookBoardorderbyClassIddesc" Rs.openSql,cn,1,1%> <scriptlanguage="JavaScript"> varonecount; oneco...