悠悠博客 关注Ajax技术与web开发

本文介绍一种使用在vbscript中用来操作数组的class，大大加强了asp对于数组的处理能力。 作者的网站是 www.chinaCMS.org asp对数组操作要注意的一些问题： 1,LBound()和UBound()是取得数组里最小的和最大的索引值，并不是数组的长度， 数组的长度是:UBound()+1 2,有时要动态改变数组大小，所以要先声明一个空的数组: Dim arr() 使用这种方式声明的空数组如果用LBound()和UBound()取值的话会出现错误，但可以使用For Each:...

'----******************** TConnString *****************************---- '数据库连接字符串结构体 Class TConnString Public DBName,DBPath,DBServer,DBUser,DBPass,DBType End Class '----******************** TConnString *****************************---- '----*********...

这个类的思想原创自 DLL，我现在自己已经写到第三个版本了<%''================================================================''=            Power By Tim                      ...

常用的工具类Utility：<%Class UtilityPrivate RegPublic Function HTMLEncode(Str)If IsNull(Str) Or IsEmpty(Str) Or Str = "" ThenHTMLEncode = ""ElseDim S : S = StrS = Replace(S, "<", "<")S = Replace(S, ">...

看看下面的一个函数，摘自sxna：一个blog聚合程序，网站地址：http://www.sxna.cnPublic Function GetXml        on error resume next            Dim objXMLHTTP       &...

onreadystatechange指定当readyState属性改变时的事件处理句柄语法oXMLHttpRequest.onreadystatechange = funcMyHandler;Example如下的例子演示当XMLHTTPRequest对象的readyState属性改变时调用HandleStateChange函数，当数据接收完毕后（readystate == 4）此页面上的一个按钮将被激活var xmlhttp=null;function PostOrder(xmldoc)...

函数需要调用cmd和winrar.exe，一般只能以管理组启动这些程序，合适的权限分配下才能正常使用这个函数。需要使得匿名账户有执行权限，和ntfs文件系统的读写权限。没有自己服务器的还是算了。有些虚拟主机程式是支持解压缩和压缩的，实现的道理类似，无外乎就是winrar的使用。     要想实现这种功能，首先要得到Rar程序的解压缩核心文件支持（可以下载WinRar软件，再把其中的Rar.exe文件单独“拿”出来。），并且还需要Wi...

计算两个时间差的函数'******************************'||Function TimeDiff(sBegin, sEnd)'||本函数计算两个时间的差，可以不用更改直接使用'||作者：machinecat 2001/10/26'******************************'******************************'注：首先需要判断用户输入的sBegin与sEnd之间的大小'可以通过DataDiff函数获得两者之间的时间差，不需要进行...

RegReplace(str,regexStr,RepalceStr) 对str 进行正则替换 如： htmlstr = "123<img src="http://localhost/Files/File/2007-11/25/F81838A188DFD33KH1.gif""" border=""0"">45<b>6</b>" htmlstr2 = RegReplace(htmls...

'----------------------------------------------------------------''    checkStr'    过滤特殊字符，主要是去掉 SQL 关键词'    参数：'        str 需要被过滤的字符串'    返回值：字符串 (经过过滤后的字...

Asp(Active Server Page)是微软公司的产品，由于它编程很容易上手，能快速开发功能强大的动态网站，现在很多网站(特别是Intranet/Extranet内部网)采用了NT＋IIS＋Asp的模式，使得Asp成为目前较为流行的网站开发脚本语言。在WEB服务中，文件上载服务是一个很常见的功能，而WIN9X下的PWS没有提供相关组件；NT下的IIS提供了一个Post Acceptor组件，但由于它要检查用户的ＷＷＷ访问权限而变得不太好用；也可以从Internet上下载有关组件，但这些大...

在windows server2003中，cdonts的组件被删除了，只保留了cdo组件。CDO组件是cdonts的父级组件。但是网上很多地方说是用cdo组件发邮件的例子，其实都是cdonts组件的例子。这里给两个例子set cdomail=server.CreateObject ("CDO.Message") 这个是关键，创建的是cdo组件，而不是cdonts 'cdomail.MailFormat =0 这些属性在cdonts有，但是cdo中没有 'cdomail.Bod...

用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件. Dim connstr,conn Dim sql,rs,msg Sub OpenDB() ConnStr = "××××××" If Not IsObject(Conn) Then Set conn = CreateObject("Adodb.Connection") Conn.Open ConnStr ...

作者： David Email: davidnickAT126.com Blog:http://blog.iyi.cn/david写于：2005/01/08 版权声明：可以任意转载，转载时请务必以超链接形式标明文章原始出处和作者信息及本声明今天上网发现aspjpeg出了新的1.4版，下载来用了一下：aspjpeg1.4的安装界面好看多了，在windows2003下面也可以安装了。安装提示输入序列号，没有则保留空，我暂时随便输入12345-67890-12345，先看一下他的dll能不能...

wml文本处理　　WML使用XML文档字符集，目前支持Unicode 2.0，和HDML不同，WML的所有标签，属性和规定的可接收值必须小写，CARD的名字和变量也是区分大小写的。和HDML一样，对于连续的空字符，只显示一个空格。标签内属性的值必须用"或者'括起来，属性名，＝和值之间不能有空格。对于不成对出现的标签，必须在 > 前加 / ，比如<br/>。 保留字符 在对保留字符的处理上也基本相同，对应的取代字符有： 　　< &lt; 　　> &a...