vbdecode.inc

来自「这是一个不错的ASP的翻页程序,和大家一起分享。」· INC 代码 · 共 30 行

<%
function vbDecode(str)  		'string decode
	str=replace(str,"!","")
	str=replace(str,"<","")
	str=replace(str,">","")
	str=replace(str,"&","")
	str=replace(str,"\","")
	str=replace(str,"/","")
	str=replace(str,"(","")
	str=replace(str,")","")
	str=replace(str,"+","")
	str=replace(str,"-","")
	str=replace(str,"*","")
	str=replace(str," ","")
	str=replace(str,"'","&acute;")
	vbDecode=str
end function

Function execRE(re, rp, content)
	set oReg = New RegExp
	oReg.Pattern = re
	oReg.Global=True
	Set Matches = oReg.Execute(content)
  	For Each Match in Matches      'replace them
		content=replace(content,Match.value,rp)
  	Next

	execRE = content
End Function
%>