众所周知,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文件需要自己设置。

文章 (RSS)