replacetags.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 19 行

<%
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
%>