首页 相关文章 网址和邮件地址的转换函数

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

<%
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 urlLocationurlLocation=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 ...[ 查看全文 ]

2016-01-29 标签:

网址和邮件地址的转换函数的相关文章

手机页面
收藏网站 回到头部