注意了 V6.5 SP1在使用过程中有BUG或建议就提交到这里来吧-领先建站CMS提供服务商我们专注于CMS建站产品的研发

32154 查看	81 回复

主题：注意了 V6.5 SP1在使用过程中有BUG或建议就提交到这里来吧 [收藏主题]

转到：

ffzsw 当前离线

115 主题	0 广播	0 粉丝

级别:一年级

用户积分:1248 分
登录次数:165 次
注册时间:2007/4/4
最后登录:2018/12/12

ffzsw 发表于：2010/3/18 15:59:00 | 只看该作者查看该作者主题 61楼

有生源找课程就上科汛课堂街!

登陆不显示验证码

有课程找生源就上科汛课堂街

支持(0) |

反对(0)

顶端

底部

zengzufu 当前离线

75 主题	0 广播	0 粉丝

级别:学前班

用户积分:760 分
登录次数:28 次
注册时间:2007/9/3
最后登录:2011/4/7

zengzufu 发表于：2010/3/17 17:13:00 | 只看该作者查看该作者主题 62楼

一分钟快速开通线上知识店铺

能否给自定义 js 也像自定义函数那样有个可视化的选择？

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

zengzufu 当前离线

75 主题	0 广播	0 粉丝

级别:学前班

用户积分:760 分
登录次数:28 次
注册时间:2007/9/3
最后登录:2011/4/7

zengzufu 发表于：2010/3/17 17:11:00 | 只看该作者查看该作者主题 63楼

有生源找课程就上科汛课堂街!

标题有颜色效果的选择图文才显示

做考试题库就用#科汛在线考试系统!

支持(0) |

反对(0)

顶端

底部

百益当前离线

737 主题	0 广播	0 粉丝

级别:六年级

用户积分:3379 分
登录次数:174 次
注册时间:2009/9/7
最后登录:2012/5/2

百益发表于：2010/3/17 11:24:00 | 只看该作者查看该作者主题 64楼

一分钟快速开通线上知识店铺

支持一下

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

cms110 当前离线

18 主题	0 广播	0 粉丝

级别:学前班

用户积分:535 分
登录次数:35 次
注册时间:2009/3/6
最后登录:2011/9/9

cms110 发表于：2010/3/17 11:21:00 | 只看该作者查看该作者主题 65楼

有生源找课程就上科汛课堂街!

更新后出错了呀！这是出错的地方：

在添加文章进出的错：

Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。

。。。\WWWROOT\KINGM_SYS$\../KS_Cls/Kesion.AdministratorCls.asp，行 49

打开登录页面出的错：

Microsoft VBScript 运行时错误错误 '800a01a8' 缺少对象: 'Application

(...).documentElement.selectSingleNode(...)'

。。。。\WWWROOT\KINGM_SYS$\../KS_Cls/Kesion.CommonCls.asp，行 100

这是我找到的错误。请及时修改。呵呵

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

cms110 当前离线

18 主题	0 广播	0 粉丝

级别:学前班

用户积分:535 分
登录次数:35 次
注册时间:2009/3/6
最后登录:2011/9/9

cms110 发表于：2010/3/17 11:19:00 | 只看该作者查看该作者主题 66楼

有生源找课程就上科汛课堂街!

更新后出错了呀！这是出错的地方：

在添加文章进出的错：

Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。

。。。\WWWROOT\KINGM_SYS$\../KS_Cls/Kesion.AdministratorCls.asp，行 49

打开登录页面出的错：

Microsoft VBScript 运行时错误错误 '800a01a8' 缺少对象: 'Application

(...).documentElement.selectSingleNode(...)'

。。。。\WWWROOT\KINGM_SYS$\../KS_Cls/Kesion.CommonCls.asp，行 100

这是我找到的错误。请及时修改。呵呵

做考试题库就用#科汛在线考试系统!

支持(0) |

反对(0)

顶端

底部

cms110 当前离线

18 主题	0 广播	0 粉丝

级别:学前班

用户积分:535 分
登录次数:35 次
注册时间:2009/3/6
最后登录:2011/9/9

cms110 发表于：2010/3/17 11:13:00 | 只看该作者查看该作者主题 67楼

一分钟快速开通线上知识店铺

打KesionCMS V6.5 SP1 系列版本补丁后

出错了呀！这是出错的地方：

在添加文章进出的错：

Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。

。。。\WWWROOT\KINGM_SYS$\../KS_Cls/Kesion.AdministratorCls.asp，行 49

打开登录页面出的错：

Microsoft VBScript 运行时错误错误 '800a01a8' 缺少对象: 'Application

(...).documentElement.selectSingleNode(...)'

。。。。\WWWROOT\KINGM_SYS$\../KS_Cls/Kesion.CommonCls.asp，行 100

这是我找到的错误。请及时修改。呵呵

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

浪侠当前离线

416 主题	4 广播	1 粉丝

级别:四年级

用户积分:2073 分
登录次数:299 次
注册时间:2007/2/12
最后登录:2019/3/14

浪侠发表于：2010/3/17 0:49:00 | 只看该作者查看该作者主题 68楼

有课程找生源就上科汛课堂街

首页随意输入字符搜索时

ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。

/plus/search/index.asp，行 245

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

一生有你当前离线

10439 主题	0 广播	18 粉丝

级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
创始人

一生有你发表于：2010/4/1 15:52:00 | 只看该作者查看该作者主题 69楼

做官网就用科汛智能建站系统!

以下是引用qdsunyu在2010-3-17 17:41:00的发言：

以下内容含脚本,或可能导致页面不正常的代码
科汛V6.5 最新版出现（3月16日补丁打上了，没打上也一样错误）急！！！！<br/>Microsoft VBScript 运行时错误 (0x800A0009)<br/>下标越界: 'rndReg'<br/>/User/reg/index.asp, 第 254 行<br/><br/><br/>这个是代码请大家帮帮我官方请帮我<br/><br/><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><br/><%option explicit%><br/><!--#include file="../../Conn.asp"--><br/><!--#include file="../../KS_Cls/Kesion.CommonCls.asp"--><br/><!--#include file="../../KS_Cls/Kesion.Label.CommonCls.asp"--><br/><!--#include file="../../KS_inc/md5.asp"--><br/><%<br/>'**************************************************<br/>' Software name:Kesion CMS 6.0<br/>' Email: service@kesion.com . QQ:111394,9537636<br/>' Web: http://www.kesion.com http://www.kesion.cn<br/>' Copyright (C) Kesion Network All Rights Reserved.<br/>'**************************************************<br/>Dim KSCls<br/>Set KSCls = New UserReg<br/>KSCls.Kesion()<br/>Set KSCls = Nothing<br/><br/>Class UserReg<br/> Private KS, KSRFObj,FileContent,RegAnswerID,rndReg<br/> Private Sub Class_Initialize()<br/> Set KS=New PublicCls<br/> Set KSRFObj = New Refresh<br/> End Sub<br/> Private Sub Class_Terminate()<br/> Call CloseConn()<br/> Set KS=Nothing<br/> End Sub<br/> Public Sub Kesion()<br/> IF KS.Setting(21)=0 Then<br/> Response.Redirect "../../plus/error.asp?action=error&message=" & Server.URLEncode("<li>对不起，本站暂停新会员注册!</li>")<br/> Response.End<br/> End IF<br/> If KS.S("Action")="Next" Then<br/> Call Step2()<br/> Else<br/> Call Step1()<br/> End If<br/> End Sub<br/><br/> '注册会员第一步<br/> Sub Step1()<br/> If KS.Setting(117)="" Then Response.Write "请先到""基本信息设置->模板绑定""进行模板绑定操作!":response.end<br/> FileContent = KSRFObj.LoadTemplate(KS.Setting(117))<br/> FCls.RefreshType="UserRegStep1"<br/> If Trim(FileContent) = "" Then FileContent = "模板不存在!"<br/> FileContent = ReplaceRegLable(FileContent) '替换通用标签如{$GetWebmaster}<br/> FileContent = KSRFObj.KSLabelReplaceAll(FileContent) '替换函数标签<br/> Response.Write FileContent <br/> End Sub<br/> '注册会员第二步<br/> Sub Step2()<br/> Dim SQL,K,N,InputStr,O_Arr,O_Len,F_V,O_Value,O_Text,BRStr,CanReg<br/><br/> Dim Verifycode:Verifycode=KS.S("Verifycode")<br/> IF Trim(Verifycode)<>Trim(Session("Verifycode")) And KS.Setting(27)=1 then <br/> Response.Write("")<br/> Exit Sub<br/> End If<br/> Session("PassWord")=PassWord<br/> End Sub<br/> '会员类型<br/> Function UserGroupList()<br/> If KS.Setting(33)="0" Then UserGroupList="":Exit Function<br/> Dim RS,Node<br/> Call KS.LoadUserGroup()<br/> If KS.ChkClng(KS.S("GroupID"))<>0 Then<br/> Set Node=Application(KS.SiteSN&"_UserGroup").DocumentElement.SelectSingleNode("row[@id=" & KS.S("GroupID") & "]/@groupname")<br/> If Not Node Is Nothing Then<br/> UserGroupList="<span style="font-weight:bold;color:#ff6600">" & Node.Text &"</span><input type="hidden" value="'"" & KS.S("GroupID") & "' name="GroupID"/>"<br/> End If <br/> Set Node=Nothing<br/> Else<br/> For Each Node In Application(KS.SiteSN&"_UserGroup").DocumentElement.SelectNodes("row[@showonreg=1 && @id!=1]")<br/> If UserGroupList="" Then<br/> UserGroupList="<label><input type=""radio"" value=""" & Node.SelectSingleNode("@id").text & """ name=""GroupID"" checked="checked" />" & Node.SelectSingleNode("@groupname").text & "</label>(<span onclick=""mousepopup(event,'说明','" & Replace(Replace(Replace(Node.SelectSingleNode("@descript").text,"'","\'"),vbcrlf,"\n"),chr(10),"\n") & "',300)"" style=""cursor:default;color:red;text-decoration:underline"">说明</span>)"<br/> Else<br/> UserGroupList=UserGroupList & "<br /><label><input type=""radio"" value=""" & Node.SelectSingleNode("@id").text & """ name=""GroupID""/>" & Node.SelectSingleNode("@groupname").text & "</label>(<span onclick=""mousepopup(event,'说明','" & Replace(Replace(Replace(Node.SelectSingleNode("@descript").text,"'","\'"),vbcrlf,"\n"),chr(10),"\n") & "',300)"" style=""cursor:default;color:red;text-decoration:underline"">说明</span>)"<br/> End If<br/> Next<br/> End If<br/> End Function<br/> <br/> Function IsShow(Show)<br/> If Show =true Then<br/> IsShow = ""<br/> Else<br/> IsShow = " Style='display:none'"<br/> End If<br/> End Function<br/>End Class<br/>%><br/><br/> <br/>
说明：上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.

检查下后台防注册机选项里的选项有没有填写正确.不启用请关闭

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

浪侠当前离线

416 主题	4 广播	1 粉丝

级别:四年级

用户积分:2073 分
登录次数:299 次
注册时间:2007/2/12
最后登录:2019/3/14

浪侠发表于：2010/3/17 0:25:00 | 只看该作者查看该作者主题 70楼

有课程找生源就上科汛课堂街

在conn.asp中增加两个变量

Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S,DataPart_W,DataPart_M

    If DataBaseType = 1 Then
       ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
    SqlNowString = "getdate()"
    DataPart_D   = "d"
    DataPart_Y   = "y"
    DataPart_H   = "hour"
    DataPart_S   = "s"
    DataPart_W   = "week"
    DataPart_M   = "month"
    Else
       ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
    SqlNowString = "Now()"
    DataPart_D   = "'d'"
    DataPart_Y   = "'yyyy'"
    DataPart_H   = "'h'"
    DataPart_S   = "'s'"
    DataPart_W   = "'w'"
    DataPart_M   = "'m'"
    End If

用在/admin/KS.UserProgress.asp

.Write "<td width='80' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=today"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff('d',AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"
 .Write "<td width='100' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=week"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff('w',AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"
 .Write "<td width='100' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=month"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff('m',AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"
 .Write "<td width='100' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=year"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff('yyyy',AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"

换在如下形式

.Write "<td width='80' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=today"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff("&DataPart_D&",AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"
 .Write "<td width='100' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=week"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff("&DataPart_W&",AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"
 .Write "<td width='100' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=month"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff("&DataPart_M&",AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"
 .Write "<td width='100' align='center'><a href='javascript:ShowDetail(""username=" & RS(0) &"&ChannelID=" & SQL(0,K)&"&Flag=year"");' title='点击查看详情！'>" & Conn.Execute("select count(id) from " & SQL(2,K) & Param &" And datediff("&DataPart_Y&",AddDate," & SqlNowString & ")=0")(0) & " " & SQL(4,K) & "</a></td>"

还有好几个文件没有用类似这样变量替换，到时可以自己搜索

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

＜上一主题 | 下一主题＞

<< 返回列表

上一页首页 1 2 3 4 5 6 7 8 9 下一页