用asp实现网址和邮件地址的转换函数

网址和邮件地址的转换函数<% function URLconvert(str) convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while urlLocation<>urlLocationend urlLocation=instr(rightstr,"http://") urlLocationend=InStrRev(rightstr,"http://") finalstr=finalstr&left(rightstr,urlLocation-1) m...