用asp实现网址和邮件地址的转换函数-巨人网络通讯

网址和邮件地址的转换函数
%
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=finalstrleft(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=finalstrURLstr
loopint=1
Loop
end if
finalstr=finalstrrightstr

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=finalstrleft(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=firstSTRsecondSTR
mailstr="a href=mailto:"endmailstr">"endmailstr"/a>"
finalstr=finalstrmailstr
convertstr1=mid(convertstr1,maillocation+loopint2)
loopint1=1
loopint2=1
Loop
end if
finalstr=finalstrconvertstr1
URLconvert=finalstr
end function
%>

您可能感兴趣的文章:

ASP用JMail、CDO发送邮件
Jmail组件发送邮件之绝对能用的函数
asp jmail发邮件详细解析
asp.net2.0实现邮件发送(测试成功)
Jmail 图文安装教程 asp在线发送邮件组件
ASP.Net邮箱发邮件实例代码
.net jMail邮件发送(含抄送、密送、多发、日志记录)实例代码
asp.net发邮件的几种方法汇总
Jmail发送邮件与带附件乱码解决办法分享
asp.net发送邮件示例分享
asp.net发邮件示例
asp.net发送邮件实现方法
asp+JMAIL实现发送邮件

标签：儋州宣城锡林郭勒盟广元七台河新余江门雅安

巨人网络通讯声明：本文标题《用asp实现网址和邮件地址的转换函数》，本文关键词用,asp,实现,网址,和,邮件,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。