如题，看到某些朋友需要，花了会儿功夫弄了出来。
作者：戒聊。
发布网址：
www.muzili.com
请注意修改步骤。特别是第4.1,4.2和第8步。
如有疑问，请到
http://www.muzili.com/article.asp?id=7832留言。
１。打开COMMON下的FUNCTION.ASP,在最后一个
复制内容到剪贴板
代码:
%>之前插入下列代码
复制内容到剪贴板
代码:
Function sendmail(username,post_logID,email_commid,email_log_title,comm,post_Message) '邮件发送
if trim(blog_jmail)="1" then
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = blog_smtpuser
msg.MailServerPassword = blog_smtppassword
msg.From = blog_smtpmail
msg.FromName = sitename
msg.AddRecipient blog_email,sitename
If comm=1 Then
msg.Subject = "您发表的文章《"&email_log_title&"》已有客人发表了评论"
msg.Body = "["&username&"]在您的博客中发表了评论,请点击查"&siteurl&"default.asp?id="&post_logID&"#comm_"&email_commid&"。评论内容如下："&post_Message&""
Else
msg.Subject = "您的博客已有客人留言"
msg.Body = "["&username&"]在您的博客中发表了留言,请点击查看"&siteurl&"LoadMod.asp?plugins=GuestBookForPJBlog#book_"&email_commid&"。留言内容如下："&post_Message&""
End if
msg.Send(blog_smtp)
msg.close
set msg = nothing
Else
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = blog_email
objMail.From =blog_smtpmail
If comm=1 Then
objMail.Subject = "您发表的文章《"&email_log_title&"》已有客人发表了评论"
objMail.Body = "["&username&"]在您的博客中发表了评论,请点击查看"&siteurl&"default.asp?id="&post_logID&"#comm_"&email_commid&"。评论内容如下："&post_Message&""
Else
objMail.Subject = "您的博客已有客人留言"
objMail.Body = "["&username&"]在您的博客中发表了留言,请点击查看"&siteurl&"LoadMod.asp?plugins=GuestBookForPJBlog#book_"&email_commid&"。留言内容如下："&post_Message&""
End if
objMail.Send
Set objMail = Nothing
End If
End Function
'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
set TestObj=nothing
End sub２。打开blogcomm.asp，找到
复制内容到剪贴板
代码:
Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)由于之前我做了某些修改，也提供过修改方法，可能部分朋友已经修改过，所以这里用到了一个之前用的已经定义了的变量。请先搜索下是否有SQLcomm,log_commcomm,如有就OK，如没有，先插入一行dim SQLcomm,log_commcomm,谢谢yangjun.cn指正。
在之上插入如下代码：
复制内容到剪贴板
代码:
dim email_commid
SQLcomm="SELECT TOP 1 * FROM blog_Comment WHERE comm_Author='"&username&"' Order By comm_ID Desc "
Set log_commcomm=conn.execute(SQLcomm)
email_commid=log_commcomm("comm_ID")
log_commcomm.Close
Set log_commcomm=Nothing
dim email_log_title
SQLcomm="SELECT * FROM blog_Content WHERE log_ID="&post_logID&""
Set log_commcomm=conn.execute(SQLcomm)
email_log_title=log_commcomm("log_Title")
log_commcomm.Close
Set log_commcomm=Nothing
call sendmail(username,post_logID,email_commid,email_log_title,1,post_Message)３。打开plugins\guestbook\bookaction.asp，找到如下代码
复制内容到剪贴板
代码:
Response.Cookies(CookieName)("bookLastPost")=DateToStr(now(),"Y-m-d H:I:S")由于之前我做了某些修改，也提供过修改方法，可能部分朋友已经修改过，所以这里用到了一个之前用的已经定义了的变量。请先搜索下是否有SQLcomm,log_commcomm,如有就OK，如没有，先插入一行dim SQLcomm,log_commcomm,谢谢yangjun.cn,gayhi.cn指正。
在下面插入如下代码：
复制内容到剪贴板
代码:
SQLcomm="SELECT TOP 1 * FROM blog_book WHERE book_Messager='"&username&"' Order By book_ID Desc "
dim email_bookid
Set log_commcomm=conn.execute(SQLcomm)
email_bookid=log_commcomm("book_ID")
log_commcomm.Close
Set log_commcomm=Nothing
call sendmail(username,"",email_bookid,"",0,post_Message)４。打开common\cache.asp，找到
复制内容到剪贴板
代码:
" from blog_Info"在上面插入以下代码：
复制内容到剪贴板
代码:
"blog_smtp,blog_smtpuser,blog_smtppassword,blog_jmail,blog_smtpmail" & _并将其上一行的末尾的
复制内容到剪贴板
代码:
" &_"之前插入英文逗号。
找到
复制内容到剪贴板
代码:
'=========================日志基本信息缓存=======================
Sub getInfo(ByVal action)在其上插入如下代码：
复制内容到剪贴板
代码:
dim blog_smtp,blog_smtpuser,blog_smtppassword,blog_jmail,IsObj,msg,objMail,VerObj,TestObj,blog_smtpmail找到
复制内容到剪贴板
代码:
blog_version="在其上插入以下代码：
复制内容到剪贴板
代码:
blog_smtp=trim(blog_Infos(*,0))'SMTP地址
blog_smtpuser=trim(blog_Infos(*,0))'SMTP用户名
blog_smtppassword=trim(blog_Infos(*,0))'SMTP密码
blog_jmail=trim(blog_Infos(*,0))'发送邮件组件
blog_smtpmail=trim(blog_Infos(*,0))'发送邮箱说明：上一步修改中涉及到的blog_Infos(*,0)中间的*，请从此上一行的blog_Infos(*,0)中的*+１开始序列，依次加１。比如原blog_version="上一行的blog_Infos(*,0)中的*为１，那么刚才这一步中的*依次为2，3，4，5，6
４.１找到
复制内容到剪贴板
代码:
IF Not IsArray(Application(CookieName&"_blog_Infos")) or action=2 Then在其前加入
复制内容到剪贴板
代码:
'注释掉。
４.２找到
复制内容到剪贴板
代码:
Else
blog_Infos=Application(CookieName&"_blog_Infos")
End IF在每一行之前加入
复制内容到剪贴板
代码:
'注释掉。
５。打开ConContent.asp，找到：
复制内容到剪贴板
代码:
<tr>
<td width="180"><div align="right"> 站长邮件地址 </div></td>
<td align="left"><input name="blog_email" type="text" size="50" class="text" value="<%=blog_email%>"/></td>
</tr>在下面插入：
复制内容到剪贴板
代码:
<tr>
<td width="180"><div align="right"> 邮件发送组件 </div></td>
<td align="left"><select name="blog_jmail">
<option value="1" <%if trim(blog_jmail)="1" then response.write "selected"%>>
<%
ObjTest("JMail.SmtpMail")
If IsObj then
response.write "支持JMail.SmtpMail"
Else
response.write "不支持JMail.SmtpMail"
End If
%>
</option>
<option value="0" <%if trim(blog_jmail)="0" then response.write "selected"%>>
<%
ObjTest("CDONTS.NewMail")
If IsObj then
response.write "支持CDONTS.NewMail"
Else
response.write "不支持CDONTS.NewMail"
End If
%>
</option>
</select>请选择您的服务器所支持的邮件发送组件</td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP服务器 </div></td>
<td align="left"><input name="blog_smtp" type="text" size="50" class="text" value="<%=blog_smtp%>"/></td>
</tr>
<tr>
<td width="180"><div align="right">发件信箱 </div></td>
<td align="left"><input name="blog_smtpmail" type="text" size="50" class="text" value="<%=blog_smtpmail%>"/></td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP用户名 </div></td>
<td align="left"><input name="blog_smtpuser" type="text" size="50" class="text" value="<%=blog_smtpuser%>"/></td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP密码 </div></td>
<td align="left"><input name="blog_smtppassword" type="password" size="50" class="text" value="<%=blog_smtppassword%>"/></td>
</tr>找到：
复制内容到剪贴板
代码:
Response.Cookies(CookieNameSetting)("ViewType")=""在其上插入：
复制内容到剪贴板
代码:
weblog("blog_smtp")=trim(Request.form("blog_smtp"))
weblog("blog_smtpuser")=trim(Request.form("blog_smtpuser"))
weblog("blog_smtppassword")=trim(Request.form("blog_smtppassword"))
weblog("blog_jmail")=trim(Request.form("blog_jmail"))
weblog("blog_smtpmail")=trim(Request.form("blog_smtpmail"))６。下载附件，解压，上传update.asp到博客所在目录执行升级数据库。
７。后台更新缓存。
８。还原４.１和４.２步。即取消注释。（这一步必须在这里才能打开，否则网站会打不开。）
９。请确定后台的基本设置中的BLOG 地址是否为http://***.*/，即前面的http://和尾部的/，否则邮件中的地址不能打开。这里我没做判断。
１０。在后台的基本设置中选择你的服务器所支持的邮件发送组件，如选择JMAIL，请填写SMTP相关信息。
１１。更新缓存。
[
本帖最后由 戒聊 于 2008-3-16 03:16 编辑 ]
![[PJblog^3]技术支持论坛 - PJBLOG SUPPORT FORUM](images/phpwind/logo.gif){kind=logo}
