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

kesion

<<返回列表上一个主题下一个主题打印本帖复制本帖地址

37170 查看	81 回复

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

转到：

一生有你当前离线

10439 主题	0 广播	18 粉丝

添加关注

级别:版主

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

创始人

管理员

终身成就奖

当前不在线

一生有你发表于：2010/4/1 15:52:00 | 显示全部帖子查看该作者主题楼主

科汛在线商城系统(NET)

做线上考试培训就选#科汛网校

以下是引用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)

回到顶部

回到底部

底部

＜上一主题 | 下一主题＞

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

Powered By KesionCMS Version X1

厦门科汛软件有限公司 © 2006-2016 页面执行3.34375秒 powered by KesionCMS 9.0