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

密码丢了Cao

密码丢了Cao

2016-01-29 19:49

网址和邮件地址的转换函数,网址和邮件地址的转换函数
<%
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
展开更多 50%)
分享

猜你喜欢

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

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

AJAX和WebService实现邮箱验证(无刷新验证邮件地址是否合法)

Web开发
AJAX和WebService实现邮箱验证(无刷新验证邮件地址是否合法)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

如何从MAC系统Mail复制邮件地址时去除联系人名称

电脑入门
如何从MAC系统Mail复制邮件地址时去除联系人名称

Email+URL的判断和自动转换函数

PHP
Email+URL的判断和自动转换函数

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

将Excel中联系人的邮件地址批量导入到邮箱以126邮箱为例

软件教程 电脑应用 excel
将Excel中联系人的邮件地址批量导入到邮箱以126邮箱为例

怎么删除地址栏里的网址

电脑入门
怎么删除地址栏里的网址

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

在Linux中通过三方软件添加和删除程序

在Linux中通过三方软件添加和删除程序

用Linux系统防火墙伪装抵住黑客攻击

用Linux系统防火墙伪装抵住黑客攻击
下拉加载更多内容 ↓