发送快讯功能的更改！

        前段时间收到经理要修改快讯(在线发送邮件，就是订阅发送系统)的项目，本公司系统已经多人的手(外国人开发的，后来改更为中文版等)，本人来的时候没有任何的移交工作，在当时在修改此项目的时候碰到了很大的问题，后来其它的事情忙了就没有管多少。

　　今天收到领导的一封邮件：

Title

“请看一下，我们以前的《××快讯》很方便实现公开和注册。另外，也很方便实现临时内容板块的添加。请与**联系(以前的程序员)，甚至可请教**的手机(以前的编辑都可以解决问题。”

事实上我公司的快讯系统是我看过功能最强的一套系统，非常的智能，添加任何信息均非常方便，但是对于模板里面的栏目要智能我看了很多的代码均没有，于是打电话给前任程序员交流，最终也是说需要我们编程人员的修改。汗～～～。

　决定对此快讯进行修改。　
　目的：１、如何的添加各个栏目　２、如何对每个栏目的权限分配
　如何做：“找到栏目表与项目表，理清他们的关系，在栏目表中进行添加一个Flag字段进行区别收费与免费”
    干了一个下午终于有了成就现将更改过程记下。
打开template.asp　编辑模板内附加了很多文件

Title

script_newsletter.asp  bootom.asp form_savecontent.asp head.asp 　　不规则

首先研究提交按钮所在的文件form_savecontent.asp的第二行即是
For i = 0 to ContentCount-1
在此文件之前没有对ContentCount变量进行赋任何的值，想到此文件是被包含包含（两层）的，在template.asp未查找到CountCount变量，从而找

   sqlstr = "select COUNT(*) AS ContentCount from CDSTemplateContentDef where TemplateID=1"
   Set rs = conn.execute(sqlstr)   
   ContentCount = rs("ContentCount")

嘿嘿找到了找到了CDSTemplateContentDef 表即在再到相应的数据库链接找到库。
在数据库中看到了一列以CDS开头的几个表分别对此几个进行了研究分析，最终得到CDSProjectContentItems表，此表是发送快讯的所有记录。有发送记录那肯定有发送类别查看ProjectID看很多{D7B51980-***-7A9A84C10C45}很多一样由此知道此字段是类别，还有ContentID很多一样（栏目类别）。
　　 很快我就知道了他们之间的关系，在CDSTemplateContentDef 表中增加了一个Flag字段默认值为１（１为可免费查看，0为不可免费查看），最终写了Sql语句。

'权限分配
    sqlflag="select a.flag from CDSTemplateContentDef a,CDSProjectContentItems b where b.ContentID=a.ContentID and b.itemID='"&NowHtmlID&"'"
    set rsflag=conn.execute(sqlflag)
'--完成

只要对rsflag("flag")进行判断即可进行收费与不收费。嘿嘿 大功告成。


        以上写的比较的简单，有什么不明白的忘大家见谅！