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

　　推荐阅读

　　asp下的一个很简单的验证码程序第1/3页

主程序共三个 我的调用方式 <script language="javascript" src="/verify/num.asp"></script> 验证方式 if trim(Loginnum)<>trim(session("Loginnum")) then Response.Write Error("验证码错误！") Response.E>>>详细阅读

本文标题：用asp实现网址和邮件地址的转换函数

地址：http://www.17bianji.com/kaifa2/ASP/32346.html

 1/2    1