用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=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
%>

赞 (0)

相关推荐

  • asp.net发送邮件示例分享

    mailhelper  -------mail帮助类 复制代码 代码如下: using System;using System.Collections.Generic;using System.Linq;using System.Web;using System.Web.Mail; /// <summary>///mailhelper 的摘要说明/// </summary>public class mailhelper{    public mailhelper()    {   

  • ASP.Net邮箱发邮件实例代码

    复制代码 代码如下: public static void SendEmail()    { System.Net.Mail.SmtpClient client = new System.Net.Mail.SmtpClient();        //这里使用QQ的邮箱来发送测试,如果是其它邮箱,请根据其它邮箱POP3/IMAP/SMTP服务来设置 client.Host = "smtp.qq.com";        client.UseDefaultCredentials = fa

  • asp.net发送邮件实现方法

    本文实例讲述了asp.net发送邮件的实现方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: MailMessage mailMsg = new MailMessage();    //设置收件人的邮件地址    mailMsg.To = "bailichunwow@qq.com ";        //设置发送者的邮件地址    mailMsg.From = "bailichun@vip.qq.com ";    //设置邮件主题    mail

  • Jmail组件发送邮件之绝对能用的函数

    大致如下: 1,POP3对象,是对POP3邮件接收服务器的操作.2,Messages对象,是有关邮件集合的对象.3,Message对象,是有关邮件的对象,其是Jmail组件最常用的对象,能发送邮件信息,也能接收邮件信息.4,Header对象,是与邮件头相关的对象.5,Recipients对象,是有关接收邮件集合的对象.6,Recipient对象,是有关接收邮件的对象.7,Attachments对象,是有关邮件附件集合的对象.8,Attachment对象,是有关邮件附件的对象.9,MailMerg

  • asp.net2.0实现邮件发送(测试成功)

    asp.net2.0实现邮件发送(测试成功)

    1.Default.aspx代码如下: 复制代码 代码如下: <%@ Page Language="C#" AutoEventWireup="true"  CodeFile="Default.aspx.cs" Inherits="_Default" ValidateRequest="false" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTM

  • asp.net发邮件的几种方法汇总

    MailMessage提供属性和方法来创建一个邮件消息对象.通常可以先构建好MailMessage对象,然后设置它的属性的方式来构建邮件程序. 常用的属性:From -- 发送邮件的地址To -- 接受邮件的地址Subject -- 邮件的标题Priority -- 邮件的优先级(有效值为High,Low,Normal)Attachments -- 返回一个集合,代表附件Bcc -- 密送地址Cc -- 抄送地址Body -- 获取或是设置电子邮件消息的内容BodyFormat -- 获取或是设

  • .net jMail邮件发送(含抄送、密送、多发、日志记录)实例代码

    jmail是一个第三方邮件操作组件,通常位于web服务器端,实现收邮件及发邮件功能(客户端用Foxmail这类就很好了).可以利用它轻松实现发邮件.抄送.密送.多发.日志记录及收邮件功能.本章要讲的,就是:发邮件.抄送.密送.多发.日志记录. 一.组件准备下载JMail44_pro并安装(记下安装路径) 找到安装路径,将其中的jmail.dll复制到项目中 二.核心发送代码新建MailAPI.cs,并输入以下代码 复制代码 代码如下: using System;using System.Coll

  • asp+JMAIL实现发送邮件

    本文利用asp和JMAIL实现了发送邮件,大家是不是很好奇这到底是怎么实现的呐,和小编一起一探究竟吧! Global.asa文件 什么是Global.asa 文件?它其实是一个可选文件,程序编写者可以在该文 件中指定事件脚本,并声明具有会话和应用程序作用域的对象.该文件的内容不是用来给用户显示的,而是用来存储事件信息和由应用程序全局使用的对象.该 文件的名称必须是 Global.asa 且必须存放在应用程序的根目录中.每个应用程序只能有一个 Global.asa 文件.内容如下: <script

  • Jmail 图文安装教程 asp在线发送邮件组件

    Jmail 图文安装教程 asp在线发送邮件组件

    常用组件主要包括Aspjpeg.Jmail.LyfUpload.动易.ISAPI_ReWrite等,本文就仅说这5种,其他类型组件可以根据需要安装,安装方法以此类推. 下载Jmail,现在免费版本的最高版是Jmail4.5,点击后面的链接下载:点此下载JMail4.5: 下载解压到任意目录,或者直接执行JMail45_free.msi: 执行后开始安装,出现安装界面如下图点击Next先选择"I accept the license agreement" ,再点击Next  出于安全考虑

  • ASP用JMail、CDO发送邮件

    前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子: 首先是jmail.smtpmail的核心代码:  程序代码 <%   Set jmail = Server.CreateObject("JMAIL.SMTPMail")   '创建一个JMAIL对象   jmail.silent = true   'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE   jmail.logging = 

  • Jmail发送邮件与带附件乱码解决办法分享

    Jamil发送邮件的具体用法: 首先,我们要先下载Jamil.dll的组件,然后添加引用using jmail,然后再本机或者服务器上注册一下 将jmail.dll拷贝到服务器的system32目录下,开始-运行-cmd-输入regsvr32 jmail.dll,注册成功,然后写代码 代码如下(方法) 复制代码 代码如下: using jmail;    protected void sendMail(String sender, String senderMail, String receiv

  • asp jmail发邮件 详细解析第1/2页

    发个个比较详细的asp与jmail 实现发送邮件的代码,前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子: 首先是jmail.smtpmail的核心代码:   复制代码 代码如下: <%   Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象   jmail.silent = true 'JMAIL不会抛出例外错误,返回的

  • asp.net发邮件示例

    复制代码 代码如下: protected void SendMail(){try{string CreaterName = "";string examiner = "";List<string> mailList = GetMailList(ref CreaterName, ref examiner); MailEntity me = new MailEntity();MailEntity me_1 = new MailEntity(); me.Add

随机推荐