hayden

额，还准备周末找时间～帅

戒聊

引用:

原帖由 yangjun 于 2007-12-12 05:19 发表
修改完以后，发表评论时的错误提示：


错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'SQLcomm'
/blogcomm.asp, 第 229 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE ...

由于之前我做了某些修改，也提供过修改方法，可能部分朋友已经修改过，所以这里用到了一个之前用的已经定义了的变量。请先搜索下是否有SQLcomm,log_commcomm,如有就OK，如没有，先插入一行dim SQLcomm,log_commcomm,谢谢指正。

戒聊

引用:

原帖由 yangjun 于 2007-12-12 05:34 发表
我看了一下我服务器后台的“服务器信息”这项显示：

关键组件: (缺少关键组件的服务器会对PJBlog2运行有一定影响)
　－ Scripting.FileSystemObject 组件: 支持
　－ MSXML2.ServerXMLHTTP 组件: 支持
　－ Mi ...

JMail.Message和CDONTS.NewMail两个邮件组件，看你的服务器是否支持，如不支持就没必要修改了。

isuny

问下哈，当如下代码作为单独的ASP文件时可以发信

引用:

<%
Set JMail = Server.CreateObject("JMail.Message")
                        JMail.silent = true
                        JMail.Logging = true
                        JMail.Charset = "gb2312"
                        JMail.MailServerUserName = "suny@loveshot.cn"
                        JMail.MailServerPassword = "******"   
                        JMail.From = "suny@loveshot.cn"
                        JMail.FromName ="suny"
                        JMail.AddRecipient "zi.m.xie@gmail.com","loveshot"
                        JMail.Subject = "您发表的文章已有客人发表了评论"
                        JMail.Body = "hehe"
                        JMail.Send("mail.loveshot.cn")
                        JMail.close
                        set JMail= nothing
%>

但插入到blogcomm.asp时却发不了不知为什么
blogcomm.asp片段

引用:

if post_DisKEY=1 then post_DisKEY=0 else post_DisKEY=1
'插入数据
Dim AddComm
AddComm=array(array("blog_ID",post_logID),array("comm_Content",post_Message),array("comm_Author",username),array("comm_DisSM",post_DisSM),array("comm_DisUBB",post_DisUBB),array("comm_DisIMG",post_disImg),array("comm_AutoURL",post_DisURL),Array("comm_PostIP",getIP),Array("comm_AutoKEY",post_DisKEY),array("comm_theurl",theurl))
DBQuest "blog_Comment",AddComm,"insert"
'Conn.ExeCute("INSERT INTO blog_Comment(blog_ID,comm_Content,comm_Author,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY) VALUES ("&post_logID&",'"&post_Message&"','"&username&"',"&post_DisSM&","&post_DisUBB&","&post_disImg&","&post_DisURL&",'"&getIP()&"',"&post_DisKEY&")")
   
   Set JMail = Server.CreateObject("JMail.Message")
                               JMail.silent = true
                        JMail.Logging = true
                        JMail.Charset = "gb2312"
                        JMail.MailServerUserName = "suny@loveshot.cn"
                        JMail.MailServerPassword = "******"   
                        JMail.From = "suny@loveshot.cn"
                        JMail.FromName ="suny"
                        JMail.AddRecipient "zi.m.xie@gmail.com","loveshot"
                        JMail.Subject = "您发表的文章已有客人发表了评论"
                        JMail.Body = "hehe"
                        JMail.Send("mail.loveshot.cn")
                        JMail.close
                        set JMail= nothing
Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)
Conn.ExeCute("update blog_Info set blog_CommNums=blog_CommNums+1")
Response.Cookies(CookieName)("memLastpost")=Now()
getInfo(2)
NewComment(2)
if memName<>empty then
  conn.execute("update blog_Member set mem_PostComms=mem_PostComms+1 where mem_Name='"&memName&"'")

end if
SQLQueryNums=SQLQueryNums+3
       
Response.Cookies("sunycookie")("issuny") =username
Response.Cookies("sunycookie")("messageid") =request.form("logID")
Response.Cookies("sunycookie").Expires=Date+365

ReInfo(0)="评论发表成功"
ReInfo(1)="<b>你成功地对该日志发表了评论</b><br/><a href=""default.asp?id="&post_logID&""">单击返回该日志</a>"
ReInfo(2)="MessageIcon"
Session(CookieName&"_LastDo")="AddComment"
postcomm=ReInfo
PostArticle post_logID

yangjun

引用:

原帖由 kkey0416 于 2007-12-12 13:14 发表



JMail.Message和CDONTS.NewMail两个邮件组件，看你的服务器是否支持，如不支持就没必要修改了。

这两个组件是必须同时存在吗?还是只要有一个就行？

PS：只要下载安装就可以了吗?需要做什么设置吗？

戒聊

引用:

原帖由 yangjun 于 2007-12-12 15:02 发表



这两个组件是必须同时存在吗?还是只要有一个就行？

PS：只要下载安装就可以了吗?需要做什么设置吗？

有其中一个就行了。推荐JMAIL。下载组件后在服务器上安装就OK了。

戒聊

引用:

原帖由 isuny 于 2007-12-12 14:38 发表
问下哈，当如下代码作为单独的ASP文件时可以发信

但插入到blogcomm.asp时却发不了不知为什么
blogcomm.asp片段

看似没错。应该是缺少了相关变量的定义。请按照提供方法修改。

yangjun

呵呵，LZ真是好人，先谢了~~~~

戒聊

呵呵。

yangjun

太帅了，LZ，成功实现
发图留念:




不过也有点小的bug，还请LZ再次出山，解决一下，嘿嘿：

1、smtp发件邮件和站长接收的邮箱不能相同，我试了的，两个都用yangjun@qq.com 无法收信，邮箱后台已打开smtp.后来把smtp换成了yangjun@foxmail.com 立即生效

2、文章评论后，收到的邮件里，链接地址正确，但留言时发过来的，显示无法找到模块。
如图：




我是在本机调试的，所以把那个 www.yangjun.cn 的前缀改成了本机名 http://yj/..............
但依然显示无法找到模块。
还有就是，那个邮件给的地址最后面的中文句号“。”怎么去掉？