asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内不带任何广告代码 弥补了ASP相对与PHP的功能缺陷

								FunCtion ReplaceTags(Txt)
					StartI = Instr(Txt,"					If StartI = 0 Then
						ReplaceTags = Txt
						Exit FunCtion
					Else
						ReturnText = Mid(Txt,StartI)
						Endi = Instr(ReturnText,">")
						If Endi = 0 Then
							ReplaceTags = Txt
							Exit FunCtion
						Else
							ReturnText = Mid(ReturnText,1,Endi)
							ReplaceTags = ReplaceTags(Replace(Txt,ReturnText,""))
						End If
					End If
				End FunCtion
				%>