• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用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生成柱型体,折线图,饼图源代码提供了第1/3页
    下一篇:asp下最简洁的多重查询的解决方案
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    用asp实现网址和邮件地址的转换函数 用,asp,实现,网址,和,邮件,