论坛贴子回复通知
感谢gold－yys提供代码分享
--------------------------------------------------------------------------------
以下内容为需要回复才能浏览
行数在修改之后会发生变化 改的时候仔细一点
1、bbs_data表添加emailflag字段，类型tinyint
2、forum_write.asp
在 sub forum_write_chk()下边 添加 dim emailflag
在77行左右 tcolor=trim(request.form("tcolor")) 下边添加 emailflag=request.form("emailflag")
在122行左右 rs("sys")=user_sys下边添加 rs("emailflag")=emailflag
在293行左右
改：
<% if int(login_modep)=1 then %>
高级选项：
固顶 总固顶 精华 锁定
<% end if %>
为：
高级选项：
不通知
邮件通知
短信通知
邮件和短信通知
<% if int(login_modep)=1 then %>
固顶 总固顶 精华 锁定
<% end if %>
3、文件forum_edit.asp
在21行下面添加 dim emailflag
在61行左右tim=rs("tim")下边添加 emailflag=rs("emailflag")
在104行左右word=request.form("jk_word") 下面添加 emailflag=request.form("emailflag")
在138行左右rs("word")=word&word_edit 下面添加 rs("emailflag")=emailflag
在224行左右
改：
<% if int(login_modep)=1 then %>
高级选项：
显示编辑信息
<% if is_topic then %>
> 固顶 > 总固顶 > 精华 > 锁定
<% end if %>
<% end if %>
为：
高级选项：
>不通知
>邮件通知
>短信通知
>邮件和短信通知
<% if int(login_modep)=1 then %>
显示编辑信息
<% if is_topic then %>
> 固顶 > 总固顶 > 精华 > 锁定
<% end if %>
<% end if %>
4、文件 forum_reply.asp
在sub forum_reply_chk() 下面 添加 dim emailflag
在83行左右 word=request.form("jk_word")下面添加 emailflag=request.form("emailflag")
在118行左右 rs("sys")=user_sys 下面添加
if emailflag="" then
rs("emailflag")=0
else
rs("emailflag")=emailflag
end if
在137行左右application.unlock 下面添加 call forum_emailflag()
查找
<%response.write jk_em("write_frm","jk_word")%>
在下面添加
高级选项：
不通知
邮件通知
短信通知
邮件和短信通知
在文件最后一个%>符号之前添加
'***********************************
''作用：回贴通知过程
''http://www.jswz.com
''@gold-yys(夜夜夜游神)
''QQ:216640
''没有判断用户多次重复通知
'***********************************
sub forum_emailflag()
dim eemail,eusername,stit,sbody,rse
sql="select id,forum_id,reply_id,username,topic,emailflag from bbs_data where emailflag>0 and username<>'"&login_username&"' and reply_id="&viewid
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,1,1
do while not rs.eof
if rs("emailflag")=2 or rs("emailflag")=3 then
call joekoe_cms.exec("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&rs("username")&"','"&web_dim(3)&"','系统信息：贴子回复通知！','您在论坛发表的贴子"&rs("forum_id")&"&view_id="&rs("reply_id")&" target=_blank>《"&rs("topic")&"》有新的回复请点击查看！','"&joekoe_cms.now_time&"',1,0)",0)
end if
if rs("emailflag")=1 or rs("emailflag")=3 then
eusername=rs("username")
sql="select email from user_data where username='"&eusername&"'"
set rse=joekoe_cms.exec(sql,1)
if not rse.eof then
eemail=rse(0)
rse.close
stit="贴子回复通知！"
sbody="您在论坛发表的贴子："& _
vbcrlf& _
vbcrlf&"《"&rs("topic")&"》"& _
vbcrlf& _
vbcrlf& "有新的回复,请点击查看！"& _
vbcrlf& _
vbcrlf&""&joekoe_cms.web_urls&"forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("reply_id")&""
call send_mail(eusername,eemail,stit,sbody)
end if
end if
rs.movenext
loop
rs.close
end sub
完
会员区*发表文章
主题： 
：2005/1/23 12:08:05
返回列表