网址和邮件地址的转换函数
- <%
- 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
- %>