创力网站管理系统 V2.0 SP2

vbpass修复记录（1121）： 1、将aspoo.com不论大小写全改成小写的aspoo.com，不用Aspoo.Com是为了便于以后比较。 2、将Cl Web System Ver 2.0 SQL全改成Cl Web System Ver 2.0 Access。 3、将乎科有限公司改为科技有限公司。 4、删除三个多余文件：创力2.0(0710,0713) to (0801)升级方法.txt，升级说明.txt，inc\Cl_GetLabel.asp.bak文件。 5、删除一个文件夹：“整合论坛文件” 6、问题：公告不对齐： 解决：在Cl_OthMain.asp中第102行中增加红色部分：strtmp= strtmp & "&nbsp;&nbsp;&nbsp;&nbsp;<a href="""&Cl.Web_Info(10)&"Announce.asp?ChannelID=" & ChannelID & "&ID=" & Strcol(0) &""" title=""" & Cl.NoHtml(Strcol(2)) & """ target=""_blank"">" & Strcol(1) & "<br><div align=""right"">" & Strcol(3) & "&nbsp;&nbsp;<br>" & FormatDateTime(Strcol(4),1) & "</div></a>" 7、问题：公告只显示第1、3、5...这样的奇数条 解决：删除Cl_OthMain.asp的第103行，即 i=i+1 8、问题：给VIP或收费用户续费时出错 解决：在Admin_user.asp的第14行加一个dim ValidDays,tmpDays,BeginID,EndID 9、问题：后台不能单条删除图片及影视 解决：在Admin_propety.asp中对调125和127行。改为以下： Case 4 Cl.Execute("delete from Cl_Photo where PhotoID in (" & InfoID & ")") Case 5 Cl.Execute("delete from Cl_Movie where MovieID in (" & InfoID & ")") 10、问题：后台中“网站调查管理”顶部多了一个“文章频道” 解决：将Admin_vote.asp的第31行中的 8改成7，变为<%for i=1 to 7%> 11、问题：文字友情链接出错 解决：修改inc\cl_othmain.asp文件中两处。 （1）145行前两个V改为小写，改后为： strLink=strLink & "<select name='FriendLink' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}""><option Value=''>友情文字链接站点</option>" （2）202行 strLink=strLink & "<option Cl.Value='" & strcol(3) & "'>" & strcol(2) & "</option>" 改为 strLink=strLink & "<option value='" & strcol(3) & "'>" & strcol(2) & "</option>" 12、问题：设置调查后，下面的“投票”和“查看”两个按钮的图片是调用的Skins/Cl_Green目录中的图片，如果不用系统自带的绿意倾心风格，仍需保留该目录中的至少这两张图片。 解决：模板管理=>当前模板主模块=>图片 的第 26、27项，修改为 {%webdir%}images/voteSubmit.gif 及 {%webdir%}images/voteView.gif。将images目录下的两个文件改名为：votesubmit1.gif和voteview1.gif。将skins/cl_green目录下的两个按钮文件移到images目录中，并将两图片的四个白角处理成透明。删除原来三个风格目录中多余的四个按钮文件。 13、各模板中的软件模板所对应的置顶图片由{%webdir%}images/soft_ontop.gif改为{%webdir%}images/ontop.gif 14、问题：创力素灰风格留言板中有四个多余的“>” 解决：在留言板模板中的Template.html(0)中查找“> >”（中间有个空格），换成“>”。共四处。 15、问题：发送短信中好友多一个test1的多余帐号 解决：数据库Cl_Friend表中多一个test1好友用户，手工删除它就可。 16、问题：在线统计参数为simple时显示不正确。 解决：在count.asp的17行， case simple下把 Count.CountInfo(5) 替换成Count.CountInfo(6,0) 17、问题：前台登录后返回时要重新刷新才显示已经登录（VBPASS注：这个问题可能只存在于整合版中，我未整合用了很久也没出现这个问题） 解决：Showlogin.asp 第4行后插入： Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" 18、问题：后台添加外部栏目时，常常仍为内部栏目 解决：Admin_channel.asp 第429行下加一句 rs("ChannelType")=1 19、问题：后台各频道中内容无法移动 解决：Admin_Articlemove.asp 82行 <td><%=Title%> <input name="ArticleID" type="hidden" id="ArticleID" value="<%=ArticleID%>"></td> 改为：<td><%=Title%> <input name="InfoID" type="hidden" id="InfoID" value="<%=ArticleID%>"></td> 另外 ， Admin_Softmove.asp 78行， Admin_photomove.asp 90行 做对应改动。 收费版的影视移动自行对照改动。 20、问题：文章和软件标签调用显法条数时有上限。 解决：修改inc/Cl_Function_Article.asp文件的19，87，143，233。将top后的数字改为& ArticleNum & 修改inc/Cl_Function_Soft.asp文件的80，363，508。将top后的数字改为& SoftNum & 21、修改了admin/Admin_Template.asp，在模板管理页中加入一个部分常用标签提示，链接文件为Cl_biaoqian.htm。 22、修改了热门软件显示错误。 解决：1）修改Inc\Cl_GetLabel.asp，在77行后加入： Case "showhotsoft" GetLabelContent = ShowHotSoft(Clng(ParaArray(1)),Clng(ParaArray(2)),CBool(ParaArray(3))) 2）修改inc/Cl_Function_Soft.asp，将490行左右加入红色部分，修改为： strtemp=strtemp & "<li><a href='" & LinkUrl & "' title='软件名称：" & rsHot("SoftName") & vbcrlf & "软件版本：" & rsHot("SoftVersion") & vbcrlf & "文件大小：" & rsHot("SoftSize") & "K" & vbcrlf & "作 者：" & rsHot("Author") & vbcrlf & "更新时间：" & rsHot("UpdateTime") & vbcrlf & "下载次数：" & rsHot("Hits") & "' target='_blank'>" & rsHot("SoftName") & "[<font color=red>" & rsHot("hits") & "</font>]</li><br>" 23、增加统计待审留言和待审留户，修改了Inc\Cl_OthMain.asp文件和Admin\Admin_CountJs.asp两个文件。 24、修改并精简了Inc\Cl_Function_Soft.asp文件中的Function ShowPicSoft函数。 24、修改并精简了Inc\Cl_Function_Soft.asp文件中的Function ShowPicSoft函数。 25、对留言标题进行了处理，Guest_Setting.asp中增加了 case "user" PageTitle="我的留言" case "shownopass" PageTitle="审核留言" 去掉了不起作用的 删除留言和保存留言。 26、更改了一个留言中的笔误。骗证码->验证码 27、首页调用专题显示不正确。 解决：在inc/cl_othmain.asp中修改'显示专题名称:ShowSpecial(SpecialNum,sChannelID) ShowSpecial=ShowSpecial & "<li><a href='" & Cl.WebDir & Cl.ChannelDir & "/ShowSpecial.Asp?SpecialID=" & strCol(0) & "'>" & strCol(1) & "</a></li><br>" 改为： if sChannelID = 0 then ShowSpecial=ShowSpecial & "<li><a href='" & Cl.WebDir & "Article/ShowSpecial.Asp?SpecialID=" & strCol(0) & "'>" & strCol(1) & "</a></ li><br>" else ShowSpecial=ShowSpecial & "<li><a href='" & Cl.WebDir & Cl.ChannelDir & "/ShowSpecial.Asp?SpecialID=" & strCol(0) & "'>" & strCol(1) & "</a></li><br>" end if 28、增加了管理员头像图片。 29、增加免注入检测文件三个 luxun252修改部分 1121 1.替换了 admin/Admin_Create_Article.asp admin/Admin_Create_Index.asp admin/Admin_Create_Photo.asp admin/Admin_Create_Soft.asp inc/Cl_ClsMain.asp 里面的Make.Write "<!--Powered by:"& Cl.Web_Version(1) & " " &_ "CreateDate:"&Now&"--> " & vbNewLine & MakeData & vbNewLine & "<!--Copyright 2005 Clwang.Net " &_ ".All Rights Reserved-->" 杜绝生成的时候风格变形。 2.替换所有clwang.net为aspoo.com 3.admin/admin_index.asp 后台更新缓存旁边再增加一个返回首页方便大家 4.几个模板中的管理员登陆之后“后台管理”连接去掉打开新窗口，人性化一些。外国人说无故打开新窗口是不礼貌的，呵呵~~~