vbs(asp)的栈类
来源:互联网 发布:阿里云开发框架 编辑:程序博客网 时间:2024/05/01 06:05
本文作者:不详
所属分类:代码乐园
加入时间:2004-11-5
点击次数:3302
用js可以用array对象很容易的实现栈的功能,但在vbs中没有相应的功能,没办法,只有自己动手了:(
如果你的栈不了解请查看数据结构的相关内容。这个栈类是参照c++的栈类写的,用法一样。用这个类你也可以很方便的修改出队列的类:)
<%
'**********************************************
' vbs栈类
' push(string)进栈
' getTop取栈顶元素
' pop去掉栈顶元素
' isempty是否栈空
' isfull是否栈满(pMax设置了大小,可自行修改)
'
' 木鸟 2002.10.10
' http://www.aspsky.net/
'**********************************************
class Stack
private pArr, pString, pMax
private tab
private sub class_initialize()
tab=chr(9)
pMax=1000 '最大容量
end sub
private sub class_terminate()
if isarray(pArr) then
erase pArr
end if
end sub
public function push(str)
if str<>"" and instr(str,tab)<1 and not Isfull then
if isarray(pArr) then
pString=join(pArr,tab)
end if
pString=pString & tab & str
pArr=split(pString,tab)
push=true
else
push=false
end if
end function
public function GetTop()
if not isarray(pArr)<0 then
GetTop=null
else
if ubound(pArr)<0 then
GetTop=null
else
GetTop=pArr(Ubound(pArr))
end if
end if
end function
public function Pop()
if not isArray(pArr) then
Pop=false
else
if Ubound(pArr)<0 then
Pop=false
else
pString=join(pArr,tab)
pString=left(pString,inStrRev(pString,tab)-1)
pArr=split(pString,tab)
Pop=true
end if
end if
end function
public function Isempty()
if not isArray(pArr) then
Isempty=true
else
if Ubound(pArr)<0 then
isempty=true
else
isempty=false
end if
end if
end function
public function Isfull()
if not isArray(pArr) then
Isfull=false
else
if ubound(pArr)<pMax then
Isfull=false
else
Isfull=true
end if
end if
end function
end class
%>
来 源:http://www.aspsky.net/
- vbs(asp)的栈类
- vbs(asp)的栈类
- vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用
- VBS、ASP代码语法加亮显示的类
- HTML转换ASP的vbs代码
- paip.asp vbs代码的排版格式化
- vbs的类模板
- VBS类的使用方法
- vbs类的使用方法
- VBS类的使用方法
- vbs类的使用方法
- 一个ASP中的Debug类(VBS)
- VBS的MD5封装类
- vbs 类的使用示例
- asp,vbs调webservice
- JSON asp(vbs)源文件
- WScript对象的VBS,VBScript,Javascript,ASP例程
- 菜鸟蹒跚学ASP-自动生成Insert语句的VBS
- JS写的cookie类
- 有空研究一下,^_^
- 用鼠标拖动表格进行排序.
- POI读写Excel文件
- 有害食物的“解药”
- vbs(asp)的栈类
- 线性表
- 母校情怀--福建煤炭工业学校
- 在ASP中判断SQL语句是否执行成功
- 一分钟学会使用修复的stl库摆脱MSVCP60.dll
- linux安装配置jdk1.5、tomcat5.5、eclipse3.2详解
- 追MM与设计模式
- 给爱一个容器
- 解析Windows系统文件的完全清除