白发齐眉

在研究了下cdo.message组件和jmail组件之后，尝试了下，发现jmail容易乱码，而cdo.message却不大会发生乱码现象。

为了让msn spaces能够通过邮件发送生成日志，
首先，进入msn spaces下，“选项”-“邮件发布”，下开启邮件发布功能，并且选择“立即发布”。这样你将得到一个有密文的邮件地址，这个就是将来的日志收件人，假设为rain518.xxx@spaces.live.com
其次，新建一个空白asp文件，其内容为

[code]

<% public Function Send(strTitle,strBriefBody) On Error Resume Next SendMail="#err" err.Clear Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort=2 Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoSMTPEncoding="http://schemas.microsoft.com/cdo/configuration/languagecode" Const cdoBasic=1 Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields strBriefBody1=strBriefBody strTitle1=strTitle1 Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.xxx.com" '你的发送邮件所在的邮件smtp地址 .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "xxx" '你的发送邮件的登录名 .Item(cdoSendPassword) = "***" '你的发送邮件的密码 .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "rain518.xxx@spaces.live.com" '第一步设置中得到的日志收件地址 .From = "webmaster@baifaqimei.com" '这里显示发件人是谁 .Subject = strTitle .HTMLBody = strBriefBody .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing if err.number=0 then SendMail="#ok" End If end function %>

[/code]
命名为sendmail.asp文件

第三步，打开blogpost.asp文件，在第一行加入
[code]

[/code]

然后再57行左后，在
[code]
postLog = lArticle.postLog

[/code]
之后加入如下代码
[code]
dim strTitle,strBriefBody,strPre,strid
strBriefBody=lArticle.logMessage
strTitle=lArticle.logTitle
strPre= "

==========
白发齐眉网自动发送
==========

"

if len(strBriefBody)>300 then
strBriefBody =left(strBriefBody,300) & "…"
Else
strBriefBody = strBriefBody
end if

strid=Clng(lArticle.getid())

strBriefBody = Replace(strBriefBody,chr(13)&chr(10),"
")
strBriefBody= strBriefBody & "

点这里浏览完整的文章"
strBriefBody=strPre & strBriefBody

if Request.Form("checkbox")= "checkbox" then
Call Send(strTitle,strBriefBody)
end if
[/code]

第四步，修改
class\cls_logAction.asp文件
在50行左后，新加一个函数
[code]

public function getid()
sqlString="Select top 1 * FROM blog_Content orDER BY log_ID DESC "
weblog.Open sqlString,Conn,1,3
getid=weblog("log_ID")
weblog.close
end function

[/code]

本代码在pjblog v2.7 build05下通过没问题，应该在2.6上也是没问题的，只是可能blogpost文件的行数有点不一样，另，因本人时间匆忙，没来得及优化，参数传递以及变量的设置可能有多余，请看官自行修改。

附上修改好的文件，如pjblog没有修改过，可以直接覆盖更新。

点击下载此文件

不能保证一定正确，请修改前务必备份！

在邮件组件和微软邮件发布日志的联合下，测试能否使PJBlog与Msn Spaces是否能正确同步。

虽然在会计师事务所，虽然作的也是审计，但是不是传统的审计。
所谓的信息系统审计。

传统的审计就是看账做的对不对，是不是有什么舞弊阿，纂改阿什么的。

我们信息系统审计其实最终目的也是期望能通过对信息系统+环境的一系列评估之后，对这种“舞弊、纂改等”可能性进行评估，好让传统审计进行相应的样本量选择。但信息系统审计决不止步于这点。

先说辅助传统审计的信息系统审计工作。
随信息系统的逐步扩大，大部分的企业都通过 财务软件 以及相应的 ERP软件 进行日常的财务记账工作。

因此，我们通常的做法是对如下的东西进行了解和测试。
1. 信息系统的整体一般控制。 了解这个一般包括“程序变更”，“逻辑访问”以及“其他诸如备份阿，计划任务”。一般就是希望变更有申请者、授权者，操作者等相应的审批以及不同的职责人进行作业；逻辑访问呢一般就是关注密码相关以及权限的范围是否合适。
2. 具体的财务软件的应用控制。财务软件内部在销售-〉收现 以及财务关账等方面一般都会有相应的控制以防止不适当的人进行非法修改或删除。我们一般看这种控制是否有，以及其有效程度。
3.适当的可能去从客户财务数据中抽取部分数据，然后通过重新计算得出其值。

其实，信息系统审计应该有很多方向的拓展。
在其他方面，可以从事诸如系统分析员的角色。在企业开发或外包系统的时候信息系统审计师可以介入，参与整个开发周期以及项目管理上起监督作用。
在企业的日常IT运营中，也可以对企业的IT使命以及其各种IT测率和执行力度进行监督。

因此，个人感觉信息系统审计应该在会计师事务所以及企业内部审计中可以起很大作用。

因完成任务，当初办的N张信用卡最近陆续都来了。今天一下子领了7封挂号信，加上原来的一共8张留了个影。。。后面不知道还有几张，还有其他银行的，自己也搞不清办了多少，唉。。。

筒子们，你们的卡也应该快了。。。