aspでアドレスとメールアドレスの変換関数を実現します。

アドレスとメールアドレスの変換関数 URL convert(str)  convertstr=str url Location=instr if (url Location=0） and (メールLocation=0） then  URL convert=convertstr exit function end if url Location<>0 then rightstr=str Do while url Location<>urlLocationd urlLocation=instr(rightstr)=urlLocationd=Instruct(rightstr)=finalstr=finalstr&left(rightstr，urlLotican-1)finalstr=finalstr=light while (asc(midurlstr)>=45 and (asc(midurlstr)<=126)loopint=loopint+1 midurlstr=mid(rightstr，url Locatio+loopint，1)if midurlstr=" then exit ドゥloop endURLstr=mid(rightstr，urllocation，loopint)URLstr="0 then Do while mail Location<>mail Locationd mail Location=instr（convertstr 1、「@」）mail Locationd=InStarev（convertstr 1、「@」）manmidmalstr=mid（convertstr 1、mail Locationn n+1、1）midmail=midmail while (asc(midmalstr)>=45) and (asc(midmalstr)<=126)loopint 1=loopint 1+1 midmalstr=mid(convertstr 1、mail Locationn-loopint 1,1)loop firstSTR=mid(convertstr 1、mail Looptin-loopind t 1+1、loopintrons 1)filstra=fistr 1  ド while (asc(midmalstr 1)>=45) and (asc(midmalstr 1)<=126)loopint 2=loopint 2+1 midmalstr 1=mid(convertstr 1,mail Locationn+loopint 2,1)if midmail 1=" then exit do loop secondSTR=mid（convertstr 1、mail Location、loopint 2）endmalstr=firstSTR&secondSTR malstr="「finalstr=finalstr&malstr convertstr 1=mid(convertstr 1,mallo+loopint 2)loopint 1=1 loopint 2=1 Loopind if finalstr=finalstr&convertstr 1 URLconvert=finalstr end function%>