服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 用asp实现网址和邮件地址的转换函数

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

2019-10-04 17:44asp教程网 ASP教程

网址和邮件地址的转换函数 % function URLconvert(str) convertstr=str urlLocation=instr(convertstr, http:// ) if (urlLocation=0)and(mailLocation=0)then URLconvert=convertstr exit function end if if urlLocation0then rightstr=str Do while urlLocationurlLocationend urlLoca

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

  1. <%  
  2. function URLconvert(str)   
  3. convertstr=str  
  4. urlLocation=instr(convertstr,"http://")  
  5.  
  6. if (urlLocation=0) and (mailLocation=0) then   
  7. URLconvert=convertstr  
  8. exit function  
  9. end if  
  10.  
  11. if urlLocation<>0 then  
  12. rightstr=str  
  13. Do while urlLocation<>urlLocationend  
  14. urlLocation=instr(rightstr,"http://")  
  15. urlLocationend=InStrRev(rightstr,"http://")  
  16. finalstr=finalstr&left(rightstr,urlLocation-1)  
  17. midurlstr=mid(rightstr,urlLocation+1,1)  
  18. do while (asc(midurlstr)>=45) and (asc(midurlstr)<=126)  
  19. loopint=loopint+1  
  20. midurlstr=mid(rightstr,urlLocation+loopint,1)  
  21. if midurlstr="" then exit do  
  22. loop  
  23. endURLstr=mid(rightstr,urllocation,loopint)  
  24. URLstr="<a href="&endURLstr&">"&endURLstr&"</a>"  
  25. rightstr=mid(rightstr,urllocation+loopint)  
  26. finalstr=finalstr&URLstr  
  27. loopint=1  
  28. Loop   
  29. end if  
  30. finalstr=finalstr&rightstr  
  31.  
  32. convertstr1=finalstr  
  33. finalstr=""  
  34. mailLocation=instr(convertstr1,"@")  
  35. if mailLocation<>0 then  
  36. Do while mailLocation<>mailLocationend  
  37. mailLocation=instr(convertstr1,"@")  
  38. mailLocationend=InStrRev(convertstr1,"@")  
  39. mainmidmailstr=mid(convertstr1,mailLocation+1,1)  
  40. midmailstr=mainmidmailstr  
  41. do while (asc(midmailstr)>=45) and (asc(midmailstr)<=126)  
  42. loopint1=loopint1+1  
  43. midmailstr=mid(convertstr1,mailLocation-loopint1,1)  
  44. loop  
  45. firstSTR=mid(convertstr1,mailLocation-loopint1+1,loopint1-1)  
  46.  
  47. finalstr=finalstr&left(convertstr1,mailLocation-loopint1)  
  48.  
  49. midmailstr1=mainmidmailstr   
  50. do while (asc(midmailstr1)>=45) and (asc(midmailstr1)<=126)  
  51. loopint2=loopint2+1  
  52. midmailstr1=mid(convertstr1,mailLocation+loopint2,1)  
  53. if midmailstr1="" then exit do  
  54. loop  
  55. secondSTR=mid(convertstr1,mailLocation,loopint2)  
  56.  
  57. endmailstr=firstSTR&secondSTR  
  58. mailstr="<a href=mailto:"&endmailstr&">"&endmailstr&"</a>"  
  59. finalstr=finalstr&mailstr  
  60. convertstr1=mid(convertstr1,maillocation+loopint2)  
  61. loopint1=1  
  62. loopint2=1  
  63. Loop  
  64. end if  
  65. finalstr=finalstr&convertstr1  
  66. URLconvert=finalstr  
  67. end function  
  68. %>  

延伸 · 阅读

精彩推荐