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

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

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. %>