VBScript5中增加了许多新功能，最振奋人心的当属类和正则表达式的出现。以下是本人写的一个解析html代码的类。我是学php的，语法有不习惯的地方，请大家多包含。 % Class HTMLParse ’ 设置 Initialize 事件。 Private Sub Class_Initialize myGlobal = True myIgnoreCa...

2008-02-23 09:34:08

使用记录集持久性，可以将 Recordset 数据和元数据保存为文件。随后，使用持久文件来重新建立 Recordset 对象。持久文件可以保存在本地驱动器、网络服务器上或者作为 URL 保存在 Web 站点上。 另外，GetString 方法将 Recordset 对象转换成表单，在表单中列和行使用指...

2008-02-23 09:34:05

补充最新修改版，使用Unicode的字符代码，而不是非unicode（负数值，有时会出错）代码 ゴ ガ ギ グ ゲ ザ ジ ズ ヅ デ ド ポ ベ プ ビ パ ヴ ボ ペ ブ ピ バ ヂ ダ ゾ ゼ 当字段内包含了这26个日文字符任意一个多个时,就会导致在执行SQL语句中包含了 [字段] like '猘aa%...

2008-02-23 09:34:06

% imgpath="company_01.jpg" set pp=new imgInfo w = pp.imgW(server.mappath(imgpath)) h = pp.imgH(server.mappath(imgpath)) set pp=nothing response.write "img src='"imgpath"' border=0br宽:"w";高:"h Class imgInfo dim aso Private Sub Class_Initialize set...

2008-02-23 09:34:03

%'定义xmlhttp function GetXmlText(Url) dim GetXmlHttp set GetXmlHttp=server.Createobject("Microsoft.XMLHTTP") GetXmlHttp.open "Get",url,false,"","" GetXmlHttp.Send 'GetXmlText=GetXmlHttp.Responsetext GetXmlText=GetXmlHttp.ResponseBody set GetXmlHttp...

2008-02-23 09:33:58

首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而我们要从数据库中读出来图片的数据显示到网页上面要用到的...

2008-02-23 09:33:55

% '日期函数包DataPackage % script language="javascript" function IsDateString(Str) !-- { // 校验是否YYYY-MM-DD格式的日期型数据，返回值为True成功，否则返回False // 如果传递的是空字符串则返回False // 定义分隔符 var sSplit="-" var iYearPos=Str.indexOf(s...

2008-02-23 09:33:56

head % '生成 css 类 ，用于设置表格 cssClassName="t" cssClassNameMaxID=400 cssClassNameMinID=1 minWidth=50 Response.Write "style" Response.Write vbcrlf for i=cssClassNameMinID to cssClassNameMaxID Response.Write "." cssClassName i Response.Write "{cu...

2008-02-23 09:33:49

一、实现方法 一个书写日志的函数，提供几个参数，用户程序调用这个函数就可以实现日志的记录。日志记录到xml文件中，日志文件按日期生成，每天新建立一个日志文件，文件名为：yyyy_mm_dd.xml，分别用了年月日。而查看日志也日常简单，用户想看哪天的日志，只要直接调...

2008-02-23 09:33:49

使用 Command 对象查询数据库并返回 Recordset 对象中的记录，以便执行大量操作或处理数据库结构。取决于提供者的功能，某些 Command 集合、方法或属性被引用时可能会产生错误。 可以使用 Command 对象的集合、方法、属性进行下列操作： 使用 CommandText 属性定义命令...

2008-02-23 09:33:48