 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--jmail.asp--> <script language=VBScript runat=server> function SendMail(SMTPServer,sender,mailto,subject,msg)\\\'这个是一个函数，在程序中可以直接调用。 dim JMail \\\'on error resume next \\\'等待功能扩充 Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.LazySend = true \\\'这个属性是将邮件放入缓冲直至发出为止，的不到任何的错误信息 JMail.Charset = "euc-kr" \\\'设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312" JMail.ContentType = "text/html" \\\'这个邮件的头设置， 默认为 "text/plain" 能设置成你需要的任何情况。 \\\'你想发送HTML信息,改这个头文件为 "text/html" JMail.ServerAddress =SMTPServer \\\'SERVER的地址。可以有很多的SERVER地址，后可跟端口号 JMail.Sender = sender\\\'邮寄的地址 JMail.Subject = subject\\\'邮件的标题。 JMail.AddRecipient mailto\\\'加入一个收件者 JMail.Body = msg \\\'UBBCode(htmlencode(MSG))E-Mail的主体 JMail.Priority = 1\\\'邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")\\\'addheader加入一个头信息 \\\'remote_addr发出哀求的机器的IP地址 JMail.Execute\\\'执行邮件发送到SERVER set jMail=nothing if err then \\\'检测 SendMail=err.description err.clear else SendMail="OK" end if end function </script> <% \\\'调用说明： strHTML = "<table width=""80%"" border=""1"">" &chr(13) &chr(10) \\\'这里需要加上两个" strHTML = strHTML & " <tr>" &chr(13) &chr(10) \\\'chr(13)硬回车chr(10)软回车 strHTML = strHTML & "<td align=""center"" valign=""middle"">HELLO~!</td>" &chr(13) &chr(10) strHTML = strHTML & "</tr>" &chr(13) &chr(10) strHTML = strHTML & "</table>" smtpserver="mail.sh163.net:25" sender="juliet@sh163.net" subject="HEY!" msg="<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>" mailto=email\\\'收信人email call SendMail(SMTPServer,sender,mailto,subject,msg)\\\'调用函数 %> 返回类别: 教程 上一教程: 论坛中有新贴子功能的实现 下一教程: 用STREAM读文件 您可以阅读与"JMAIL发信实例，可直接调用"相关的教程: · 一个用JMAIL发信的过程，及使用方式.使用时直接调用就行 · JMAIL发信的实例,模块化随时调用 · 如何直接调用EXCEL数据 · ASP直接调用EXCEL数据的例子（不用ODBC） · ASP直接调用EXCEL数据的例子 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
