1月 2006的归档

1 16 2006

这么晚才考试，不爽

学校让考研的爽了一把，把期考放在考研之后，还居然还间隔几天，以便复习。郁闷。这种烂课在大二大三都好费力，居然放在大四，我们学院真的疯了，毕业设计又因为两个系主任意见不合弄得悬而未决，下学期二月中旬就要去北京了。还一堆烂事。寒假前看来又没时间玩了。寒假后就忙着拜年而已。最后一个寒假，就这么无聊过了！

Shot alternate link for this article: 这么晚才考试，不爽Tags: hust

Comments 沒有留言 »

1 13 2006

让z-blog的更新在msn messenger上可以显示

由goodbee发布于计算人生

众所周知，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

Shot alternate link for this article: 让z-blog的更新在msn messenger上可以显示

4 Comments »

1 13 2006