网址和邮件地址的转换函数

     <%
  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)
  midurlstr=mid(rightstr,urlLocation+1,1)
  do while (asc(midurlstr)>=45) and (asc(midurlstr)<=126)
  loopint=loopint+1
  midurlstr=mid(rightstr,urlLocation+loopint,1)
  if midurlstr="" then exit do
  loop
  endURLstr=mid(rightstr,urllocation,loopint)
  URLstr="<a href="&endURLstr&">"&endURLstr&"</a>"
  rightstr=mid(rightstr,urllocation+loopint)
  finalstr=finalstr&URLstr
  loopint=1
  Loop
  end if
  finalstr=finalstr&rightstr
  convertstr1=finalstr
  finalstr=""
  mailLocation=instr(convertstr1,"@")
  if mailLocation<>0 then
  Do while mailLocation<>mailLocationend
  mailLocation=instr(convertstr1,"@")
  mailLocationend=InStrRev(convertstr1,"@")
  mainmidmailstr=mid(convertstr1,mailLocation+1,1)
  midmailstr=mainmidmailstr
  do while (asc(midmailstr)>=45) and (asc(midmailstr)<=126)
  loopint1=loopint1+1
  midmailstr=mid(convertstr1,mailLocation-loopint1,1)
  loop
  firstSTR=mid(convertstr1,mailLocation-loopint1+1,loopint1-1)
  finalstr=finalstr&left(convertstr1,mailLocation-loopint1)
  midmailstr1=mainmidmailstr
  do while (asc(midmailstr1)>=45) and (asc(midmailstr1)<=126)
  loopint2=loopint2+1
  midmailstr1=mid(convertstr1,mailLocation+loopint2,1)
  if midmailstr1="" then exit do
  loop
  secondSTR=mid(convertstr1,mailLocation,loopint2)
  endmailstr=firstSTR&secondSTR
  mailstr="<a href=mailto:"&endmailstr&">"&endmailstr&"</a>"
  finalstr=finalstr&mailstr
  convertstr1=mid(convertstr1,maillocation+loopint2)
  loopint1=1
  loopint2=1
  Loop
  end if
  finalstr=finalstr&convertstr1
  URLconvert=finalstr
  end function
  %>
  
  

原文转自：http://www.ltesting.net