快捷!方便!欢迎您用QQ登录华夏吴氏网 会员区*发表文章   设为首页 繁体中文 用户登录 我要投稿 公众号1:worldwucom 公众号2:cwu2015

 | 首页 | 资讯 | 图库 | 社区 | 祝福 | 文化 | 风水 | 企业 | 书籍 | 网建 | 纪念馆 | 
查看所有留言 签写新的留言 | 源流寻根 | 网友留言 | 网建平台 | 切换到留言本方式
  主题: 回复:《华夏吴氏》2005版修改情况 :2005/1/23 12:08:05


用户
吴卫东
<% 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 %> <% 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() 查找 在下面添加 在文件最后一个%>符号之前添加 '*********************************** ''作用:回贴通知过程 ''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 完
论坛贴子回复通知 感谢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 %>
高级选项: 固顶 总固顶 精华 锁定
高级选项: 不通知 邮件通知 短信通知 邮件和短信通知 <% if int(login_modep)=1 then %> 固顶 总固顶 精华 锁定 <% end if %>
高级选项: 显示编辑信息 <% if is_topic then %> > 固顶 > 总固顶 > 精华 > 锁定 <% end if %>
高级选项: >不通知 >邮件通知 >短信通知 >邮件和短信通知 <% if int(login_modep)=1 then %> 显示编辑信息 <% if is_topic then %> > 固顶 > 总固顶 > 精华 > 锁定 <% end if %> <% end if %>
<%response.write jk_em("write_frm","jk_word")%>
高级选项: 不通知 邮件通知 短信通知 邮件和短信通知
 返回列表
1 条贴子   首页 | 上一页 | 1 | 下一页 | 尾页 6条贴子/页  转到第

回 复 留 言
姓  名:
性  别:
邮  箱:
留言主题:


留言内容:
是否隐藏: 正常 隐藏 * 选择隐藏,只有管理员可见。
验 证 码: *

 

 

| 关于我们 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 服务专用QQ :116539779 点击这里给我发消息
版权所有 Copyright © 1997-2009 China Mrs.Wu, All Rights Reserved 备粤ICP备13015218号 华夏吴氏QQ群:85987924