asp通过JMAIL实现通用发送函数_应用技巧

<%
'******************************
'函数：SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
'参数：MailtoAddress,接收邮件地址；MailtoName,接收者姓名；ubject,主题；ailBody,邮件内容；FomName,主送姓名；ailFrom,主送邮件地址；riority,邮件等级
'作者：阿里西西
'日期：2007/7/13
'描述：JMAIL通用发送函数
'示例：<%=SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)%>
'******************************
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
 on error resume next
 Dim JMail
 Set JMail=Server.CreateObject("JMail.Message")
 if err then
  SendMail= "<br><li>没有安装JMail组件</li>"
  err.clear
  exit function
 end if
 JMail.Charset="gb2312"      
 JMail.silent=true
 JMail.ContentType = "text/html"  
 JMail.MailServerUserName = MailServerUserName  
    JMail.MailServerPassWord = MailServerPassword      
   JMail.MailDomain = MailDomain      
 JMail.AddRecipient MailtoAddress,MailtoName   
 JMail.Subject=Subject        
 JMail.HMTLBody=MailBody   
 JMail.Body=MailBody         
 JMail.FromName=FromName      
 JMail.From = MailFrom       
 JMail.Priority=Priority          
 JMail.Send(MailServer)
 SendMail =JMail.ErrorMessage
 JMail.Close
 Set JMail=nothing
end function%>

时间： 2024-03-18 02:09:56

asp通过JMAIL实现通用发送函数_应用技巧的相关文章

asp通过JMAIL实现通用发送函数

<% '****************************** '函数:SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '参数:MailtoAddress,接收邮件地址:MailtoName,接收者姓名:ubject,主题:ailBody,邮件内容:FomName,主送姓名:ailFrom,主送邮件地址:riority,邮件等级 '作者:阿里西西 '日期:2007/7/13 '描述

Asp.Net实现的通用分页函数_实用技巧

本文实例讲述了Asp.Net实现的通用分页函数.分享给大家供大家参考,具体如下: 功能: 1.每页设置显示9页,超过9页,点5页后的+1页显示(可以随便修改) 2.CSS样式自己可以设置 3.无任何咋代码产生,利于搜索引擎优化 分页程序 objPDS = new PagedDataSource(); objPDS.DataSource = dtTable.DefaultView;//绑定数据源 objPDS.AllowPaging = true; objPDS.PageSize =10;//分页

asp检测是否为中文字符函数_应用技巧

<% '****************************** '函数:CheckChinese(strng) '参数:strng,待验证字符 '描述:检测是否为中文字符,返回值:中文为true,否则false '示例:<%=CheckChinese(strng)%> '****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx

asp中实现清除html的函数_应用技巧

这个函数是必需要的,很多黑客来捣乱,黑掉数据库,会注入大量的病毒js,在存储和展示文本数据的时候,使用此函数过滤一下,可避免不少麻烦 clearhtml代码 '清除HTML代码 function clearhtml(content) content=replacehtml("[^>]*;","",content) content=replacehtml("</?marquee[^>]*>","",con

asp遍历目录及子目录的函数_应用技巧

<%@ Language=vbscript %>  <%   '遍历目录以及目录下文件的函数  %>  <%    Function Bianli(path)      Set Fso=server.createobject("scripting.filesystemobject")        On Error Resume Next      Set Objfolder=fso.getfolder(path)      Set Objsubfolde

asp在线执行sql语句的函数_应用技巧

复制代码 代码如下: function gfv(str)     gfv = request.form(str) end function sub executesql      dim content:content = gfv("content")      on error resume next      conn.begintrans      conn.execute(content)      if err.number <> 0 then          

asp下IP地址分段计算函数_应用技巧

IP地址分段计算 <script language="JScript" Runat="Server"> function IPDeCode(EIP){ var Ip1,Ip2,Ip3,Ip4; Ip1 = moveByteR(EIP & 0xff000000,3); Ip2 = moveByteR(EIP & 0x00ff0000,2); Ip3 = moveByteR(EIP & 0x0000ff00,1); Ip4 = EIP

asp是的日期转换为星座的函数_应用技巧

复制代码 代码如下: function astro(birth) astro="" if birth="" or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth<10 then birthmonth="0" & birthmonth birthday=day(birth) : if birthday<10 then bir

asp.net简化接收参数值的函数_实用技巧

/// <summary> /// 获取querystring /// </summary> /// <param name="s">参数名</param> /// <returns>返回值</returns> public string q(string s) {     if (Request.QueryString[s] != null)     {         return Request.QueryS