函数要求能实现以下asp函数的功能。

<%
function retpf(str,wz)
dim newzf,ycd,delzf,xzfl,xzfr,wzarr   '新的字符,原字符的长度,要去掉的字。
newzf=str
   wzarr=split(wz,"|")
   for i=0 to ubound(wzarr)
   xzfl=left(newzf,cint(wzarr(i))-1)
   xzfr=right(newzf,len(newzf)-wzarr(i))
   newzf=xzfl+"~"+xzfr
   next
   newzf=Replace(trim(newzf),"~","")
retpf=newzf
%>

函数功能描述：
将表中的一个字段按wz这个变量去掉相应位置的字符。

比如：有一个字段 nn，其中一条记录为"落伍者站长交流平台"，
那么函数retpf(nn,'1')=伍者站长交流平台
        retpf(nn,'1|3')=伍站长交流平台
        retpf(nn,'1|3|7')=伍站长交平台