ASP类的编写
ASP类
＝＝＝＝＝＝＝＝＝
使用VBS的ASP也能定义类的！本文将介绍定义、使用类的基本方法。
在ASP（特指使用VBS的ASP，下同）里，使用Class语句来声明一个类。语法如下：
Class 类名
End Class
类的定义、变量、属性和方法等都包含在Class...End Class块中。
下面就可以定义类的属性和方法了。正式讲属性、方法的定义之前，有一点必须了解：
在 Class 块中，成员通过相应的声明语句被声明为 Private 或 Public。被声明为 Privat
e 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对
Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Pub
lic。 在类的块内部被声明为 Public 的过程 (Sub 或 Function)将成为类的方法，Public
变量将成为类的属性。（摘自MS VBS参考）
现在，我们来定义个自行车的类：
Class bike
End Class
这样，就声明了一个名为bike的类。不过，它现在什么都不能做。要让它能做点什么，得往
里面加些东西。
一、私有变量
为了交换数据等操作，我们可以声明一些Class内部的私有变量。顾名思义，私有变量只能在
Class块中可见，外部是无法访问的。声明私有变量的语法是：
Private 变量名
例：Private bikename '声明了一个名为bikename的私有变量
现在，我们来完善一下bike类：
Class bike
'***以下四个变量仅在本类内可见****
Private bikename '车名
Private bikemodel '型号
Private bikedate '出厂日期
Private bikespeed '速度
End Class
二、方法：
之所以先讲方法，是因为定义方法对于大家来说相对熟悉。方法可以看作是函数，在VBS里可
以使用Sub和Function来定义函数（通常把SUB定义块叫“过程”），所以，定义方法和定义
函数（过程）的语法一样－－只要加上个Public就可以了－－当然，上面已经说了，Class块
中默认就是Public，所以可以省略不写：
Public Sub 方法名(参数)
'方法处理代码
End Sub
或
Public Function 方法名(参数)
'方法处理代码
End Function
（至于什么时候用Sub什么时候用Function并没规定，不过，一般，要求方法返回一个值就要
用到Function，否则就用Sub。）
一个简单的例子：
Public Sub speedUp() '加速
bikespeed = bikespeed + 1
End Sub
如此，我们的bike类就有了一个加速的功能，通过它，能使自行车的速度下降1
三、属性
有两种方式
相关文档：
'判断是否是数字（包括整数和浮点数）
function IsNumber(str)
if RegPatrn("^-?[1-9]\d*$",str) or RegPatrn("^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$",str) then
IsNumber=true
else
IsNumber=false
end if
end function
'正则表达式判断是否匹配
Function RegPatrn(patrn, strng)
RegPatrn = false
Di ......
ASP与ActiveX控件交互实战(一)
关键字:ASP,ActiveX控件,数字签名,安全
ActiveX控件运行在客户端。我们可以获得客户端的一些信息，如IC卡的信息,客户端的验证等等。但是ActiveX控件也有许多缺点：客户端的部署很困难，如客户端不能正确下载，下载了 ......
Array()
FUNCTION: 返回一个数组
SYNTAX: Array(list)
ARGUMENTS: 字符，数字均可
EXAMPLE: <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
%[/IMG]
RESULT: 建立了一个包含7个元素的数组myArray
� ......
ASP与JSP的比较
从微软推出了ASP(ActiveServerPage)后，它以其强大的功能，简单易学的特点而受到广大WEB开发人员的喜欢。但是它却有微软产品的通病,只能在Windows平台下使用，虽然它可以通过增加控件而在LINUX下使用，但是其功能最强大的DCOM控件却不能使用。而SUN公司在JAVA的基础下开发出的JSP(Java ServerPages)实现了� ......
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夹名字是：" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "该文件夹是一根文件夹" & "<br>"
Else
Resp ......
