众所周知,msn可以显示space的更新,让自己的好友及时看到自己新发布了日志,而一般的blog由于没有IM的集成当然不可能有这个便利的,但是,msn space提供了邮件发布功能。于是,借助邮件,可以把自己的blog及时同步到space中。

我是用jmail实现的,首先要有jmail页面。

<%
public Function Send(objArticle)
     dim jmail
  Set jmail = Server.CreateObject("JMAIL.Message")   ‘建立发送邮件的对象
     jmail.silent = true    ‘屏蔽例外错误,返回FALSE跟TRUE两值j
     jmail.logging = true   ‘启用邮件日志
     jmail.Charset = "utf-8"     ‘邮件的文字编码为国标
     jmail.ContentType = "text/html"    ‘邮件的格式为HTML格式
     jmail.AddRecipient "
 xxxxxxx@spaces.msn.com"    ‘邮件收件人的地址
  jmail.AddRecipient ""
     jmail.From = "
xxxxxxx@xxx.com"   ‘发件人的E-MAIL地址
     jmail.MailServerUserName = "xxxxxxxx"     ‘登录邮件服务器所需的用户名
     jmail.MailServerPassword = "*******"     ‘登录邮件服务器所需的密码
     jmail.Subject = objArticle.Title   ‘邮件的标题
     jmail.HTMLBody ="<html><head><meta http-equiv=""content-type"" content=""text/html;charset=utf-8""></head><body>"                

jmail.AppendHTML(objArticle.Content)
   jmail.AppendHTML("</body></html>") ‘邮件的内容
     jmail.Send("smtp.163.com")     ‘执行邮件发送(通过邮件服务器地址)
     jmail.Close()   ‘关闭对象
End Function
%>

其中收件人发件人要和msn space中的设置一致,要为发件人的邮箱设置相应的登陆用户名密码,和邮件服务器地址,将此文件存放在网站根目录中(也可存放在其他目录,不过待会儿的设置也要相应改变)。

 打开cmd.asp文件,在include语句中加一句

<!– #include file="sendmail.asp" –>

其中文件名要和你保存的相同,并且路径要正确。

然后打开c_system_event.asp 文件,在函数PostArticle()的最后部分, If objArticle.Post Then前添加红色字体的语句。

 if Request.Form("checkbox")= "checkbox" then
      Call Send(objArticle)
 end if

 If objArticle.Post Then
   Call BuildArticle(objArticle.ID)
   PostArticle=True
 End If

最后更改你的编辑页面,比如我使用的是fckeditor编辑器,就打开edit_fckeditor.asp页面,在合适的地方添加源码

   <label>
   <input type="checkbox" name="checkbox" value="checkbox" />
   发送到msn</label>

保存以上网页,在编辑文章时,如果勾选了发送到msn前的复选框,就会在提交的时候把文章发送到你的space上面。

 

下载文件:

请自行备份,切勿直接覆盖。如果你曾经修改过这几个文件,请按本文自己动手添加。sendmail.asp文件需要自己设置。

http://www.yinux.com/upload/senmail.rar

留言