实现日期查询的功能插件 for KesionCMS科汛下载

刚才修改了下，现在可以在kesion所有版本上使用了！所有哦！

下面跟我做！

打开Search.asp,大约在118行、196行、275行、354行均有这样一段

Case 5
     SqlStr=SqlStr & " And KeyWords Like '%" & KeyWord & "%'"
    Case else
     SqlStr=SqlStr & " And (Title Like '%" & KeyWord & "%' Or Author Like '%" & KeyWord & "%')"

将上面那段中的红色部分修改为下面的

Case 5
     SqlStr=SqlStr & " And KeyWords Like '%" & KeyWord & "%'"
    Case else
     SqlStr=SqlStr & " And (Title Like '%" & KeyWord & "%' Or Author Like '%" & KeyWord & "%' Or AddDate Like '%" & KeyWord & "%')"

118行、196行、275行、354行，可以全部修改也可以只修改部分，这里要说明一下，118行修改后是为文章搜索增加日期查询功能，196行是为图片搜索，275行是为下载搜索，354行是为flash搜索（免费版本中有flash搜索，但是没有这个版块，所以这个步骤免费用户可以不做）

下面来到423行

Dim ArticleSqlStr:ArticleSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.ArticleContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_Article A,KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.SubTitle Like '%" & KeyWord & "%' or A.Author Like '%" & KeyWord & "%')"
   Dim PhotoSqlStr:PhotoSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.PictureContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_Photo A, KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.Author Like '%" & KeyWord & "%')"
   Dim DownSqlStr:DownSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.DownContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_DownLoad A,KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.Author Like '%" & KeyWord & "%')"
   Dim FlashSqlStr:FlashSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.FlashContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_Flash A,KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.Author Like '%" & KeyWord & "%')"

增加红色部分：

Dim ArticleSqlStr:ArticleSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.ArticleContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_Article A,KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.SubTitle Like '%" & KeyWord & "%' or A.Author Like '%" & KeyWord & "%' or A.AddDate Like '%" & KeyWord & "%')"
   Dim PhotoSqlStr:PhotoSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.PictureContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_Photo A, KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.Author Like '%" & KeyWord & "%' or A.AddDate Like '%" & KeyWord & "%')"
   Dim DownSqlStr:DownSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.DownContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_DownLoad A,KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.Author Like '%" & KeyWord & "%' or A.AddDate Like '%" & KeyWord & "%')"
   Dim FlashSqlStr:FlashSqlStr="Select C.ChannelID,A.ID,A.Tid,A.Title,A.AddDate,A.Author,A.FlashContent,A.Fname,A.InfoPurview,A.ReadPoint From KS_Flash A,KS_Class C Where A.Tid=C.ID and A.Verific=1 And A.DelTF=0 And (A.Title Like '%" & KeyWord & "%' Or A.Author Like '%" & KeyWord & "%' or A.AddDate Like '%" & KeyWord & "%')"

下面要提供Powered by 游网的鱼,QQ:841951的做的一个日历了，在压缩包的cal目录里面；我做了一点稍微的修改现在可以支持kesion了，在cal目录中有一个iflateng.htm文件，大家调用的时候就调用这个文件就可以了。但是需要注意的是如果是使用整站搜索，也就是全部那么你不用修改，如果你只想通过这个日历查询文章新闻、图片新闻、下载……等单个频道的时候，那么你就必须注意下面这个问题：

在231行中，下面红色部分

html+="<td "+(c?" bgcolor='"+c+"' ":"")+"><div class='CalCell' "+sDIV+giCellHeight+"px;width:"+giCellWidth+"px;"+("background:"+(c1?c1:"")+(cbg?" url("+cbg+")":""))+"' title=""+ti+"" onmouseover='fMouseOver(this);return true;' onmouseout='fMouseOut(this)' onclick='fSetDate("+cd[0]+","+cd[1]+","+dayNo+",true)'><A href='../search.Asp?ChannelID=0&KeyWord="+cd[0]+"-"+cd[1]+"-"+dayNo+"'"+"class='CellAnchor' target='_blank' style='color:"+dc+(bo?";font-weight:bold":"")+td+"' onfocus='if(this.blur)this.blur();'>"+eval(gsDays)+"</A>"+htm+"</div></td>";

其中 ChannelID=0 表示调用日历查询的时候使用全部搜索

ChannelID=1 表示……使用文章搜索

ChannelID=2 表示……使用图片搜索

ChannelID=3 表示……使用下载搜索

ChannelID=4 表示……使用flash搜索

附件中带有我已经修改好的Search.asp文件，专为懒人提供（呵呵）！