ASP——替换、截取、数组对象、两种循环

最新推荐文章于 2024-07-04 00:19:28 发布

RZ_J9pp

最新推荐文章于 2024-07-04 00:19:28 发布

阅读量570

点赞数

分类专栏： ASP

本文链接：https://blog.csdn.net/RZ_J9pp/article/details/89740075

版权

ASP 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

//rs传参进来的
Dim arrTag : set arrTag=createobject("System.Collections.ArrayList")  //创建数组对象
    do while not rs.eof                    //while循环
		tags=rs("tag")
		tags=Replace(tags,"{@","")         //替换
		tags=Replace(tags,"@}"," ")
		tagitem=Split (tags," ")           //截取

		for each a in tagitem              //for循环

			if a<>"" and not IsExitInArray(arrTag,a) then     //判断数组中是否已经有该值
                arrTag.Add a               //向数组中添加数据
			end if

		next
		rs.movenext                         //进入下一次循环
	loop